次の方法で共有


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