将格式应用于选定内容

下列示例使用选择属性将字符和段落格式应用于选定文本。使用字体属性获得字体格式的属性和方法，使用段落格式属性获得段落格式的属性和方法。

子格式选择()

选择。字体。名称='新罗马时代'。尺寸=14。全大写=真

以…结尾

选择。段落格式。左侧=英寸点(0.5)。Space1

以…结尾

末端接头

将格式应用于某一区域

下列示例定义了一个范围对象，它引用了活动文档的前三个段落。通过应用字体和段落格式对象的属性来设置范围对象的格式。

子格式范围()

将格式调暗为范围

设置活动文档.范围(_

Start:=活动文档。段落(1).范围。开始，_

End:=活动文档。段落(3).范围。结束

带格式。字体。名称='Arial '。段落格式。alignment=wdalignparagraph

以…结尾

末端接头

插入文字并应用字符和段落格式

下列示例在当前文档的上部添加单词标题。第一段居中对齐，并在该段落之后添加半英寸的间距。将单词标题的格式设为24 磅天线字体。

子插入格式文本()

将格式调暗为范围

设置活动文档.范围（开始：=0,结束：=0)

带格式。在文本后插入：='标题'。在后面插入段落

和。字体。名称='塔霍马'。尺寸=24。粗体=真

以…结尾

以…结尾

带有活动文档。第(1)款。alignment=wdAlignParagraphCenter。SpaceAfter=InchesToPoints(0.5)

以…结尾

末端接头

在12 磅和无之间切换段前间距

下列示例切换选定内容中第一段的段前间距。宏将获取当前段前间距的值，如果该值为12 磅，则删除段前间距格式（将SpaceBefore属性设为零)。如果段前间距的值为除12 外的其它数值，则将SpaceBefore属性设为12 磅。

Sub ToggleParagraphSpace()

选择。第(1)款

如果。0之前的空格然后。SpaceBefore=0

其他。SpaceBefore=6

如果…就会结束

以…结尾

末端接头

切换加粗格式

下列示例切换选定文本的加粗格式。

Sub ToggleBold()

选择。字体。粗体=wdToggle

末端接头

将左边距增加0.5 英寸

下列示例将左边距和右边距增加0.5 英寸页面设置对象包含文档的所有的页面设置属性（左边距、下边距、纸张大小等)。左边距属性用于返回和设置左边距设置右边距属性用于返回和设置右边距设置。

子格式边距()

带有活动文档。页面设置。LeftMargin=.左侧页边距误差点(0.5)。RightMargin=.右页边距(0.5)