Word VBA教程:ParagraphFormat对象

   
多种对象
ParagraphFormat
多种对象

代表段落的所有格式。

使用 ParagraphFormat对象

使用Format属性可返回一个或多个段落的 ParagraphFormat对象。ParagraphFormat属性返回所选内容、区域、样式、Find对象或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

也可使用Duplicate属性生成现有的 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号