高手进！如何将每段段首的序号降级？？？？

〖Light〗

原文如下： 一、概述 二、详细说明 三、主要问题 （一）价格问题 1.书报费 本次书报费暂定每人每日1.20元。请各单位将购买的书名、报纸名称分别进行统计。 2.份数问题 ；；将每段段首的序号降级，成下面的效果，而不改变段落内容中的相似数字内容如“1.20元”；； （一）概述 （二）详细说明 （三）主要问题 1.价格问题 （1）书报费 本次书报费暂定每人每日1.20元。请各单位将购买的书名、报纸名称分别进行统计。 （2）份数问题

daibao88

勾选使用通配符 查找 ^13([一二三四五六七八九十]{1,})(、)   替换^13(\1)   其它同理

413191246se

楼主，这个问题，前一段不是解决了吗？

〖Light〗

有点小问题，文章中无是（一）（二）还是（三），替换都变成1.了。

ming0018

正则可能更靠谱一些

413191246se

楼主，再用我的自动排版宏排版一下就 OK 了！

413191246se

1. Sub aaab序号降级1()
   
2. 
   
3. '标题4降级为标题5：1.=>(1)
   
4.     With ActiveDocument.Content.Find
   
5.         .ClearFormatting
   
6.         .Text = "^13[0-9]{1,}[、．.]"
   
7.         .Forward = True
   
8.         .MatchWildcards = True
   
9.         Do While .Execute
   
10.             With .Parent
    
11.                 .Characters.Last.Text = "）"
    
12.                 .Characters.First.InsertAfter Text:="（"
    
13.                 .MoveEnd
    
14.                 .Font.Color = wdColorPink '粉红（本行代码可删除）
    
15.                 .Start = .End
    
16.             End With
    
17.         Loop
    
18.     End With
    
19. 
    
20. '标题3降级为标题4：（一）=>1.
    
21.     Dim n&
    
22.     With ActiveDocument.Content.Find
    
23.         .ClearFormatting
    
24.         .Text = "^13[(（][一二三四五六七八九十百零〇○]{1,}[）)]"
    
25.         .Forward = True
    
26.         .MatchWildcards = True
    
27.         Do While .Execute
    
28.             n = n + 1
    
29.             With .Parent
    
30.                 .MoveStart
    
31.                 .Text = n & "．"
    
32.                 .Font.Color = wdColorGreen '绿色（本行代码可删除）
    
33.                 .Start = .End
    
34.             End With
    
35.         Loop
    
36.     End With
    
37. 
    
38. '标题2降级为标题3：一、=>（一）
    
39.     With ActiveDocument.Content.Find
    
40.         .ClearFormatting
    
41.         .Text = "^13[一二三四五六七八九十百零〇○]{1,}、"
    
42.         .Forward = True
    
43.         .MatchWildcards = True
    
44.         Do While .Execute
    
45.             With .Parent
    
46.                 .Characters.Last.Text = "）"
    
47.                 .Characters.First.InsertAfter Text:="（"
    
48.                 .MoveEnd
    
49.                 .Font.Color = wdColorRed '红色（本行代码可删除）
    
50.                 .Start = .End
    
51.             End With
    
52.         Loop
    
53.     End With
    
54. End Sub

复制代码

〖Light〗

413191246se 发表于 2019-7-24 01:55

  感谢。刚试了下，'标题3降级为标题4：（一）=>1.  段落编号（一）（二）。。。会全部变成1.  其余的都没有问题

413191246se

* 楼主，你好！——我在 Word2003 中测试没有问题，又在 Word2007 中测试也觉得没有问题。
* 下面有两张在 Word2007 下测试的图片，请认真核实一下，咱们两个谁是正确的呢？
*
*

〖Light〗

413191246se 发表于 2019-7-27 14:29
* 楼主，你好！——我在 Word2003 中测试没有问题，又在 Word2007 中测试也觉得没有问题。
* 下面有两张在 ...

恩，我再去试试。感谢