可能原因之一是文件格式的兼容性问题。尝试指定保存的文件格式为适用于所有计算机型号的格式,如.docx格式。以下是一个示例代码:
Sub SaveDocument()
Dim doc As Document
Set doc = ActiveDocument
' 保存文件为.docx格式
doc.SaveAs2 FileName:="C:\Documents\MyDocument.docx", FileFormat:=wdFormatXMLDocument
' 关闭文档
doc.Close
' 打开保存的文档
Documents.Open FileName:="C:\Documents\MyDocument.docx"
End Sub
在上述示例中,SaveAs2
方法指定了保存的文件格式为.docx
,并使用wdFormatXMLDocument
常量表示该格式。根据你的需求,你可以根据不同的文件格式进行调整。
如果问题仍然存在,可能是由于其他原因导致的。你可以尝试将文档保存到不同的位置,检查文件权限或尝试在不同的计算机上运行代码来排除其他问题。