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

niehongzhou9 · 发表于 2021-2-19 22:57

本帖最后由 niehongzhou9 于 2021-2-19 23:00 编辑

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

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

Sub 题注黑体()
'不选则全选
Dim r As Range
Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
With r.Find
.ClearFormatting
.Text = "图表"
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
If Not Selection.Type = wdSelectionIP Then
If .End > Selection.End Then Exit Do
End If
With .Paragraphs(1).Range.Font
.NameFarEast = "黑体"
.NameAscii = "Arial"
.Bold = False
End With
End With
Loop
End With
End Sub

复制代码

niehongzhou9 · 发表于 2021-2-20 17:37

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

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

niehongzhou9 · 发表于 2021-2-20 17:49

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

gemj · 发表于 2021-2-20 18:11

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

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

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

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

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

最后，全部替换。

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

gemj · 发表于 2021-2-20 18:12

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

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

niehongzhou9 · 发表于 2021-2-20 23:21

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

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

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

niehongzhou9 · 发表于 2021-2-20 23:50

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

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

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

413191246se · 发表于 2021-2-21 03:31

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

gemj · 发表于 2021-2-21 09:59

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

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

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

复制代码

		自动登录	找回密码
密码			免费注册

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

评分