word中某一文字中间插入指定文本

yuanfuyong

各位老师，我想达到的效果如图片所示，一般特定关键词是：解析：由上述分析可知，谢谢了

小花鹿

这种要求可以实现，但是，没什么意义                                                                                 

413191246se

楼主，原版照抄，有什么意思呢？还增加了篇幅。

yuanfuyong

413191246se 发表于 2019-6-3 23:53
楼主，原版照抄，有什么意思呢？还增加了篇幅。

你好，因为我要应用的时候，解析里面必须有答案里面的分析，有这样特征的题没有上面的分析解析就不完整，靠人力复制经常会忘记复制下来，我是要把这些题单独放到我们系统里，感谢你以前帮我解决了很多问题。

yuanfuyong

小花鹿 发表于 2019-6-3 18:05
这种要求可以实现，但是，没什么意义                                                                   ...

小花鹿老师，有意义哦，对我们来说很有意义，因为我们应用的时候经常会忘记复制答案后面的分析到解析里面哦，导致解析不完整，我们用的时候答案那一段都是删除的。希望能得到您的帮助。

413191246se

楼主，下面我用 VBA 写出来，因为我手动替换时，Word2003 崩溃了，手动替换极易崩溃。
前一个双引号内是查找内容，后一个双引号内是替换为内容，如果你想手动，勾选使用通配符，会 VBA 宏只须用宏一下即可。
Sub test()
    ActiveDocument.Content.Find.Execute "(^13答案[：:])(*)(解析[：:])", , , 1, , , , , , "\1\2\3\2", 2
End Sub

413191246se

"由上述分析可知"这样的语句只有两处，不知道楼上替换是否楼主本意？

yuanfuyong

413191246se 发表于 2019-6-4 15:50
"由上述分析可知"这样的语句只有两处，不知道楼上替换是否楼主本意？

老师，我试了一下，会把所有的都添加了，我只想要出现“上述分析可知”那道题添加上方的答案后面的文字，能帮我改进一下吗？谢谢

413191246se

楼主，我看你《原文》文档中只有两处“由上述分析可知”这句话，所以，我想可能你是想要全部添加，已改：
Sub test()
    ActiveDocument.Content.Find.Execute "(^13答案[：:])([!^13]{1,}^13)(解析[：:])(由上述分析可知[!^13]{1,}^13)", , , 1, , , , , , "\1\2\3\2\4", 2
End Sub

yuanfuyong

413191246se 发表于 2019-6-4 21:48
楼主，我看你《原文》文档中只有两处“由上述分析可知”这句话，所以，我想可能你是想要全部添加，已改：
...

恩恩，明白了，谢了