新建三线表样式代码开源

紫穆清风

自己以前做的一个专门针对河师大论文三线表的宏，现在开源供大家使用，本人能力有限，难免有错误，请大家批评指正。
功能:
1.自动建立名为“河师大论文表格专用”的三线表样式，若Word中已经存在，则提示已存在!若不存在，则新建。
2.标题行格式自动调整为黑体五号
3.其他行格式自动调整为宋体五号
4.表格单元格默认采用靠上居中对齐(这点忘记调整了，但一般影响不大)

紫穆清风

先占一个楼层，供放代码用

1. Sub 三线表表格样式()
   
2.     b = False
   
3.     Set MyDoc = ActiveDocument
   
4.     MyTableName = "河师大论文表格专用"
   
5.     For Each MyStyle In MyDoc.Styles
   
6.         If MyStyle.NameLocal = "河师大论文表格专用" Then
   
7.             Application.StatusBar = "该样式已存在！"
   
8.             Exit Sub
   
9.         Else
   
10.             b = False
    
11.         End If
    
12.     Next
    
13.     If b = False Then
    
14.     ActiveDocument.Styles.Add Name:=MyTableName, Type:=wdStyleTypeTable
    
15. '    整体表格字体设置
    
16.     With ActiveDocument.Styles(MyTableName).Font
    
17.         .NameFarEast = "宋体"
    
18.         .NameAscii = "Times New Roman"
    
19.         .NameOther = "Times New Roman"
    
20.         .Name = "Times New Roman"
    
21.         .Size = 10.5
    
22.     End With
    
23. '    整体表格段落设置
    
24.     With ActiveDocument.Styles(MyTableName).ParagraphFormat
    
25.         .LineSpacingRule = wdLineSpaceSingle
    
26.         .Alignment = wdAlignParagraphCenter
    
27.         .SpaceAfter = 0
    
28.     End With
    
29.     With ActiveDocument.Styles(MyTableName).Table
    
30.         .Alignment = wdAlignRowCenter
    
31.         .AllowPageBreaks = True
    
32.         .AllowBreakAcrossPage = True
    
33.     End With
    
34. '    整体表格边框线设置
    
35.     With ActiveDocument.Styles(MyTableName).Table.Borders
    
36.         .OutsideLineStyle = False
    
37.         .InsideLineStyle = False
    
38.     End With
    
39.     With ActiveDocument.Styles(MyTableName).Table.Borders(wdBorderBottom)
    
40.         .LineStyle = wdLineStyleSingle
    
41.     End With
    
42. '    标题行边框设置
    
43.     With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow)
    
44.         With .Borders(wdBorderTop)
    
45.             .LineStyle = wdLineStyleSingle
    
46.             .LineWidth = wdLineWidth050pt
    
47.         End With
    
48.         With .Borders(wdBorderBottom)
    
49.             .LineStyle = wdLineStyleSingle
    
50.             .LineWidth = wdLineWidth050pt
    
51.         End With
    
52.     End With
    
53. '    标题行段落格式设置
    
54.     With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow). _
    
55.         ParagraphFormat
    
56.         .LineSpacingRule = wdLineSpaceSingle
    
57.         .Alignment = wdAlignParagraphCenter
    
58.     End With
    
59. '    标题行字体格式设置
    
60.     With ActiveDocument.Styles(MyTableName).Table.Condition(wdFirstRow).Font
    
61.         .NameFarEast = "黑体"
    
62.         .NameAscii = "Times New Roman"
    
63.         .NameOther = "Times New Roman"
    
64.         .Name = "Times New Roman"
    
65.         .Size = 10.5
    
66.     End With
    
67. '    汇总行边框线设置
    
68.     With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).Borders(wdBorderBottom)
    
69.         .LineStyle = wdLineStyleSingle
    
70.         .LineWidth = wdLineWidth050pt
    
71.     End With
    
72. '   汇总行段落格式设置
    
73.     With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).ParagraphFormat
    
74.         .LineSpacingRule = wdLineSpaceSingle
    
75.         .Alignment = wdAlignParagraphCenter
    
76.     End With
    
77. '    汇总行字体格式设置
    
78.     With ActiveDocument.Styles(MyTableName).Table.Condition(wdLastRow).Font
    
79.         .NameFarEast = "宋体"
    
80.         .NameAscii = "Times New Roman"
    
81.         .NameOther = "Times New Roman"
    
82.         .Name = "Times New Roman"
    
83.         .Size = 10.5
    
84.     End With
    
85.     End If
    
86.     Application.StatusBar = "三线表表格样式新建完毕！"
    
87. End Sub

复制代码

wdpfox

学习中，谢谢分享！

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！