①将格式应用于选定内容下列示例使用Selection属性将字符和段落格式应用于选定文本。使用Font属性获得字体格式的属性和方法,使用ParagraphFormat属性获得段落格式的属性和方法。SubFormatSelection()"TimesNewRoman".Size=().Space1EndWithEndSub②将格式应用于某一区域下列示例定义了一个Range对象,它引用了活动文档的前三个段落。通过应用Font和ParagraphFormat对象的属性来设置Range对象的格式。SubFormatRange()DimrngFormatAsRangeSetrngFormat=(_Start:=(1).(3).)"Arial".③插入文字并应用字符和段落格式下列示例在当前文档的上部添加单词Title。第一段居中对齐,并在该段落之后添加半英寸的间距。将单词Title的格式设为24磅Arial字体。SubInsertFormatText()DimrngFormatAsRangeSetrngFormat=(Start:=0,End:=0)"Title"."Tahoma".Size=(1).Alignment=()EndWithEndSub④在12磅和无之间切换段前间距下列示例切换选定内容中第一段的段前间距。宏将获取当前段前间距的值,如果该值为12磅,则删除段前间距格式(将SpaceBefore属性设为零)。如果段前间距的值为除12外的其它数值,则将SpaceBefore属性设为12磅。SubToggleParagraphSpace()(1)<>⑤切换加粗格式下列示例切换选定文本的加粗格式。SubToggleBold()⑥将左边距增加英寸下列示例将左边距和右边距增加英寸。PageSetup对象包含文档的所有的页面设置属性(左边距、下边距、纸张大小等)。LeftMargin属性用于返回和设置左边距设置。RightMargin属性用于返回和设置右边距设置。SubFormatMargins()().RightMargin=.RightMargin+InchesToPoints()EndWithEndSub