请求大神帮我写个宏，自动删出文档中的特定字符串，跪谢！

yangxi1212 · 发表于 2018-4-3 12:12

领导给了我一个20万字的文档，要我删除其中的特定的字符串，人工删我实在是吃不消了，谢谢各位大神了。具体要求是将文档中所有的记者名删除，预计有1000多处，因为每处的记者人名都不一样，所以没法批替换，只能写宏了。

  原文档节选：路透社海南三亚４月６日电（记者刘玉、郑多三）两国继续保持密切交往，共同规划好未来发展，不断推进两国合作。
                     路透社海南三亚６月６日电（记者王刚、谢鑫、张三）中医药的评价。

  修改后为：路透社海南三亚４月６日电两国继续保持密切交往，共同规划好未来发展，不断推进两国合作。
                     路透社海南三亚６月６日电中医药的评价。

有4地 · 发表于 2018-4-3 12:16

EXCEL必备工具箱你值得拥有，百度搜索EXCEL必备工具箱，第一个就是。

duquancai · 发表于 2018-4-3 12:20

显然你列举的东东不具有代表性！如果按照你的举例：替换调括号及其内容，查找替换就能搞定！

yangxi1212 · 发表于 2018-4-3 12:21

有4地发表于 2018-4-3 12:16
EXCEL必备工具箱你值得拥有，百度搜索EXCEL必备工具箱，第一个就是。

我是word文档，这个工具箱可以支持吗？

yangxi1212 · 发表于 2018-4-3 12:27

duquancai 发表于 2018-4-3 12:20
显然你列举的东东不具有代表性！如果按照你的举例：替换调括号及其内容，查找替换就能搞定！

真的吗，请问怎么操作呢？

2489586288 · 发表于 2018-4-3 12:36

word的查找替换功能很强大的，用好通配符就行了，你去网上搜索下使用技巧，不难的

duquancai · 发表于 2018-4-3 12:51

本帖最后由 duquancai 于 2018-4-3 12:52 编辑

yangxi1212 发表于 2018-4-3 12:27
真的吗，请问怎么操作呢？

使用通配符
查找框中输入
[\(（]*[\)）]
替换框中输入
^32
点击全部替换
存在风险：文档中所有的闭括号及其内容都将被替换为一个空格！

wdpfox · 发表于 2018-4-3 14:18

杜老师的热心值得学习与敬佩！

413191246se · 发表于 2018-4-3 23:42

在杜老师代码基础上，改了一下：
Sub test()
ActiveDocument.Content.Find.Execute "[\(（]记者*[\)）]", , , 1, , , , , , "^32^32", 2
End Sub

wdpfox · 发表于 2018-4-4 11:16

学习了，谢谢分享！

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

[求助] 请求大神帮我写个宏，自动删出文档中的特定字符串，跪谢！