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

chipower

楼主辛苦了，这么多年一直保持定时更新，太厉害了。祝身体健康，万事如意。

xinhairen999

感谢分享，楼主一生平安

微笑de背后

谢谢分享，下载试试

zhdqsd

楼主你好，"章/条/节/课/题/篇/款/部分/阶段"，这个里，怎么把节分出来，每章里的节都是从一开始。节做为三级目录

413191246se

楼上朋友，你好！——请在正常操作之后，执行下面的补丁程序，即可将章下面的节号重排为 1（注意：请将代码复制到空白文档后，全选，剪切，再粘贴到 VBE 中再使用，以免汉字有乱码）。默认“节”字段落排版后是标题 2，现在降为标题 3，但格式可能有问题（有问题请反馈）。

1. Sub a0301_AutoNumRestart()
   
2. '章下节号重排
   
3.     Const s As String = "[一二三四五六七八九十百零千]"
   
4.     Dim i As Paragraph, n&, k&
   
5.     For Each i In ActiveDocument.Paragraphs
   
6.         With i.Range
   
7.             If .Text Like "第" & s & "章*" Or _
   
8.                 .Text Like "第" & s & s & "章*" Or _
   
9.                 .Text Like "第" & s & s & s & "章*" Or _
   
10.                 .Text Like "第" & s & s & s & s & "章*" Or _
    
11.                 .Text Like "第" & s & s & s & s & s & "章*" Then n = 0
    
12.             If .Text Like "第" & s & "节*" Or _
    
13.                 .Text Like "第" & s & s & "节*" Or _
    
14.                 .Text Like "第" & s & s & s & "节*" Or _
    
15.                 .Text Like "第" & s & s & s & s & "节*" Or _
    
16.                 .Text Like "第" & s & s & s & s & s & "节*" Then
    
17.                 n = n + 1
    
18.                 ActiveDocument.Range(i.Range.Start, i.Range.Characters(InStr(i.Range.Text, "节")).End - 1).Delete
    
19.                 With .Characters(1)
    
20.                     .Fields.Add Range:=.Paragraphs(1).Range, Text:="= " & n & " \* CHINESENUM3"
    
21.                     .Fields.Unlink
    
22.                     .InsertBefore Text:="第"
    
23.                 End With
    
24.                 .Style = wdStyleHeading3
    
25.             End If
    
26.         End With
    
27.     Next
    
28. '''
    
29.     With ActiveDocument.Styles(wdStyleHeading3).Font
    
30. '        .NameFarEast = "宋体"
    
31. '        .NameAscii = "Times New Roman"
    
32.         .ColorIndex = wdGreen
    
33.     End With
    
34.     ActiveDocument.Styles(wdStyleHeading3).ParagraphFormat.Alignment = wdAlignParagraphCenter
    
35. End Sub

复制代码

jyjzfl

谢谢楼主，给我们带来了方便和效率。

zhdqsd

感谢楼主的补充，使我们的工作效率提高了很多

zhdqsd

你好，如果编号不是通篇的，不让他自动编号，怎么处理啊。

413191246se

楼上朋友，请提供附件，说明目标。

dongdonggege

楼主好，Word画三圆交叉阴影，很值得研究。
也就是，画两个交叉圆的阴影，或三个交叉圆的阴影，用VBA表示，这个怎么表示呢？
盼楼主能写出研究文章。如果楼主能感兴趣，我愿意把写的文章奉献出来。
详情，请见贴吧http://tieba.baidu.com/p/923724176。