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 のサポートおよびフィードバックを参照してください。