二十多种样式设置的代码简化？？

Yorphone

请问一下需要设置二十多种样式，我写的代码太长了，
下面列出了一部分
感觉每个样式的代码都差不多，

就只有样式名称、字体、字号、行距这些不同
能不能把代码简化一下，
能不能实现类似于输入“样式名称、字体、字号、行距”这些作为参数，
就可以完成设置的呀~

1. Sub 设置国论样式()
   
2.    
   
3.     On Error Resume Next
   
4.    
   
5.     '删除所有自定义样式
   
6.     Dim i As Style
   
7.     For Each i In ThisDocument.Styles
   
8.         On Error Resume Next
   
9.         i.Delete
   
10.         Err.Clear
    
11.     Next i
    
12.    
    
13.     '期刊标题样式
    
14.     Application.ScreenUpdating = False '关闭屏幕更新
    
15.     ActiveDocument.Styles.Add Name:="期刊标题", Type:=wdStyleTypeParagraph
    
16.     ActiveDocument.Styles("期刊标题").AutomaticallyUpdate = False
    
17.     With ActiveDocument.Styles("期刊标题").Font
    
18.         .Color = wdColorAutomatic
    
19.         .NameFarEast = "黑体"
    
20.         .NameAscii = "Times New Roman"
    
21.         .Size = 22  '字号，请输入对应数字
    
22.         .Bold = 0 '加粗为1，不加粗为0
    
23.     End With
    
24.     With ActiveDocument.Styles("期刊标题").ParagraphFormat
    
25.         .LeftIndent = CentimetersToPoints(0)
    
26.         .Alignment = wdAlignParagraphCenter
    
27.         '.CharacterUnitFirstLineIndent = 0
    
28.         .LineUnitBefore = 0  '段前为0.8行
    
29.         .LineUnitAfter = 0 '段后为0.5行
    
30.         .LineSpacingRule = wdLineSpaceSingle
    
31.     End With
    
32. 
    
33.     '标题1样式
    
34.     With ActiveDocument.Styles(wdStyleHeading1).Font
    
35.         .Color = wdColorAutomatic
    
36.         .NameFarEast = "宋体"
    
37.         .NameAscii = "Times New Roman"
    
38.         .Size = 14  '字号，请输入对应数字
    
39.         .Bold = 1 '加粗为1，不加粗为0
    
40.     End With
    
41.     With ActiveDocument.Styles(wdStyleHeading1).ParagraphFormat
    
42.         .LeftIndent = CentimetersToPoints(0)
    
43.         .Alignment = wdAlignParagraphCenter
    
44.         .CharacterUnitFirstLineIndent = 0
    
45.         .LineUnitBefore = 0.5  '段前为0.8行
    
46.         .LineUnitAfter = 0.5 '段后为0.5行
    
47.         .LineSpacingRule = wdLineSpaceExactly
    
48.         .LineSpacing = 17
    
49.     End With
    
50.    
    
51.     '标题2样式
    
52.     With ActiveDocument.Styles(wdStyleHeading2).Font
    
53.         .Color = wdColorAutomatic
    
54.         .NameFarEast = "宋体"
    
55.         .NameAscii = "Times New Roman"
    
56.         .Size = 12  '字号，请输入对应数字
    
57.         .Bold = 1 '加粗为1，不加粗为0
    
58.     End With
    
59.     With ActiveDocument.Styles(wdStyleHeading2).ParagraphFormat
    
60.         .LeftIndent = CentimetersToPoints(0)
    
61.         .Alignment = wdAlignParagraphJustify
    
62.         .CharacterUnitFirstLineIndent = 2
    
63.         .LineUnitBefore = 0.5  '段前为0.8行
    
64.         .LineUnitAfter = 0.5 '段后为0.5行
    
65.         .LineSpacingRule = wdLineSpaceExactly
    
66.         .LineSpacing = 17
    
67.     End With
    
68.    
    
69.     '标题3样式
    
70.     With ActiveDocument.Styles(wdStyleHeading3).Font
    
71.         .Color = wdColorAutomatic
    
72.         .NameFarEast = "宋体"
    
73.         .NameAscii = "Times New Roman"
    
