如何查找行首数字，在其后加一个.

xvbwily · 发表于 2019-7-5 21:10

请高手指点一下方法，万分感谢！

xvbwily · 发表于 2019-7-5 21:13

如图所示，要把图中标示出来的数字后面统一加一个点号。文件长达100页，无法手动添加，请高手指点为盼，非常感谢。

xvbwily · 发表于 2019-7-5 21:13

图片来了图片来了图片来了

loquat · 发表于 2019-7-5 23:36

查找替换大法。

413191246se · 发表于 2019-7-6 05:51

楼主，图片第一行文字也是需要加点的；数字后空格未考虑，请做好备份好，试试下面的宏（实际就是查找和替换的VBA宏化）：
Sub a数字后面加小数点()
ActiveDocument.Content.Find.Execute "(^13)([0-9]{1,})([!.])", , , 1, , , , , , "\1\2.\3", 2
ActiveDocument.Content.Find.Execute "(^13)([ 　^s^t]{1,})([0-9]{1,})", , , 1, , , , , , "\1\3.", 2
End Sub

duquancai · 发表于 2019-7-6 11:20

xvbwily 发表于 2019-7-5 21:13
图片来了图片来了图片来了

图片来了没用，要来附件。万一你图片中的编号是自动编号呢？

413191246se · 发表于 2019-7-6 13:44

杜老师又说对了！我又认为楼主的图片中的编号是手动的，忘了考虑自动编号这种情况。
杜老师，请教一下，我按 Alt + F9 观察不到自动编号的域代码，这是怎么回事呢？
难道自动编号不是域吗？

xvbwily · 发表于 2019-7-7 09:32

确实是自动编号的

xvbwily · 发表于 2019-7-7 09:34

我已经搞定了。就是查找(^13[0-9])，替换为\1.

xvbwily · 发表于 2019-7-7 09:35

这样的话，会导致行道序号为10，11，12变成1.0，1.1，1.2，但这样子的数据很少。手动修改一下就行了

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

[求助] 如何查找行首数字，在其后加一个.