Свойство Application.ActiveDocument (издатель)

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

Синтаксис

выражение. 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 и обратная связь.