共用方式為

Word) (Document.Content 屬性

  • 發行項

會傳回代表主文件本文的 Range 物件。 唯讀。

語法

運算式。內容

表達 代表 Document 物件的變數。

註解

下列是兩個相等的陳述式：

Set mainStory = ActiveDocument.Content 
Set mainStory = ActiveDocument.StoryRanges(wdMainTextStory)

範例

本範例會將使用中文件的文字字型和字型大小變更為 Arial 10 點。

Set myRange = ActiveDocument.Content 
With myRange.Font 
 .Name = "Arial" 
 .Size = 10 
End With

本範例會在名為"Changes.doc。"的文件的結尾插入文字每個 ...]下一個 陳述式用於判斷是否已開啟文件。

For Each aDocument In Documents 
 If InStr(LCase$(aDocument.Name), "changes.doc") Then 
 Set myRange = Documents("Changes.doc").Content 
 myRange.InsertAfter "the end." 
 End If 
Next aDocument

另請參閱

Document 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。