代表段落的所有格式設定。
註解
使用 格式 若要傳回的段落或多個段落的 ParagraphFormat 物件的屬性。 ParagraphFormat 屬性會傳回選取範圍、 範圍、 樣式、 尋找 物件或 Replacement 物件的 ParagraphFormat 物件。 下面範例將使用中文件內的第三個段落置中。
ActiveDocument.Paragraphs(3).Format.Alignment = _
wdAlignParagraphCenter
下列範例會在選取範圍之後尋找下一個雙行間距的段落。
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
您可以也複製獨立將現有的 ParagraphFormat 物件所使用的 重複 屬性。 以下範例複製了活動文件中第一段的段落格式,並將格式儲存在 myDup 中。 範例中將 myDup 的左縮排改為 1 英吋,建立新文件,將文字插入文件中,並將 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 支援與意見反應。