word vba 获取当前文档路劲

以下是 VBA 代码示例，用于获取当前 Word 文档的路径： ``` Sub GetCurrentDocumentPath() ' 获取当前文档 Dim doc As Document Set doc = ActiveDocument ' 获取当前文档路径 Dim path As String path = doc.Path ' 显示当前文档路径 MsgBox "当前文档路径为：" & path End Sub ``` 在这个示例中，我们首先创建了一个名为 `GetCurrentDocumentPath` 的过程，用于获取当前 Word 文档的路径。我们使用 `ActiveDocument` 方法获取当前文档，并使用 `Path` 属性获取文档的路径。最后，我们使用 `MsgBox` 函数显示当前文档的路径。 请注意，如果当前文档尚未保存，则 `Path` 属性将返回空字符串。因此，在使用此代码之前，请确保您已经保存了当前文档。