Global.ActiveDocument-Eigenschaft (Word)
Gibt ein Document-Objekt zurück, das das aktive Dokument (das Dokument mit dem Fokus) darstellt. Schreibgeschützt.
Syntax
Ausdruck. Activedocument
Ausdruck Eine Variable, die ein Global-Objekt darstellt.
HinwBemerkungeneise
Wenn keine Dokumente geöffnet sind, wird beim Verwenden dieser Eigenschaft ein Fehler generiert.
Beispiel
In diesem Beispiel wird der Name des aktiven Dokuments angezeigt. Wenn keine Dokumente geöffnet sind, wird eine entsprechende Meldung angezeigt.
If Application.Documents.Count >= 1 Then
MsgBox ActiveDocument.Name
Else
MsgBox "No documents are open"
End If
In diesem Beispiel wird die Auswahl auf einen Einfügepunkt reduziert, und dann wird ein Bereich für die nächsten fünf Zeichen in der Auswahl erstellt.
Dim rngTemp As Range
Selection.Collapse Direction:=wdCollapseStart
Set rngTemp = ActiveDocument.Range(Start:=Selection.Start, _
End:=Selection.Start + 5)
In diesem Beispiel wird Text am Anfang des aktiven Dokuments eingefügt, und anschließend wird das Dokument gedruckt.
Dim rngTemp As Range
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
With rngTemp
.InsertBefore "Company Report"
.Font.Name = "Arial"
.Font.Size = 24
.InsertParagraphAfter
End With
ActiveDocument.PrintOut
Siehe auch
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für