Хочу использовать содержимое этого тега для именования документа при сохранении. Подскажите пожалуйста как получить содержимое этого тега. Планирую использовать вот такую конструкцию, в ней сейчас используется оригинальное имя файла.
Sub SaveName()
With Dialogs(wdDialogFileSaveAs)
.Name = ActiveDocument.FullName
.Format = wdFormatDocument
.Show
End With
End Sub
Sub macro()
' Вывод результата в View - Immediate Window.
Debug.Print ActiveDocument.BuiltInDocumentProperties("title")
End Sub
Оуеееее. Вы сделали мой день! Такое облегчение, я уже отчаялся что-то найти в интернете. Хуууух. Большое спасибо.
На всякий случай, вдруг кому пригодиться, конструкция целиком.
Sub SaveName()
With Dialogs(wdDialogFileSaveAs)
.Name = ActiveDocument.BuiltInDocumentProperties("title")
.Format = wdFormatDocument
.Show
End With
End Sub