VBA Макросы: получить содержимое тега <title> из html страницы открытой в word

[tim249]

Хочу использовать содержимое этого тега для именования документа при сохранении. Подскажите пожалуйста как получить содержимое этого тега. Планирую использовать вот такую конструкцию, в ней сейчас используется оригинальное имя файла.

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

[tim249]

Оуеееее. Вы сделали мой день! Такое облегчение, я уже отчаялся что-то найти в интернете. Хуууух. Большое спасибо.

На всякий случай, вдруг кому пригодиться, конструкция целиком.

Sub SaveName()
With Dialogs(wdDialogFileSaveAs)
    .Name = ActiveDocument.BuiltInDocumentProperties("title")
    .Format = wdFormatDocument
    .Show
End With
End Sub