通过

Global.ActiveDocument Property

  • 项目
Word Developer Reference

Returns a Document object that represents the active document (the document with the focus). Read-only.

Syntax

expression.ActiveDocument

expression   A variable that represents a Global object.

Remarks

If there are no documents open, using this property causes an error.

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

See Also