Application.ActiveDocument Property (Word)
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.
This example displays the name of the active document, or if there are no documents open, it displays a message.
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.
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.