查找关键字，然后替换关键字所在段落的样式

niehongzhou9

所图所示，“图表”这二个字所在的段落样式是不对的（包括字体不统一/有时候整段都是宋体等，而正确的是全段都是黑体），需要重新应用正确的段落样式。查找替换功能某似没有办法做到。
请问各位大佬，有没有好办法处理这种情况呢，我是每次只能手动去做。

413191246se

1. Sub 题注黑体()
   
2. '不选则全选
   
3.     Dim r As Range
   
4.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
5.     With r.Find
   
6.         .ClearFormatting
   
7.         .Text = "图表"
   
8.         .Forward = True
   
9.         .MatchWildcards = True
   
10.         Do While .Execute
    
11.             With .Parent
    
12.                 If Not Selection.Type = wdSelectionIP Then
    
13.                     If .End > Selection.End Then Exit Do
    
14.                 End If
    
15.                 With .Paragraphs(1).Range.Font
    
16.                     .NameFarEast = "黑体"
    
17.                     .NameAscii = "Arial"
    
18.                     .Bold = False
    
19.                 End With
    
20.             End With
    
21.         Loop
    
22.     End With
    
23. End Sub

复制代码

niehongzhou9

413191246se 发表于 2021-2-20 02:44

大侠，您太牛了。这个具体怎么用呢。

niehongzhou9

有没有选项让我点击的，因为文件中，还有其它地方有“图表”二字，而且是不需要调整样式的。

gemj

niehongzhou9 发表于 2021-2-20 17:49
有没有选项让我点击的，因为文件中，还有其它地方有“图表”二字，而且是不需要调整样式的。

这个直接用替换就可以，很方便的。
文档里得有希望的段落样式，如果没有，先设置一个好比名称为tubiao的样式，字体为黑体等等。

然后替换：
勾选使用通配符

查找内容：
图表[0-9]@^32
或者：
图表[0-9]
具体看文档的内容特点。

替换为框内容是空的，但样式选择tubiao

最后，全部替换。

这类操作，是WORD非常擅长的了。

gemj

niehongzhou9 发表于 2021-2-20 17:49
有没有选项让我点击的，因为文件中，还有其它地方有“图表”二字，而且是不需要调整样式的。

您所想要的选项，更改表达式就可以了。

niehongzhou9

gemj 发表于 2021-2-20 18:11
这个直接用替换就可以，很方便的。
文档里得有希望的段落样式，如果没有，先设置一个好比名称为tubiao的 ...

这个非常好，可以控制想要替要和不想要替换的部分，谢谢哈。。

还想问一下，有没有办法，把这个查找和替换的内容，保存起来，然后下次不用再次输入，像宏一样的，点击就可以运行的方法呢。因为平时经常有这样的操作。

niehongzhou9

gemj 发表于 2021-2-20 18:11
这个直接用替换就可以，很方便的。
文档里得有希望的段落样式，如果没有，先设置一个好比名称为tubiao的 ...

这个非常好，可以直接控制 想替换和不想替换的地方，感谢！

另外，我想问一下这种查找替换操作，是否可以保存起来，然后下一次再用，而不用再次输入呢。因为平时有很多这样的文件需要操作。

413191246se

请楼主查询一下关键词“录制宏”。

gemj

niehongzhou9 发表于 2021-2-20 23:50
这个非常好，可以直接控制 想替换和不想替换的地方，感谢！

另外，我想问一下这种查找替换操作，是否 ...

1. Sub TubiaoStyle()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Replacement.ClearFormatting
   
5.         .Replacement.Style = "tubiao"
   
6.         .Execute FindText:="图表[0-9]@^32", ReplaceWith:="", Format:=True, Forward:=True, Replace:=wdReplaceAll, MatchWildcards:=True
   
7.     End With
   
8. End Sub

复制代码