Блог

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

 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
  

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

 fullpath = Me.Application.ActiveDocument.FullName