Application.ActiveDocument-Eigenschaft (Word)

Gibt ein Document-Objekt zurück, das das aktive Dokument (das Dokument mit dem Fokus) darstellt. Wenn keine Dokumente geöffnet sind, tritt ein Fehler auf. Schreibgeschützt.

Hinweis

Auf das Dokument im aktiven Fenster geschützte Ansicht kann nicht mit dieser Eigenschaft zugegriffen werden. Verwenden Sie stattdessen die Document-Eigenschaft des ActiveProtectedViewWindow-Objekts .

Syntax

Ausdruck. Activedocument

expression Eine Variable, die ein Application-Objekt darstellt.

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

Application-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.