word2019，标题格式化问题

包昆

向各位请教一下标题格式化的问题。我根据守柔(SHOUROU)WORD 编程代码集“四) 段落样式与格式的应用”，调整代码如下，希望可以做到1-9级标题格式、段落、字体统一，一级标题为“第一章”格式。运行报错4608，数值超出范围。附件为测试文档。
代码如下：



Sub 标题格式化()
    Dim i As Paragraph, MyStr As String
    Application.ScreenUpdating = False
    MyStr = "第一二三四五六七八九十章"
    For Each i In Me.Paragraphs
        If i.Range Like "#.#.#.#.#.#.#.#.#*" = True Then
            i.Style = wdStyleHeading9
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 12
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf i.Range Like "#.#.#.#.#.#.#.#*" = True Then
            i.Style = wdStyleHeading8
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 12
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf i.Range Like "#.#.#.#.#.#.#*" = True Then
            i.Style = wdStyleHeading7
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 12
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf i.Range Like "#.#.#.#.#.#*" = True Then
            i.Style = wdStyleHeading6
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 12
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf i.Range Like "#.#.#.#.#*" = True Then
            i.Style = wdStyleHeading5
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 12
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf i.Range Like "#.#.#.#*" = True Then
            i.Style = wdStyleHeading4
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 14
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf i.Range Like "#.#.#*" = True Then
            i.Style = wdStyleHeading3
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 15
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf i.Range Like "#.#*" = True Then
            i.Style = wdStyleHeading2
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 16
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        ElseIf InStr(MyStr, Me.Range(i.Range.Start, i.Range.Start + 4).Text) > 0 Then
            i.Style = wdStyleHeading1
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 22
            .Bold = True
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        Else
            i.Style = wdStyleNormal
            With i.Range.Font
            .NameFarEast = "宋体"
            .NameAscii = "宋体"
            .Size = 10.5
            .Bold = False
            .Color = wdColorAutomatic
            End With
            With i.Range.ParagraphFormat
            .Space2
            .IndentFirstLineCharWidth 2
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

413191246se

* 请将代码复制到空白文档后，全选，剪切，再粘贴到 VBE 中，以防乱码。代码仅供参考！

1. Sub TitleStyle999()
   
2.     Const ChnNum As String = "[一二三四五六七八九十百千零〇○Oo0０Ｏｏ]@"
   
3.     Dim i As Paragraph, n&
   
4. 
   
5.     ActiveDocument.Content.Find.Execute "(^13第)" & ChnNum & "(章)", , , 1, , , , , , "\1一\2　", 2
   
6. 
   
7.     For Each i In ActiveDocument.Paragraphs
   
8.         With i.Range
   
9.             If .Text Like "#.#.#.#.#.#.#.#.#*" Then
   
10.                 .Style = wdStyleHeading9
    
11.                 GoSub sk
    
12.             ElseIf .Text Like "#.#.#.#.#.#.#.#*" Then
    
13.                 .Style = wdStyleHeading8
    
14.                 GoSub sk
    
15.             ElseIf .Text Like "#.#.#.#.#.#.#*" Then
    
16.                 .Style = wdStyleHeading7
    
17.                 GoSub sk
    
18.             ElseIf .Text Like "#.#.#.#.#.#*" Then
    
19.                 .Style = wdStyleHeading6
    
20.                 GoSub sk
    
21.             ElseIf .Text Like "#.#.#.#.#*" Then
    
22.                 .Style = wdStyleHeading5
    
23.                 GoSub sk
    
24.             ElseIf .Text Like "#.#.#.#*" Then
    
25.                 .Style = wdStyleHeading4
    
26.                 GoSub sk
    
27.                 .Font.Size = 14
    
28.             ElseIf i.Range Like "#.#.#*" Then
    
29.                 .Style = wdStyleHeading3
    
30.                 GoSub sk
    
31.                 .Font.ColorIndex = wdGreen
    
32.                 .Font.Size = 15
    
33.             ElseIf .Text Like "#.#*" Then
    
34.                 .Style = wdStyleHeading2
    
35.                 GoSub sk
    
36.                 .Font.ColorIndex = wdPink
    
