由 Index 指定的特定列表库中的列表模板重新设置为内置列表模板格式。
expression.Reset(Index)
expression 必需。该表达式返回以上一个对象。
Index Long 类型,必需。
应用于 Font、InlineShape、Paragraph、ParagraphFormat、Paragraphs 和 RoutingSlip 对象的 Reset 方法。
Font 对象:删除手动字符格式(不是使用样式应用的格式)。例如,如果手动将单词设为加粗格式,但基本样式并没有设为加粗,而是纯文本,则可用 Reset 方法删除加粗格式。
Paragraph、Paragraphs 或 ParagraphFormat 对象:删除手动设置的段落格式(不是使用样式应用的格式)。例如,如果手动将段落设为右对齐,而基本样式为其他对齐方式,则用 Reset 方法可将段落对齐方式设为与基本样式相同。
对于 RoutingSlip 对象:重新设置传送清单,以便新的传送能够使用同样的收件人清单和地址信息。完成该传送过程后才能使用此方法。
对于 InlineShape 对象:删除对嵌入式图形所作的改动。
expression.Reset
expression 必需。该表达式返回以上一个对象。
本示例删除选定部分中的手动设定的格式。
Selection.Font.Reset
本示例删除活动文档第二段的手动设定的段落格式。
ActiveDocument.Paragraphs(2).Reset
本示例准备将活动文档按照以前的设置发送给同一组收件人。
If ActiveDocument.HasRoutingSlip = True Then
ActiveDocument.RoutingSlip.Reset
End If
本示例首先将一幅图片作为嵌入式图形插入,并改变其亮度,然后再将其亮度重新设置为初始的亮度。
Set aInLine = ActiveDocument.InlineShapes.AddPicture _
(FileName:="C:\Windows\Bubbles.bmp", Range:=Selection.Range)
aInLine.PictureFormat.Brightness = 0.5
MsgBox "Changing brightness back"
aInLine.Reset
本示例将“项目符号和编号”对话框内“编号”选项卡上的第四种格式设置为内置编号格式,然后将其应用于选定部分。
ListGalleries(wdNumberGallery).Reset(4)
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(2).ListTemplates(4)
本示例重新设置“项目符号和编号”对话框内的所有列表模板,以仍旧使用内置格式。
For Each lg In ListGalleries
For i = 1 to 7
lg.Reset Index:=i
Next i
Next lg