Word VBA教程:Replacement对象

   
Find
Replacement
多种对象

该对象代表查找和替换操作的替换条件。Replacement对象的属性和方法与“查找和替换”对话框中的选项一致。

使用 Replacement对象

使用Replacement属性可返回一个 Replacement对象。下列示例将下一处出现的单词“hi”替换为“hello”。


With Selection.Find
    .Text = "hi"
    .ClearFormatting
    .Replacement.Text = "hello"
    .Replacement.ClearFormatting
    .Execute Replace:=wdReplaceOne, Forward:=True
End With

若要查找和替换格式,可将查找和替换文字设为空字符串 (""),并将Execute方法的 Format参数设为 True。下列示例删除活动文档中的所有加粗格式。Find对象的Bold属性值为 True,而 Replacement对象的该属性值为 False。


With ActiveDocument.Content.Find
    .ClearFormatting
    .Font.Bold = True
    .Text = ""
    With .Replacement
        .ClearFormatting
        .Font.Bold = False
        .Text = ""
    End With
    .Execute Format:=True, Replace:=wdReplaceAll
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号