EXECL数据生成到WORD文档是否可以自定义页边距，上3.7，下3.5，左右各2.7 呢？...

qinhuan66

以下此条代码是根据EXECL数据生成到WORD文档，是否生成的过程中能增加自定义页边距，上3.7，下3.5，左右各2.7 呢？谢谢

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Dim wordapp As New Word.Application
   
6.   Dim mydoc As Word.Document
   
7.   Dim myname$, mypath$
   
8.   Set d = CreateObject("scripting.dictionary")
   
9.   Application.ScreenUpdating = False
   
10.   Application.DisplayAlerts = False
    
11.   
    
12.   With Worksheets("2017年年度考核汇总")
    
13.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
14.     arr = .Range("a3:g" & r)
    
15.     For i = 1 To UBound(arr)
    
16.       If Not d.Exists(arr(i, 2)) Then
    
17.         Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
    
18.       End If
    
19.       If Not d(arr(i, 2)).Exists(arr(i, 3)) Then
    
20.         Set d(arr(i, 2))(arr(i, 3)) = CreateObject("scripting.dictionary")
    
21.       End If
    
22.       If Not d(arr(i, 2))(arr(i, 3)).Exists(arr(i, 7)) Then
    
23.         m = 1
    
24.         ReDim brr(1 To m)
    
25.       Else
    
26.         brr = d(arr(i, 2))(arr(i, 3))(arr(i, 7))
    
27.         m = UBound(brr) + 1
    
28.         ReDim Preserve brr(1 To m)
    
29.       End If
    
30.       brr(m) = arr(i, 4)
    
31.       d(arr(i, 2))(arr(i, 3))(arr(i, 7)) = brr
    
32.     Next
    
33.   End With
    
34.   
    
35.   For Each aa In d.keys
    
36.     xh = 0
    
37.     With wordapp
    
38.       Set mydoc = .Documents.Add
    
39.       .Visible = True
    
40.       With .Selection
    
41.         .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
42.         .TypeParagraph '隔一行
    
43.         .TypeParagraph '隔一行
    
44.         .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly '行距固定值33
    
45.         .ParagraphFormat.LineSpacing = 45 '行距固定值29
    
46.         With .Font
    
47.               .Name = "方正小标宋简体"
    
48.               .Size = 31.5
    
49.               .Bold = wdToggle
    
50.               .Color = wdColorRed '字体颜色为红色
    
51.         End With
    
52. '        With .ParagraphFormat
    
53. '          .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
54. '          .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
55. '          .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    
56. '        With .Borders(wdBorderBottom)
    
57. '          .LineStyle = wdLineStyleThickThinSmallGap
    
58. '          .LineWidth = wdLineWidth225pt
    
59. '          .Color = wdColorRed
    
60. '        End With
    
61. '        With .Borders
    
62. '          .DistanceFromTop = 1
    
63. '          .DistanceFromLeft = 3.7
    
64. '          .DistanceFromBottom = 1
    
65. '          .DistanceFromRight = 3.7
    
66. '          .Shadow = False
    
67. '        End With
    
68. '        End With
    
69.         With Options
    
70.           .DefaultBorderLineStyle = wdLineStyleThinThickSmallGap
    
71.           .DefaultBorderLineWidth = wdLineWidth225pt
    
72.           .DefaultBorderColor = wdColorRed
    
73.         End With
    
74.         .TypeText Text:="桂南市人力资源和社会保障局"
    
75.         .TypeParagraph
    
76. '        .TypeParagraph
    
77. 
    
78. '        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
79. '        With .ParagraphFormat '生成红色粗横线条
    
80. '          .Borders(wdBorderBottom).LineStyle = wdLineStyleNone '生成粗横线条'先禁用，用WORD生成
    
81. '        End With
    
82.         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
83. 
    
84.         .TypeParagraph '隔一行
    
85.         .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly '行距固定值33
    
86.         .ParagraphFormat.LineSpacing = 29 '行距固定值29
    
87.         With .Font
    
88.               .Name = "方正小标宋简体"
    
89.               .Size = 22
    
90. '              .Bold = wdToggle'加粗
    
91.               .Color = wdColorAutomatic '旁边体颜色自动
    
92.         End With
    
93.         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
94. '
    
95.         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
96.         
    
97.         
    
98.         .TypeText Text:="桂南市政府系统机关、事业单位"
    
99.         .TypeParagraph
    
100.         .TypeText Text:="科级以下工作人员2017年年度考核结果"
     
101.         With .Font
     
102.           .Name = "仿宋_GB2312"
     
103.           .Size = 14
     
104.         End With
     
105.         .TypeParagraph
     
106.         .TypeParagraph
     
