vba - WordBasic 到现代查找目录 VBA

Question

目前我遇到了 WordBasic 的问题，我的公司最近决定将他们的系统从 2007 年更新到 Word 365，但是根据 Google 的说法，WordBasic 是 Word 97 的遗留物，它不再适用于 Word。

我需要检索保存文件的目录，但似乎找不到当前（正在工作的）代码的替代方法。

With Dialogs(wdDialogFileSaveAs)
    .Name = Jobnumber & " " & Jobname & " FDS V0_00.docx"
    .Show
    Dim Directory As String
    Directory = WordBasic.filenameinfo(.Name, 5)
End With

Answer 1

在 word 2007 中，您使用的是 VBA。这个词WordBasic指的是 VBA 库中的一个对象：

这个对象可能是用 old 的一些旧属性构建的WordBasic，但你不应该关心这个，因为 VBA 是处理它的那个。

此代码在 2016 年对我有用：

Option Explicit

Sub TestMe()

    With Dialogs(wdDialogFileSaveAs)
        .Name = 1 & " " & 2 & " FDS V0_00.docx"
        .Show
        Dim Directory As String
        Directory = WordBasic.filenameinfo(.Name, 5)
    End With

End Sub

如果由于任何原因它不起作用，请尝试Directory = Word.Global.WordBasic.Filenameinfo(.Name, 5)

Answer 2

在 VBA 中，您应该能够使用对象的Path属性Document：

Directory = ActiveDocument.Path