高手进，请问如何批量修改公文段首序号？？？？

〖Light〗

原文如下：

一、概述

二、详细说明

三、主要问题

（一）价格问题

1.书报费

本次书报费暂定每人每日1.20元。请各单位将购买的书名、报纸名称分别进行统计。

2.份数问题

；；将每段段首的序号降级，成下面的效果，而不改变段落内容中的相似数字内容如“1.20元”；；

（一）概述

（二）详细说明

（三）主要问题

1.价格问题

（1）书报费

本次书报费暂定每人每日1.20元。请各单位将购买的书名、报纸名称分别进行统计。

（2）份数问题

〖Light〗

谢谢各位，帮忙给看看。。。

wdpfox

从最小级别到最高级别逐次降级即可

413191246se

1. Sub test标题降级()
   
2.     With ActiveDocument.Content.Find
   
3.         .Execute "(^13)([0-9]{1,})[.．、]", , , 1, , , , , , "\1（\2）", 2
   
4.         .Execute "(^13)(（[一二三四五六七八九十百零]{1,}）)", , , 1, , , , , , "\11．", 2
   
5.         .Execute "(^13)([一二三四五六七八九十百零]{1,})、", , , 1, , , , , , "\1（\2）", 2
   
6.     End With
   
7. End Sub

复制代码

* 执行上面的宏后，再用我的《集成版》"公文"排版即可将标题序号自动编号。
* 如果不懂宏，则……不好说了！现在谁不懂宏，谁效率低，还是学一学 VBA 宏的运用。

小花鹿

研究一下WORD的查找替换，功能很强大                                                                                       

〖Light〗

413191246se 发表于 2019-6-10 01:46
* 执行上面的宏后，再用我的《集成版》"公文"排版即可将标题序号自动编号。
* 如果不懂宏，则……不好说 ...

谢谢，我去试试

〖Light〗

小花鹿 发表于 2019-6-10 08:14
研究一下WORD的查找替换，功能很强大                                                                   ...

VBA
中用查找替换吗？