定制宏按钮，删除特定颜色字体的内容

tengshj

我在说一个模板文档，其中种特定颜色的字体来做说明。希望
1. 在工具栏定制一个按钮
2. 按下按钮，可以将说明的文字（特定颜色，字体）全部删除。

论坛的搜索功能有点异常？

tengshj

怎么做呢，
下面是我写的。有两个问题
1. 按钮不在工具栏上，而在快捷工具栏上
2. 只能删除第一节内的相应文字。还会报错
Sub X()
'
' X 宏
'
Dim Wrd As Range
Dim i
i = 11874495
For Each Wrd In ActiveDocument.Words
If Wrd.Font.ColorIndex <> i Then Wrd.Delete -- 此句报错！
Next Wrd

End Sub

ming0018

你的需求是删除word文档中某个颜色的文字是吗？请说明清楚！

tengshj

是的，删除全部特定颜色和特定字体的内容

ming0018

用查找替换可以做，自己录个宏就知道了。

tengshj

已经试过，不行。不知道为什么。 所以才来提问。

tengshj

ming0018 发表于 2018-9-29 15:46
你的需求是删除word文档中某个颜色的文字是吗？请说明清楚！

我第一个提问就说清楚了，请看清楚！

相见是缘8

tengshj 发表于 2018-9-29 15:54
是的，删除全部特定颜色和特定字体的内容

朋友、据我所知 “录制宏” 好像对颜色是没办法。

如是删除word文档中，某种颜色的文字或某种字体，看下面的这个代码是不是可以满足你的要求？

Sub 宋体和红色字体全部删除()
    With ActiveDocument.Content.Find
        .Font.Color = wdColorRed
        .Execute FindText:="", replacewith:="", Format:=True, Replace:=wdReplaceAll
    End With
    With ActiveDocument.Content.Find
        .Font.Name = "宋体"
        .Execute FindText:="", replacewith:="", Replace:=wdReplaceAll
    End With
End Sub

如想要把该代码设置一个快捷按钮，可打开一个Word文档，依次右击文档上面的“工具→自定义→在出来的对话窗口→命令→（左边的）宏→在右边找到那个宏→拖动到文档上面的工具栏中的合适位置，注意，这时不要关闭“自定义”对话框。右击刚刚拖到工具栏上的“Normal New Macros.test”，在弹出的快捷菜单中，选择“命名(N)”，将“命名”后面框中的“Normal.New Macros.test”删除，改为想要的名称（也可以用其它的任何图标、符号），关闭“自定义”对话框，即可。

tengshj

相见是缘8 发表于 2018-10-1 07:36
朋友、据我所知 “录制宏” 好像对颜色是没办法。

如是删除word文档中，某种颜色的文字或某种字体，看 ...

非常感谢，有用！！