当ActiveDocument.Path返回一个空字符串时,可能是因为文档尚未保存或已经被另存为未命名的文件。在这种情况下,可以使用以下代码来获取文件的路径:
Dim filePath As String
If ActiveDocument.Path = "" Then
' 如果文档路径为空,则需要进行保存操作
ActiveDocument.Save
filePath = ActiveDocument.Path
Else
' 如果文档路径不为空,则直接获取路径
filePath = ActiveDocument.Path
End If
MsgBox "文件路径:" & filePath
上述代码首先检查ActiveDocument.Path是否为空。如果为空,则使用ActiveDocument.Save保存文档,并将路径赋值给filePath变量。如果ActiveDocument.Path不为空,则直接将路径赋值给filePath变量。
最后,通过MsgBox显示文件路径。这样就可以确保获取到正确的文件路径。