StoryRanges 物件 (Word)
一群 範圍 代表文件中的本文的物件。
使用 StoryRanges 屬性可傳回整個 StoryRanges 集合。 下列範例會移除手動字元格式中使用中文件的主要文字本文以外的所有本文中的文字。
For Each aStory In ActiveDocument.StoryRanges
If aStory.StoryType <> wdMainTextStory Then aStory.Font.Reset
Next aStory
Add 方法不適用於尋找整個 StoryRanges 集合。 Stories StoryRanges 集合中的數目是有限的。
使用 StoryRanges (Index) ,其中 Index 是 WdStoryType 常 數,可傳回單一本文作為 Range 物件。 下列範例會將文字加入主要標頭本文,然後顯示 [文字。
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range _
.Text = "Header text"
MsgBox ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text
下列範例會將使用中文件內的註腳文字複製到新的文件。
If ActiveDocument.Footnotes.Count >= 1 Then
ActiveDocument.StoryRanges(wdFootnotesStory).Copy
Documents.Add.Content.Paste
End If
如果您嘗試傳回指定之文件內所沒有的本文,則會發生錯誤。 下列範例會判斷使用中文件內是否有提供註腳本文。
On Error GoTo errhandler
Set MyRange = ActiveDocument.StoryRanges(wdFootnotesStory)
errhandler:
If Err = 5941 Then MsgBox "The footnotes story is not available."
使用 NextStoryRange 屬性來循環查看文件中所有本文。 下列範例會搜尋使用中檔內每個本文的文字 「Microsoft Word」。找到文字時,它會格式化為斜體。
For Each myStoryRange In ActiveDocument.StoryRanges
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
While myStoryRange.Find.Found
myStoryRange.Italic = True
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
Wend
While Not (myStoryRange.NextStoryRange Is Nothing)
Set myStoryRange = myStoryRange.NextStoryRange
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
While myStoryRange.Find.Found
myStoryRange.Italic = True
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
Wend
Wend
Next myStoryRange
名稱 |
---|
項目 |
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。