WordVBA中字符串查找替换进阶

iamadsl

请教，我使用查找替换代码时，报错，提示for each控件必须为变量或控件，什么原因呢？

另外，如果要指定查找和替换的样式，应该怎么写代码呢？

gaoxi369

学习了，太谢谢了。

aman1516

好贴，收藏学习一下

everlyvc

大神帮我把批量解密WORD文档的编辑限制，改成批量添加WORD文档的编辑限制，万分感谢。

chendeyan126

duquancai 发表于 2016-11-19 23:01
如果Word文档中无表格或者说就算有表格但是需要查找的内容根本不可能在表格中出现，代码可以：

word文档中有表格，正则提供的数值m（匹配文件第一个字符的位置）似乎是不准确的。表格在正则处理时是怎么产生影响的呢？

地铁纠魂

这种查找方法能查找到页眉页脚里面的内容吗

limonet

杜老师，请教一下，为什么要用Collection，优势在哪里？我试了一下，用oRang.Text ="新内容"，好像也可以，谢谢。
Sub Word文档中查找替换()
    Dim col As New Collection, k&
    Dim i, mt, oRang As Range, n%, m%
    With CreateObject("vbscript.regexp")
        .Pattern = "\s?年\s+月\s+日" '这里各显其能输入正则表达式（根据自己的需求）
        .Global = True: .IgnoreCase = False: .MultiLine = True
        For Each i In ActiveDocument.Paragraphs
            For Each mt In .Execute(i.Range.Text)
                k = k + 1
                m = mt.FirstIndex: n = mt.Length
                Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
                oRang.Text = "2022年1月6日"
            Next
        Next
    End With
'    For j = 1 To col.Count
'        col(j) = "2022年1月6日" '替换为字符(根据自己需要)
'    Next
End Sub

weiyingde

小花鹿 发表于 2016-11-20 10:11
第一段代码修改了一下，排除表格，不知对不对？
Sub Word文档中修改格式()
    Dim i As Paragraph, mt,  ...

小花鹿老师，你用“Asc(Right(i.Range, 1)) <> 7 ”屏蔽表格，很好用。在测试过程中，我的文档含有嵌入式commandbuton，CheckBox控件，程序不能正常运行，改用什么代码进行屏蔽呢？
请大侠指路。
谢谢你。

weiyingde

limonet 发表于 2022-1-6 18:15
杜老师，请教一下，为什么要用Collection，优势在哪里？我试了一下，用oRang.Text ="新内容"，好像也可以， ...

其作用是装入数据，我个人理解为和数组、字典作用差不多。你也可以用这两种。

lijunyong

使用该方法，具有一定的可行性，但当一个段落内有两个以上的要替换目标对象时，就出错了，请高人指点。