37.                 .Font.Size = 16
    
38.             ElseIf .Text Like "第一章*" Then
    
39.                 .Style = wdStyleHeading1
    
40.                 GoSub sk
    
41.                 .Font.ColorIndex = wdRed
    
42.                 .Font.Size = 22
    
43.                 n = n + 1
    
44.                 .Characters(1).Delete
    
45.                 .Characters(1).Delete
    
46.                 .Fields.Add Range:=.Paragraphs(1).Range, Text:="= " & n & " \* CHINESENUM3"
    
47.                 .Fields.Unlink
    
48.                 .InsertBefore Text:="第"
    
49.             Else
    
50.                 .Style = wdStyleNormal
    
51.                 GoSub sk
    
52.                 .Font.ColorIndex = wdBlue
    
53.                 .Font.Size = 10.5
    
54.             End If
    
55.         End With
    
56.     Next
    
57.     Exit Sub
    
58. 
    
59. sk:
    
60.     With i.Range
    
61.         With .Font
    
62.             .NameFarEast = "宋体"
    
63.             .NameAscii = "Times New Roman"
    
64.             .Size = 12
    
65.             .Bold = True
    
66.             .Color = wdColorAutomatic
    
67.         End With
    
68.         With .ParagraphFormat
    
69.             .Space2
    
70.             .LeftIndent = CentimetersToPoints(0)
    
71.             .RightIndent = CentimetersToPoints(0)
    
72.             .CharacterUnitLeftIndent = 0
    
73.             .CharacterUnitRightIndent = 0
    
74.         End With
    
75.     End With
    
76.     Return
    
77. End Sub

复制代码

包昆

413191246se 发表于 2024-1-12 02:37
* 请将代码复制到空白文档后，全选，剪切，再粘贴到 VBE 中，以防乱码。代码仅供参考！

感谢您的回复。
运行代码后，有点小问题，一级标题格式没有实现，另外还删除了文字。
谢谢！

包昆

非常感谢413191246se，以下是我调整后的代码，实现了我需要的效果，感谢！

1. Sub 标题格式化()
   
2. 
   
3.     Const ChnNum As String = "[一二三四五六七八九十百千零〇○Oo0０Ｏｏ]@"
   
4.     Dim i As Paragraph, n&
   
5. 
   
6.     ActiveDocument.Content.Find.Execute "(^13第)" & ChnNum & "(章)", , , 1, , , , , , "\1一\2　", 2
   
7. 
   
8.     For Each i In ActiveDocument.Paragraphs
   
9.         With i.Range
   
10.             If .Text Like "#.#.#.#.#.#.#.#.#*" Then
    
11.                 .Style = wdStyleHeading9
    
12.                 With .Font
    
13.                 .NameFarEast = "宋体"
    
14.                 .NameAscii = "宋体"
    
15.                 .Size = 12
    
16.                 .Bold = True
    
17.                 .Color = wdColorAutomatic
    
18.                 End With
    
19.                 With .ParagraphFormat
    
20.                 .Space2
    
21.                 .LeftIndent = CentimetersToPoints(0)
    
22.                 .RightIndent = CentimetersToPoints(0)
    
23.                 .Alignment = wdAlignParagraphJustify
    
24.                 .CharacterUnitLeftIndent = 0
    
25.                 .CharacterUnitRightIndent = 0
    
26.                 End With
    
27.             ElseIf .Text Like "#.#.#.#.#.#.#.#*" Then
    
28.                 .Style = wdStyleHeading8
    
29.                 With .Font
    
30.                 .NameFarEast = "宋体"
    
31.                 .NameAscii = "宋体"
    
32.                 .Size = 12
    
33.                 .Bold = True
    
34.                 .Color = wdColorAutomatic
    
35.                 End With
    
36.                 With .ParagraphFormat
    
37.                 .Space2
    
38.                 .LeftIndent = CentimetersToPoints(0)
    
39.                 .RightIndent = CentimetersToPoints(0)
    
40.                 .Alignment = wdAlignParagraphJustify
    
41.                 .CharacterUnitLeftIndent = 0
    
