Information
The topic you requested is included in another documentation set. For convenience, it's displayed below. Choose Switch to see the topic in its original location.

Application.ActiveDocument Property

Office 2007
Returns a Document object that represents the active document (the document with the focus). If there are no documents open, an error occurs. Read-only.

Syntax

expression.ActiveDocument

expression   A variable that represents an Application object.

Example

This example displays the name of the active document, or if there are no documents open, it displays a message.

Visual Basic for Applications
If Application.Documents.Count >= 1 Then
    MsgBox ActiveDocument.Name
Else
    MsgBox "No documents are open"
End If

This example collapses the selection to an insertion point and then creates a range for the next five characters in the selection.

Visual Basic for Applications
Dim rngTemp As Range

Selection.Collapse Direction:=wdCollapseStart
Set rngTemp = ActiveDocument.Range(Start:=Selection.Start, _
    End:=Selection.Start + 5)

This example inserts texts at the beginning of the active document and then prints the document.

Visual Basic for Applications
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



Community Additions

Show: