Application.ActiveDocument 属性 (Publisher)

返回一个 Document 对象，该对象表示当前出版物。 如果没有打开的文档，则会发生错误。

语法

表达式。ActiveDocument

expression：表示 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。