74.         .Size = 12  '字号，请输入对应数字
    
75.         .Bold = 1 '加粗为1，不加粗为0
    
76.     End With
    
77.     With ActiveDocument.Styles(wdStyleHeading3).ParagraphFormat
    
78.         .LeftIndent = CentimetersToPoints(0)
    
79.         .Alignment = wdAlignParagraphJustify
    
80.         .CharacterUnitFirstLineIndent = 2
    
81.         .LineUnitBefore = 0  '段前为0.8行
    
82.         .LineUnitAfter = 0 '段后为0.5行
    
83.         .LineSpacingRule = wdLineSpaceExactly
    
84.         .LineSpacing = 17
    
85.     End With
    
86.    
    
87.     '标题4样式
    
88.     With ActiveDocument.Styles(wdStyleHeading4).Font
    
89.         .Color = wdColorAutomatic
    
90.         .NameFarEast = "宋体"
    
91.         .NameAscii = "Times New Roman"
    
92.         .Size = 12  '字号，请输入对应数字
    
93.         .Bold = 1 '加粗为1，不加粗为0
    
94.     End With
    
95.     With ActiveDocument.Styles(wdStyleHeading4).ParagraphFormat
    
96.         .LeftIndent = CentimetersToPoints(0)
    
97.         .Alignment = wdAlignParagraphJustify
    
98.         .CharacterUnitFirstLineIndent = 2
    
99.         .LineUnitBefore = 0  '段前为0.8行
    
100.         .LineUnitAfter = 0 '段后为0.5行
     
101.         .LineSpacingRule = wdLineSpaceExactly
     
102.         .LineSpacing = 17
     
103.     End With
     
104.    
     
105.     '期刊图表标题样式
     
106.     ActiveDocument.Styles.Add Name:="期刊图表标题", Type:=wdStyleTypeParagraph
     
107.     ActiveDocument.Styles("期刊图表标题").AutomaticallyUpdate = False
     
108.     With ActiveDocument.Styles("期刊图表标题").Font
     
109.         .Color = wdColorAutomatic
     
110.         .NameFarEast = "宋体"
     
111.         .NameAscii = "Times New Roman"
     
112.         .Size = 12  '字号，请输入对应数字
     
113.         .Bold = 1 '加粗为1，不加粗为0
     
114.     End With
     
115.     With ActiveDocument.Styles("期刊图表标题").ParagraphFormat
     
116.         .LeftIndent = CentimetersToPoints(0)
     
117.         .OutlineLevel = wdOutlineLevelBodyText
     
118.         .Alignment = wdAlignParagraphCenter
     
119.         .CharacterUnitFirstLineIndent = 0
     
120.         .LineUnitBefore = 0
     
121.         .LineUnitAfter = 0
     
122.         .LineSpacingRule = wdLineSpaceExactly
     
123.         .LineSpacing = 17
     
124.     End With
     
125.    
     
126.     '表格内容样式
     
127.     ActiveDocument.Styles.Add Name:="期刊表格内容", Type:=wdStyleTypeParagraph
     
128.     ActiveDocument.Styles("期刊表格内容").AutomaticallyUpdate = False
     
129.     With ActiveDocument.Styles("期刊表格内容").Font
     
130.         .Color = wdColorAutomatic
     
131.         .NameFarEast = "宋体"
     
132.         .NameAscii = "Times New Roman"
     
133.         .Size = 9  '字号，请输入对应数字
     
134.         .Bold = 0 '加粗为1，不加粗为0
     
135.     End With
     
136.    
     
137.     Application.ScreenUpdating = True
     
138.     MsgBox "设置样式成功"
     
139. End Sub

复制代码

413191246se

楼主，样式不少，但请提供一下示例文本(demo.docx)，然后我们好运行你的代码呀！

Yorphone

413191246se 发表于 2020-6-7 00:09
楼主，样式不少，但请提供一下示例文本(demo.docx)，然后我们好运行你的代码呀！

这只是用来设置样式的，随便一个空的word的文档都可以吧~我不太理解是什么意思

413191246se

楼主，运行你的代码，提示成功！但文档格式未有任何变化，也就是说，你的代码并不能排版。