Word VBA教程:Reset方法

应用于 ListGallery对象的 Reset方法。

由 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   必需。该表达式返回以上一个对象。

 

VBA示例

当应用于 Font对象时。

本示例删除选定部分中的手动设定的格式。


Selection.Font.Reset

当应用于 Paragraph对象时。

本示例删除活动文档第二段的手动设定的段落格式。


ActiveDocument.Paragraphs(2).Reset

当应用于 RoutingSlip对象时。

本示例准备将活动文档按照以前的设置发送给同一组收件人。


If ActiveDocument.HasRoutingSlip = True Then
    ActiveDocument.RoutingSlip.Reset
End If

当应用于 InlineShape对象时。

本示例首先将一幅图片作为嵌入式图形插入,并改变其亮度,然后再将其亮度重新设置为初始的亮度。


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对象时。

本示例将“项目符号和编号”对话框内“编号”选项卡上的第四种格式设置为内置编号格式,然后将其应用于选定部分。


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

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号