请帮忙看看如何编写VBA来解决word中段落调整

20170306 · 发表于 2017-3-6 10:26

请大家帮忙看看在word 中如何用VBA编程将下面所有的“地址：。。。”移动到“联系人：。。。“”前面，其他位置不变。谢谢！

建设单位：江门市建筑有限公司
联系人：李先生
手机：13705671000
电话：0750-3980000
地址：广东江门蓬江区(529001)

供货公司：广西有限公司
联系人：张先生
电话：0750-3780000
地址：广西群星大道22号(429000)

单位：江门市设计院有限公司
联系人：王女士
电话：0750-3580000
地址：广东江门蓬江区(529000)

duquancai · 发表于 2017-3-6 12:39

附件不提供，还要帮你的人帮你做附件吗？如果说就你提供的这三组，自己复制粘贴也是分分钟搞定的事情，不必要用VBA

duquancai · 发表于 2017-3-6 13:04

Sub 一句代码搞定()
ActiveDocument.Content.Find.Execute "(联系人：[!^13]@^13)(*)(地址：[!^13]@^13)", , , 1, , , , , , "\3\1\2", 2
End Sub

20170306 · 发表于 2017-3-6 13:43

厉害，真是一句搞定了。
其实还有很多这样的内容，不过格式差不多，所以我没有都列出来。
谢谢了！
顺便问下，这是自己学的吗？

20170306 · 发表于 2017-3-6 13:50

有没有这方面的学习资料，推荐一下？

jiminyanyan · 发表于 2017-3-10 21:25

20170306 发表于 2017-3-6 13:50
有没有这方面的学习资料，推荐一下？

正则表达式可以在论坛里搜一下……。

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

[求助] 请帮忙看看如何编写VBA来解决word中段落调整