word 2016 VBA批量设置标题样式不生效

zhongqiuzz

如图，文章每级标题均通过段落格式分别设置了大纲级别，现在根据格式排版要求，对不同级别的标题设置不同的样式，但是程序运行后文字无效果，请教什么原因？word版为2016.代码如下：

1. Sub a4设置每一级样式格式()
   
2.     With ActiveDocument.Styles(wdStyleHeading1).Font
   
3.     .Color = wdColorBlack
   
4.     .Bold = False '标题不再加粗
   
5.     .Size = 14 '二号
   
6.     .Name = "黑体"
   
7.     End With
   
8.     With ActiveDocument.Styles(wdStyleHeading2).Font
   
9.     .Color = wdColorBlack
   
10.     .Bold = False '黑体一般不再加粗
    
11.     .Size = 14 '10.5是五号，12是小四号，14是四号，16是三号，22是二号
    
12.     .Name = "楷体"
    
13.     End With
    
14.     With ActiveDocument.Styles(wdStyleHeading3).Font
    
15.     .Color = wdColorBlack
    
16.     .Bold = True
    
17.     .Size = 14
    
18.     .Name = "仿宋"
    
19.     End With
    
20.     With ActiveDocument.Styles(wdStyleHeading4).Font
    
21.     .Color = wdColorBlack
    
22.     .Bold = True
    
23.     .Size = 14
    
24.     .Name = "仿宋"
    
25.     End With
    
26.     With ActiveDocument.Styles(wdStyleHeading5).Font
    
27.     .Color = wdColorBlack
    
28.     .Bold = False
    
29.     .Size = 14
    
30.     .Name = "仿宋"
    
31.     End With
    
32.     With ActiveDocument.Styles(wdStyleNormal).Font    '设置正文普通文字格式
    
33.     .Color = wdColorBlack
    
34.     .Bold = False
    
35.     .Size = 14
    
36.     .Name = "仿宋"
    
37.     End With
    
38. End Sub

复制代码

413191246se

wdStyleHeading1 改为：标题 1   wdStyleNormal 改为：正文

413191246se

样式排版，似乎也行，不太靠谱。

飞驰的椒麻鸡

踩，，，，，，，，，，，，，

zhongqiuzz

借用百度一个大神的代码，不用样式来定义，用大纲来问题解决。
分享部分代码如下：
For parsn = 1 To par '从文章第2段开始排版，第1段默认为文章标题
If ActiveDocument.Paragraphs(parsn).OutlineLevel = 1 Then
With ActiveDocument.Paragraphs(parsn).Range.Font
.Name = ojzt
.Size = ojzh
.Bold = ojjc
End With

ElseIf ActiveDocument.Paragraphs(parsn).OutlineLevel = 2 Then
With ActiveDocument.Paragraphs(parsn).Range.Font
.Name = tjzt
.Size = tjzh
.Bold = tjjc
End With

413191246se

楼主，我有自动排版宏，如果你没有使用过，可以试试。

zhongqiuzz

413191246se 发表于 2020-12-26 12:51
楼主，我有自动排版宏，如果你没有使用过，可以试试。

在你的宏代码上有很多启发，但不能完全适用，所以网上借用了一些，你那借用了一些。
我做成了以下这样：

zhongqiuzz

413191246se

楼主，你是新人，这么厉害！不错！窗体看着还挺好看！

zhongqiuzz

413191246se 发表于 2021-1-3 22:09
楼主，你是新人，这么厉害！不错！窗体看着还挺好看！

哥们，加你个微信，相互交流一下。在你的VBA上面可以学到很多东西。我对代码不通，都是乱组合的，所以代码乱，优化水平差。我的微信：13320910501