ParagraphFormat オブジェクト
Microsoft Word Visual Basic リファレンス |
ParagraphFormat オブジェクト
複数のオブジェクト ParagraphFormat 複数のオブジェクト |
段落のすべての書式を表します。
使い方
Format プロパティを使用して、1 つまたは複数の段落の ParagraphFormat オブジェクトを取得します。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
の左インデントを 25mm に変更し、新しい文書を作成します。文書に文字列を挿入し、myDup
の段落書式を段落に適用します。
Set myDup = ActiveDocument.Paragraphs(1).Format.Duplicate
myDup.LeftIndent = MillimetersToPoints(25)
Documents.Add
Selection.InsertAfter "これは新しい段落です。"
Selection.Paragraphs.Format = myDup