在word中如何实现将蓝色字体两侧批量加上书名号？

x.kelf

原始文件：


修改后文件效果：

duquancai

无附件，不便于测试！！！

x.kelf

duquancai 发表于 2017-4-9 17:31
无附件，不便于测试！！！

測試文件.rar (3.47 KB, 下载次数: 16)

2017-4-9 17:41 上传

点击文件名下载附件

测试文件在这里。

duquancai

x.kelf 发表于 2017-4-9 17:41
测试文件在这里。

Sub shishi()
    With ActiveDocument.Content.Find
        .Font.ColorIndex = 2
        .Execute , , , , , , , , 1, "《^&》", 2
    End With
End Sub

x.kelf

duquancai 发表于 2017-4-9 17:49
Sub shishi()
    With ActiveDocument.Content.Find
        .Font.ColorIndex = 2

牛！感谢！
如果不用VBA，怎么设置？

duquancai

duquancai 发表于 2017-4-9 17:49
Sub shishi()
    With ActiveDocument.Content.Find
        .Font.ColorIndex = 2

因为不用VBA， 前台操作给你讲操作步骤，我烦！所以我不说了。

x.kelf

duquancai 发表于 2017-4-9 18:04
因为不用VBA， 前台操作给你讲操作步骤，我烦！所以我不说了。

好的。非常感谢！

jiminyanyan

^&原查找内容; 作个记号．．．．

13907933959

x.kelf 发表于 2017-4-9 18:00
牛！感谢！
如果不用VBA，怎么设置？

网友好！
如用手动“查找＼替换”：

可打开文档，同时按电脑键盘上的Ctrl和H键，调出“查找\替换”对话框（也可点击文档内左上角的：编辑→替换→也会弹出“查找＼替换”对话框），在查找内容框内，单击一下鼠标左键，再点击框内的“高级”→“格式”→“字体”→点“字体颜色”右边的v → 选定“蓝色”→“确定”。

在替换为框内输入：《^&》

点击框内的“全部替换”即可。

一望无垠

13907933959 发表于 2017-4-10 09:02
网友好！
如用手动“查找＼替换”：

你用的什么版本？我的2016里在查询框里无法输入：
再点击框内的“高级”→“格式”→“字体”→点“字体颜色”右边的v → 选定“蓝色”→“确定”