通过

ParagraphFormat 对象 (Publisher)

  • 项目

代表段落的所有格式。

备注

使用 TextStyle.ParagraphFormat 属性可返回段落或段落的 ParagraphFormat 对象。 ParagraphFormat 属性返回选定内容、 区域或样式的 ParagraphFormat 对象。

使用 Duplicate 方法复制现有的 ParagraphFormat 对象。

示例

下面的示例使光标位置所在段落居中。 本示例假定第一个形状是文本框而不是其他类型的形状。

Sub CenterParagraph() 
 Selection.TextRange.ParagraphFormat _ 
 .Alignment = pbParagraphAlignmentCenter 
End Sub

下面的示例复制当前出版物中第一段的段落格式并将格式存储在一个变量。 本示例复制一个现有的 ParagraphFormat 对象并变为 1 英寸的左缩进、 新文本框、 插入文本，然后创建复制的段落格式的文本的段落格式应用。

Sub DuplicateParagraphFormating() 
 Dim pfmtDup As ParagraphFormat 
 
 Set pfmtDup = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.ParagraphFormat.Duplicate 
 
 pfmtDup.LeftIndent = Application.InchesToPoints(1) 
 
 With ActiveDocument.Pages.Add(Count:=1, After:=1) 
 With .Shapes.AddTextbox(pbTextOrientationHorizontal, _ 
 Left:=72, Top:=72, Width:=200, Height:=100) 
 With .TextFrame.TextRange 
 .Text = "This is a test of how to use " & _ 
 "the ParagraphFormat object." 
 .ParagraphFormat = pfmtDup 
 End With 
 End With 
 End With 
 
End Sub

方法

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。