107.         .ParagraphFormat.Alignment = wdAlignParagraphLeft
     
108.         .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle '单倍行距
     
109.         With .Font
     
110.               .Name = "仿宋_GB2312"
     
111.               .Bold = wdToggle
     
112.             End With
     
113.         .TypeText Text:=aa & "："
     
114.         .TypeParagraph
     
115.         With .ParagraphFormat
     
116.           .Alignment = wdAlignParagraphJustify '居中
     
117.           .CharacterUnitFirstLineIndent = 2 '空2个字符
     
118.         End With
     
119.         .TypeText Text:="根据《公务员考核规定（试行）》和中共桂南市委组织部  桂南市人力资源和社会保障局  桂南市绩效考评领导小组办公室《印发<关于开展2017年度全市机关、事业单位科级以下工作人员年度考核工作的实施意见>的通知》的有关规定，经审核，你单位科级以下工作人员2017年年度考核结果为："
     
120.         .TypeParagraph
     
121.         With .ParagraphFormat
     
122.           .Alignment = wdAlignParagraphJustify '居中
     
123.           .CharacterUnitFirstLineIndent = 0 '空2个字符
     
124. '          .FirstLineIndent = CentimetersToPoints(0)
     
125.           .CharacterUnitFirstLineIndent = 0
     
126.         End With
     
127.         With .Font
     
128.           .Name = "仿宋_GB2312"
     
129.           .Bold = wdToggle
     
130.         End With
     
131.         With .ParagraphFormat
     
132.           .FirstLineIndent = Application.CentimetersToPoints(0)
     
133.           .CharacterUnitFirstLineIndent = 0
     
134.         End With
     
135.         
     
136.         For Each bb In d(aa).keys
     
137.           xh = xh + 1
     
138.           With .Font
     
139.             .Name = "黑体" '字体
     
140.             .Bold = True
     
141.           End With
     
142.           If d(aa).Count > 1 Then
     
143.             .TypeText Text:=Application.Text(xh, "[Dbnum1]") & "、" & bb
     
144.             .TypeParagraph
     
145.           End If
     
146.           For Each x In Array("优秀", "称职", "基本称职", "不称职", "不定等次", "不参加考核", "待查")
     
147.             If d(aa)(bb).Exists(x) Then
     
148.               brr = d(aa)(bb)(x)
     
149.               With .Font
     
150.                 .Name = "黑体" '字体
     
151.                 .Bold = True
     
152.               End With
     
153.               .TypeText Text:=x & "（" & UBound(brr) & "人）："
     
154.               .TypeParagraph
     
155.               With .Font
     
156.                 .Name = "仿宋_GB2312"
     
157.                 .Bold = False
     
158.               End With
     
159.               ss = ""
     
160.               For i = 1 To UBound(brr)
     
161.                 ss = ss & Space(2) & brr(i)
     
162.                 If i Mod 7 = 0 Or i = UBound(brr) Then
     
163.                   .TypeText Text:=Mid(ss, 3)
     
164.                   .TypeParagraph
     
165.                   ss = ""
     
166.                 End If
     
167.               Next
     
168.             End If
     
169.           Next
     
170.         Next
     
171.         .TypeParagraph
     
172.         .TypeParagraph
     
173.         With .Font
     
174.               .Name = "仿宋_GB2312"
     
175.               .Bold = False
     
176.             End With
     
177.         .TypeText Text:=Space(40) & "2017年12月12日"
     
178. '        .TypeParagraph'回车键
     
179.       End With
     
180.       With mydoc
     
181.         .SaveAs Filename:=ThisWorkbook.Path & "" & aa
     
182.         .Close
     
183.       End With
     
184.     End With
     
185. '    Exit For '如果连续生成必须禁此行
     
186.   Next
     
187.   wordapp.Quit
     
188.   Set wordapp = Nothing
     
189.   Application.ScreenUpdating = True
     
190.   Application.DisplayAlerts = True
     
191. End Sub

复制代码

qinhuan66

在WORD内写的VBA代码可以执行

1. Sub test()
   
2.     Dim s As Section
   
3.     For Each s In ActiveDocument.Sections
   
4.         With s.PageSetup
   
5.             .TopMargin = CentimetersToPoints(3.7)      '顶端边距
   
6.             .BottomMargin = CentimetersToPoints(3.5)   '底端边距
   
7.             .LeftMargin = CentimetersToPoints(2.7)     '左边距
   
8.             .RightMargin = CentimetersToPoints(2.7)    '右边距
   
9.             .HeaderDistance = CentimetersToPoints(1.5)
   
10.             .FooterDistance = CentimetersToPoints(1.5)
    
11.         End With
    
12.     Next
    
13. End Sub

复制代码