Publisher) (Story 物件
代表中未連結的文字圖文框,文字流向連結的文字圖文框或在工作表儲存格中的文字之間的文字。 Story物件是TextFrame和TextRange物件以及Stories集合的成員。
使用TextFrame或TextRange物件的Story屬性可傳回文字圖文框或文字範圍中的Story物件。
使用 Stories (索引) ,其中 index 是本文的編號,可傳回個別 的 Story 物件。
本範例會傳回所選文字範圍中的本文,如果位於文字圖文框中,則會將文字插入文字範圍。
Sub AddTextToStory()
With Selection.TextRange.Story
If .HasTextFrame Then .TextRange _
.InsertAfter NewText:=vbLf & "This is a test."
End With
End Sub
這個範例會判斷使用中出版物的第一個本文是否有文字圖文框,如果是,則會使用半英吋的第一行縮排和每個段落之前的六點間距來格式化本文中的段落。
Sub StoryParagraphFirstLineIndent()
With ActiveDocument.Stories(1)
If .HasTextFrame Then
With .TextFrame.TextRange.ParagraphFormat
.FirstLineIndent = InchesToPoints(0.5)
.SpaceBefore = 6
End With
End If
End With
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。