Private Sub Command1_Click() Dim ow As Object Dim od As Object Set ow = CreateObject("word.application") ow.Visible = True Set od = ow.documents.Add With od.PageSetup .TopMargin = CentimetersToPoints(1) .BottomMargin = CentimetersToPoints(1) .LeftMargin = CentimetersToPoints(1) .RightMargin = CentimetersToPoints(1) .Gutter = CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(1) .FooterDistance = CentimetersToPoints(1) .PageWidth = CentimetersToPoints(40) '页宽 .PageHeight = CentimetersToPoints(30) '页高 End With End Sub
Dim ow As Object
Dim od As Object
Set ow = CreateObject("word.application")
ow.Visible = True
Set od = ow.documents.Add
With od.PageSetup
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(1)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1)
.FooterDistance = CentimetersToPoints(1)
.PageWidth = CentimetersToPoints(40) '页宽
.PageHeight = CentimetersToPoints(30) '页高
End With
End Sub