如何批量修改WORD的段落格式?(有附件)

wenbin · 发表于 2019-5-23 14:59

修改前如下：

1、 一元观影

2、 面包有“新语”

3、 ETC高速89折优惠

修改后如下：

1、一元观影

2、面包有“新语”

3、ETC高速89折优惠

修改前的格式开头1前面无法空格,而且1和一元观影之间的间距过大

问题:如何把上述红色的 1 2 3格式批量更改成下面的紫色格式?

ming0018 · 发表于 2019-5-23 15:31

ActiveDocument.Content.ListFormat.ConvertNumbersToText

之后再用查找替换

wenbin · 发表于 2019-5-23 15:35

楼上的, 能详细说一下吗?

ming0018 · 发表于 2019-5-23 15:38

楼主能自学一下吗？

wenbin · 发表于 2019-5-23 16:33

OK,还是要谢谢你的

413191246se · 发表于 2019-5-23 23:38

楼主明显不懂制表位！点击“格式”菜单——制表位——全部清除——默认制表位：0 字符——确定！

wdpfox · 发表于 2019-5-24 10:36

本帖最后由 wdpfox 于 2019-5-24 10:39 编辑

With ActiveDocument.Content.Find


      .Execute "(^13)([0-9]{1,2}、)([^32^ｔ]{1,})", , , 1, , , , , , "\1\2", 2


End With

                                    莫愁前路无知己，天下谁人不识君！海内存知己，天涯若比邻！

wenbin · 发表于 2019-5-24 12:45

413191246se 发表于 2019-5-23 23:38
楼主明显不懂制表位！点击“格式”菜单——制表位——全部清除——默认制表位：0 字符——确定！

谢了啊,感谢指正

wenbin · 发表于 2019-5-24 12:49

wdpfox 发表于 2019-5-24 10:36
With ActiveDocument.Content.Find

认真琢磨, 有不懂再向你请教。

15060578610 · 发表于 2019-5-27 22:30

右键-调整列表缩进-编号之后：“制表符”更改为“空”

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

[求助] 如何批量修改WORD的段落格式?(有附件)