使宏代码替换支持通配符功能

cqz2022

我想如图这样设置替换内容，由于要替换的内容较多，所以录制了一段宏代码，但是执行是却不能让 “通配符”生效，求老师帮忙修改一下

代码中的红色是要替换的内容，使用通配符，指两个“/”之的部分都会被替换为①，实际操作中①的位置什么都没有，简单说就是用这方法，删除两个“/”之间的字符，包含两个“/”。 附件是部分文件，参考。谢谢。 27 166.rar (13.36 KB, 下载次数: 4)

2024-1-31 21:57 上传

点击文件名下载附件

Text =/*/
Replacement.Text = ①

1.     With Selection.Find
   
2.         .Text = "/*/"
   
3.         .Replacement.Text = ""
   
4.         .Forward = True
   
5.         .Wrap = wdFindContinue
   
6.         .Format = False
   
7.         .MatchCase = False
   
8.         .MatchWholeWord = False
   
9.         .MatchByte = False
   
10.         .MatchAllWordForms = False
    
11.         .MatchSoundsLike = False
    
12.         .MatchWildcards = True
    
13.     End With

复制代码

cqz2022

解释不通，但是目标实现 了

1. Selection.Find.ClearFormatting
   
2.     Selection.Find.Replacement.ClearFormatting
   
3.     Dim totalReport As Double
   
4.     Dim placeHolderRep As Variant
   
5.     Dim placeHolder As Variant
   
6. 
   
7.     ActiveDocument.Select
   
8. 
   
9.     totalReport = 0#
   
10.     Selection.Find.ClearFormatting
    
11.     With Selection.Find
    
12.      .Text = "/*/"
    
13.      .Replacement.Text = ""
    
14.      .Forward = True
    
15.      .Wrap = wdFindContinue
    
16.      .Format = False
    
17.      .MatchCase = False
    
18.      .MatchWholeWord = False
    
19.      .MatchAllWordForms = False
    
20.      .MatchSoundsLike = False
    
21.      .MatchWildcards = True
    
22.     End With

复制代码

taller

这个代码只是查找，没有替换

过客fppt

一开始我还以为你是要在execl中进行通配符的查找，结果看代码才发现是在Word中的

1. `Selection.Find.ClearFormatting`：清除搜索操作的格式设置。
   
2. 
   
3. `Selection.Find.Replacement.ClearFormatting`：清除替换操作的替换文本的格式设置。
   
4. 
   
5. `ActiveDocument.Select`：选中当前活动文档。
   
6. 
   
7. `Selection.Find.ClearFormatting`：清除搜索操作的格式设置。'重复了
   
8. 
   
9. 以下是对`Selection.Find`的各个属性的注释：
   
10. - `.Text = "/*/"`：搜索文本为"/*/"，表示任意字符序列。
    
11. - `.Replacement.Text = ""`：替换文本为空字符串，即删除搜索到的内容。
    
12. - `.Forward = True`：向前搜索。
    
13. - `.Wrap = wdFindContinue`：在搜索到文档结尾后从文档开头重新开始搜索。
    
14. - `.Format = False`：不考虑文本格式。
    
15. - `.MatchCase = False`：不区分大小写。
    
16. - `.MatchWholeWord = False`：不仅匹配完整单词。
    
17. - `.MatchAllWordForms = False`：不考虑单词的所有形式。
    
18. - `.MatchSoundsLike = False`：不考虑发音相似的单词。
    
19. - `.MatchWildcards = True`：使用通配符进行搜索。

复制代码

tanglf188

    With Selection.Find
        .Text = "/*/"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

gwjkkkkk

其实录制一下宏就可解决。。。

过客fppt

建议写成自定义函数，方便下次使用，比如:
【用VBA编写自定义函数，结合通配符，批量排版Word文档的标题和字体,批量删除空行等 - CSDN App】http://t.csdnimg.cn/QTKRI