次の方法で共有


Application.ActiveDocument プロパティ (Publisher)

作業中の文書を表す Document オブジェクトを返します。 開かれたドキュメントがない場合、エラーが発生します。

構文

ActiveDocument

expressionApplication オブジェクトを 表す変数。

戻り値

Document

次の使用例は、ユーザーが作業中の文書にファイル名を割り当てられるようにして、新しいファイル名でファイルを保存します。 ファイル名は、他のテキストと共に、現在選択されているテキストの後ろに挿入されます。 この例を 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 のサポートおよびフィードバックを参照してください。