Export (0) Print
Expand All
Expand Minimize

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

ADD
Show:
© 2014 Microsoft