通过

Application.ActiveDocument 属性 (Word)

  • 项目

返回一个 Document 对象，该对象代表活动文档。 如果没有打开的文档，就会导致出错。 只读。

注意

无法使用此属性访问活动“受保护的视图”窗口中的文档。 相反，使用 ActiveProtectedViewWindow 对象的文档属性。

语法

表达式。ActiveDocument

expression：表示 Application 对象的变量。

示例

本示例显示活动文档的名称，如果没有打开的文档，则显示一条消息。

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

本示例将选定内容折叠为插入点，然后创建一个区域，包括选定内容的后面五个字符。

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

本示例在活动文档的开头插入文本，然后打印该文档。

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

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。