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

Globales Objekt

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.