Получение неверного пути в VBScript

Question

Я хочу получить точный путь к активному текстовому документу.Я написал код ниже.Код работает нормально, если открыто одно слово документа, но когда я открываю второй документ и запускаю его, путь отображается как «Мои документы».Даже в первом документе, если я запускаю сейчас, он показывает «Мои документы».Код:

Sub NewMenuMacro()
   Dim myMenuItem As Object

    Dim objIE As Object
    Dim folderName
    folderName = "..\.."
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
      Dim fullpath
     fullpath = fso.GetAbsolutePathName(Me.Application.ActiveDocument)

  If fso.FileExists(fullpath) Then
  Dim objFile
        ' fullpath = fso.GetAbsolutePathName(Me.Application.ActiveDocument)
     Set objFile = fso.GetFile(fullpath)
    ActiveDocument.SaveAs (objFile.path)
    fullpath = fso.GetAbsolutePathName(objFile)

   Else
    ActiveDocument.Save
    fullpath = fso.GetAbsolutePathName(Me.Application.ActiveDocument)
   End If

Answer 1

Вы можете просто использовать свойство FullName.

fullpath = Me.Application.ActiveDocument.FullName