这个代码，运行不了，请老师帮忙修改一下，谢谢！

zhgj007

相见是缘8 发表于 2023-8-9 18:47
过客fppt 老师好！
好像不成，只查到一处，我那个一楼的代码，你有办法让它正常运行吗？

刚才发了一次，没成功。再发一次
调整了一下，我这是成功的，你复制代码，试一下。

Sub 选中指定查找的内容()
    Dim dw As Range
    Set dw = ActiveDocument.Content
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
        With dw.Find
.Format = True
        .Font.Color = wdColorBlue  '字体颜色、蓝色
   
        .Text = "([!^13]{1,})卷([一二三四五六七八九十]{1,})："
        .Forward = False  '向上查找
        .MatchWildcards = True
        Do While .Execute = True
            dw.Editors.Add wdEditorEveryone
       Loop
    End With
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End Sub

相见是缘8

zhgj007 发表于 2023-8-9 19:55
调整一下啊，在我这实验是成功的，你复制代码试一下。

zhgj007 老师好！
代码经你修改 OK！完美达愿！衷心感谢老师！

相见是缘8

过客fppt 发表于 2023-8-9 18:55
那你可以用for或者do循环：Call 查找("([!^13]{1,})卷([一二三四五六七八九十]{1,})：", 1, 0)
这样就可 ...

过客fppt  老师好！
我只是想选中，好进入下一步的操作，问题以被 zhgj007 老师完美解决，感谢你的相助！

相见是缘8

zhgj007 发表于 2023-8-9 19:59
刚才发了一次，没成功。再发一次
调整了一下，我这是成功的，你复制代码，试一下。

zhgj007 老师好！
完美达愿！衷心感谢！

zhgj007

相见是缘8 发表于 2023-8-10 07:37
zhgj007 老师好！
完美达愿！衷心感谢！