Поделиться через

Свойство Application.ActiveDocument (Publisher)

  • Статья

Возвращает объект Document , представляющий активную публикацию. Если документы не открыты, возникает ошибка.

Синтаксис

expression. ActiveDocument

выражение: переменная, представляющая объект Application.

Возвращаемое значение

Документ

Пример

Этот пример позволяет пользователю назначить имя файла активной публикации и сохранить его с новым именем файла. Затем имя файла вместе с другим текстом вставляется после выделенного текста. Обратите внимание, что FileName для работы этого примера необходимо заменить допустимым именем публикации.

Sub NewsLetterSave() 
 
 Dim strFileName As String 
 
 ' Assign the explicit file name to a variable. 
 strFileName = "FileName" 
 Publisher.ActiveDocument.SaveAs strFileName 
 
 ' Insert the file name and supporting text after selected text. 
 Selection.TextRange.Collapse pbCollapseEnd 
 Selection.TextRange = _ 
 " This publication has been saved as " & strFileName 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.