Word VBA 公文自动排版（2023元旦版）

ly001

413191246se 发表于 2022-12-28 20:44
17楼朋友：如果你想让“章、节、条”等量词后面不留全角留半角空格，只须按 Alt + F8 打开宏名列表，找到“ ...

烦请问怎么避免其中的节数自动累加问题？

413191246se

* ly001 你好！——我编辑了一个小补丁程序。请正常《条文排版》后，应用下面的补丁程序即可（如果常用，可将宏名拷贝到《条文排版》宏的最后一行中，即“End Sub”语句之前）。
* 请将代码复制后，粘贴到新建文档中，全选，复制，粘贴到 VBE 中，以防乱码。

1. Sub a0820_SecReset_Patch()
   
2. '节数重设
   
3.     Dim doc As Document, i As Paragraph, j&
   
4.     Set doc = ActiveDocument
   
5.     With doc
   
6.         .Content.Find.Execute "(^13第)([一二三四五六七八九十百千零〇○Oo0０Ｏｏ]@)(节)", , , 1, , , , , , "\1一\3", 2
   
7.         For Each i In .Paragraphs
   
8.             With i.Range
   
9.                 If .Text Like "第*章　*" Then j = 0
   
10.                 If .Text Like "第一节　*" Then
    
11.                     j = j + 1
    
12.                     With doc.Range(Start:=.Start, End:=.Characters(InStr(.Text, "节")).Start)
    
13.                         .Delete
    
14.                         .Fields.Add Range:=.Paragraphs(1).Range, Text:="= " & j & " \* CHINESENUM3"
    
15.                         .Fields.Unlink
    
16.                         .InsertBefore Text:="第"
    
17.                     End With
    
18.                 End If
    
19.             End With
    
20.         Next
    
21.     End With
    
22. End Sub

复制代码

ly001

413191246se 发表于 2023-8-20 19:47
* ly001 你好！——我编辑了一个小补丁程序。请正常《条文排版》后，应用下面的补丁程序即可（如果常用，可 ...

谢谢！是我应用问题还是怎么的，不成功呀.....烦请测试下附件

ly001

谢谢楼主大神，问题找到了，是"第*章　*" "第一节　*"中空格的半角全角原因......

1120933984

万分感谢！！！！！！！！！！！！！

1834689

感谢分享！！！！

Lenananana。

大神你好，是不是word2021没法用呢？我装上一直提示宏禁用。设置了也不能用。

413191246se

楼上朋友，你好！——我的代码就是普通的宏代码。如果你平时能用宏，可以将我的代码复制后加到你的宏代码后边即可。我用的是 Word 2019，使用正常，2021 没有用过。

chenxq9335

谢谢分享，谢谢

413191246se

* 我的代码虽然比较普通，但一般性公文排版还是效果不错的。
* 希望新人朋友可以借鉴一下，代码中也有高人的代码，不全是我自己编写的。
* 比如：《循环遍历段落法》宏，《Word 查找》宏等。