Story オブジェクト (Publisher)
リンクしたテキスト フレーム、または表のセル内のテキストの間で流し込むテキスト、リンクされていないテキスト フレームにテキストを表します。 Story オブジェクトは、TextFrame オブジェクトと TextRange オブジェクトと Storys コレクションのメンバーです。
TextFrame オブジェクトまたは TextRange オブジェクトの Story プロパティを使用して、テキスト フレームまたはテキスト範囲の Story オブジェクトを取得します。
個々の Story オブジェクトを返すには、ストーリー (index) を使用します。index はストーリーの番号です。
次の使用例は、選択したテキスト範囲のストーリーを返し、テキスト フレーム内にある場合はテキスト範囲にテキストを挿入します。
Sub AddTextToStory()
With Selection.TextRange.Story
If .HasTextFrame Then .TextRange _
.InsertAfter NewText:=vbLf & "This is a test."
End With
End Sub
次の使用例は、作業中の文書の最初のストーリーにテキスト フレームがあるかどうかを判断し、その場合は、各段落の前に 5 インチの最初の行インデントと 6 ポイント間隔でストーリー内の段落の書式を設定します。
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 のサポートおよびフィードバックを参照してください。