ParagraphFormat オブジェクト (Word)
段落のすべての書式を表します。
注釈
段落または段落の ParagraphFormat オブジェクトを取得するには、Format プロパティを使用します。 ParagraphFormat プロパティは、選択範囲、指定範囲、スタイル、 Find オブジェクト、または Replacement オブジェクトの ParagraphFormat オブジェクトを返します。 次の使用例は、作業中の文書の 3 番目の段落を中央揃えに配置します。
ActiveDocument.Paragraphs(3).Format.Alignment = _
wdAlignParagraphCenter
次の使用例は、選択範囲の後で、間隔が 2 行に設定されている最初の段落を検索します。
With Selection.Find
.ClearFormatting
.ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute
Visual Basic の New キーワードを使用して、新しいスタンドアロン の ParagraphFormat オブジェクトを作成します。 次の使用例は、ParagraphFormat オブジェクトを作成し、そのオブジェクトに任意の書式プロパティを設定し、すべてのプロパティを作業中の文書内の最初の段落に適用します。
Dim myParaF As New ParagraphFormat
myParaF.Alignment = wdAlignParagraphCenter
myParaF.Borders.Enable = True
ActiveDocument.Paragraphs(1).Format = myParaF
Duplicate プロパティを使用して、既存の ParagraphFormat オブジェクトのスタンドアロン コピーを作成することもできます。 次の使用例は、作業中の文書で最初の段落の段落書式を複製し、myDup に格納します。 myDup の左インデントを 1 インチ (25 mm) に変更し、新しい文書を作成し、この文書に文字列を挿入し、myDup の段落書式をこの文字列に適用します。
Set myDup = ActiveDocument.Paragraphs(1).Format.Duplicate
myDup.LeftIndent = InchesToPoints(1)
Documents.Add
Selection.InsertAfter "This is a new paragraph."
Selection.Paragraphs.Format = myDup
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。