Application.ActiveDocument-Eigenschaft (Publisher)

Gibt ein Document -Objekt, das die aktive Publikation darstellt. Wenn geöffnet sind keine Dokumente, tritt ein Fehler auf.

Syntax

Ausdruck. ActiveDocument

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Dokument

Beispiel

Bei diesem Beispiel kann der Benutzer der aktiven Publikation einen Dateinamen zuweisen und sie unter diesem neuen Namen speichern. Der Dateiname wird dann, mit zusätzlichem Text, hinter dem aktuell markierten Text eingefügt. Beachten Sie, dass FileName durch einen gültigen Veröffentlichungsnamen ersetzt werden muss, damit dieses Beispiel funktioniert.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.