42.                 .CharacterUnitRightIndent = 0
    
43.                 End With
    
44.             ElseIf .Text Like "#.#.#.#.#.#.#*" Then
    
45.                 .Style = wdStyleHeading7
    
46.                 With .Font
    
47.                 .NameFarEast = "宋体"
    
48.                 .NameAscii = "宋体"
    
49.                 .Size = 12
    
50.                 .Bold = True
    
51.                 .Color = wdColorAutomatic
    
52.                 End With
    
53.                 With .ParagraphFormat
    
54.                 .Space2
    
55.                 .LeftIndent = CentimetersToPoints(0)
    
56.                 .RightIndent = CentimetersToPoints(0)
    
57.                 .Alignment = wdAlignParagraphJustify
    
58.                 .CharacterUnitLeftIndent = 0
    
59.                 .CharacterUnitRightIndent = 0
    
60.                 End With
    
61.             ElseIf .Text Like "#.#.#.#.#.#*" Then
    
62.                 .Style = wdStyleHeading6
    
63.                 With .Font
    
64.                 .NameFarEast = "宋体"
    
65.                 .NameAscii = "宋体"
    
66.                 .Size = 12
    
67.                 .Bold = True
    
68.                 .Color = wdColorAutomatic
    
69.                 End With
    
70.                 With .ParagraphFormat
    
71.                 .Space2
    
72.                 .LeftIndent = CentimetersToPoints(0)
    
73.                 .RightIndent = CentimetersToPoints(0)
    
74.                 .Alignment = wdAlignParagraphJustify
    
75.                 .CharacterUnitLeftIndent = 0
    
76.                 .CharacterUnitRightIndent = 0
    
77.                 End With
    
78.             ElseIf .Text Like "#.#.#.#.#*" Then
    
79.                 .Style = wdStyleHeading5
    
80.                 With .Font
    
81.                 .NameFarEast = "宋体"
    
82.                 .NameAscii = "宋体"
    
83.                 .Size = 12
    
84.                 .Bold = True
    
85.                 .Color = wdColorAutomatic
    
86.                 End With
    
87.                 With .ParagraphFormat
    
88.                 .Space2
    
89.                 .LeftIndent = CentimetersToPoints(0)
    
90.                 .RightIndent = CentimetersToPoints(0)
    
91.                 .Alignment = wdAlignParagraphJustify
    
92.                 .CharacterUnitLeftIndent = 0
    
93.                 .CharacterUnitRightIndent = 0
    
94.                 End With
    
95.             ElseIf .Text Like "#.#.#.#*" Then
    
96.                 .Style = wdStyleHeading4
    
97.                 With .Font
    
98.                 .NameFarEast = "宋体"
    
99.                 .NameAscii = "宋体"
    
100.                 .Size = 14
     
101.                 .Bold = True
     
102.                 .Color = wdColorAutomatic
     
103.                 End With
     
104.                 With .ParagraphFormat
     
105.                 .Space2
     
106.                 .LeftIndent = CentimetersToPoints(0)
     
107.                 .RightIndent = CentimetersToPoints(0)
     
108.                 .Alignment = wdAlignParagraphJustify
     
109.                 .CharacterUnitLeftIndent = 0
     
110.                 .CharacterUnitRightIndent = 0
     
111.                 End With
     
112.             ElseIf i.Range Like "#.#.#*" Then
     
113.                 .Style = wdStyleHeading3
     
114.                 With .Font
     
115.                 .NameFarEast = "宋体"
     
116.                 .NameAscii = "宋体"
     
117.                 .Size = 15
     
118.                 .Bold = True
     
119.                 .Color = wdColorAutomatic
     
120.                 End With
     
121.                 With .ParagraphFormat
     
122.                 .Space2
     
123.                 .LeftIndent = CentimetersToPoints(0)
     
124.                 .RightIndent = CentimetersToPoints(0)
     
125.                 .Alignment = wdAlignParagraphJustify
     
126.                 .CharacterUnitLeftIndent = 0
     
127.                 .CharacterUnitRightIndent = 0
     
128.                 End With
     
129.             ElseIf .Text Like "#.#*" Then
     
