Word VBA教程:Replacement属性

返回一个Replacement对象,该对象包含了一次替换操作所需的条件。

expression.Replacement

expression   必需。该表达式返回一个Find对象。

VBA示例

本示例取消活动文档中的加粗格式。对于 Find对象,Bold属性为 True;对于 Replacement对象,Bold属性为 False。


With ActiveDocument.Content.Find
    .ClearFormatting
    .Font.Bold = True
    With .Replacement
        .ClearFormatting
        .Font.Bold = False
    End With
    .Execute FindText:="", ReplaceWith:="", Format:=True, _
        Replace:=wdReplaceAll
End With

本示例将在活动文档中查找到的“Start”替换为“End”。查找操作忽略查找文字的格式,但大小写需要匹配(“Start”)。


Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
    .ClearFormatting
    .Text = "Start"
    With .Replacement
        .ClearFormatting
        .Text = "End"
    End With
    .Execute Replace:=wdReplaceAll, _
        Format:=True, MatchCase:=True, _
        MatchWholeWord:=True
End With

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号