130.                 .Style = wdStyleHeading2
     
131.                 With .Font
     
132.                 .NameFarEast = "宋体"
     
133.                 .NameAscii = "宋体"
     
134.                 .Size = 16
     
135.                 .Bold = True
     
136.                 .Color = wdColorAutomatic
     
137.                 End With
     
138.                 With .ParagraphFormat
     
139.                 .Space2
     
140.                 .LeftIndent = CentimetersToPoints(0)
     
141.                 .RightIndent = CentimetersToPoints(0)
     
142.                 .Alignment = wdAlignParagraphJustify
     
143.                 .CharacterUnitLeftIndent = 0
     
144.                 .CharacterUnitRightIndent = 0
     
145.                 End With
     
146.             ElseIf .Text Like "第一章*" Then
     
147.                 .Style = wdStyleHeading1
     
148.                 With .Font
     
149.                 .NameFarEast = "宋体"
     
150.                 .NameAscii = "宋体"
     
151.                 .Size = 22
     
152.                 .Bold = True
     
153.                 .Color = wdColorAutomatic
     
154.                 End With
     
155.                 With .ParagraphFormat
     
156.                 .Space2
     
157.                 .LeftIndent = CentimetersToPoints(0)
     
158.                 .RightIndent = CentimetersToPoints(0)
     
159.                 .Alignment = wdAlignParagraphJustify
     
160.                 .CharacterUnitLeftIndent = 0
     
161.                 .CharacterUnitRightIndent = 0
     
162.                 End With
     
163.             Else
     
164.                 .Style = wdStyleNormal
     
165.                 With .Font
     
166.                 .NameFarEast = "宋体"
     
167.                 .NameAscii = "宋体"
     
168.                 .Size = 10.5
     
169.                 .Bold = True
     
170.                 .Color = wdColorAutomatic
     
171.                 End With
     
172.                 With .ParagraphFormat
     
173.                 .Space2
     
174.                 .IndentFirstLineCharWidth 2
     
175.                 .Alignment = wdAlignParagraphJustify
     
176.                 .CharacterUnitLeftIndent = 0
     
177.                 .CharacterUnitRightIndent = 0
     
178.                 End With
     
179.             End If
     
180.         End With
     
181.     Next
     
182.     End Sub
     

复制代码

413191246se

* 楼主，你好！——调整后达到了自己的目的，很好！
* 但我建议你，也应该注意代码简洁的问题，用 Gosub ... Return 结构共同设置了格式后，再分别设置一下格式，这样就精简了代码，也达到了目的。
* 再比如：西文和中文都是宋体，这样只须用 .Name = “宋体” 这句代码就行了，不必两行。

包昆

413191246se 发表于 2024-1-12 20:06
* 楼主，你好！——调整后达到了自己的目的，很好！
* 但我建议你，也应该注意代码简洁的问题，用 Gosub . ...

多谢给予指正

包昆

413191246se 发表于 2024-1-12 20:06
* 楼主，你好！——调整后达到了自己的目的，很好！
* 但我建议你，也应该注意代码简洁的问题，用 Gosub . ...

老师您好！我想问一下以下这句代码的含义
ActiveDocument.Content.Find.Execute "(^13第)" & ChnNum & "(章)", , , 1, , , , , , "\1一\2　", 2

运行完毕后，我发现包括”第二章“都被改成”第一章“了。

盼复，多谢了！

liuxi001

包昆 发表于 2024-1-12 13:49
非常感谢413191246se，以下是我调整后的代码，实现了我需要的效果，感谢！

if else间的代码可以写成sub过程调用，传入参数就可以了，避免代码的重复书写。

413191246se

变成“第一章”后，这样循环遍历段落的时候，只查找"第一章"就行了，方便简单，再用 n 加上域转换为汉字大写数目，如“第十一章”这样的形式，因为查找时不方便。

包昆

413191246se 发表于 2024-1-23 20:45
变成“第一章”后，这样循环遍历段落的时候，只查找"第一章"就行了，方便简单，再用 n 加上域转换为汉字大 ...

请教一下，如果不更改为第一章，保持原先的内容，需要如何调整？