word设置页边距 | ExcelOffice【微信公众号：水星Excel】

要在vba中设置word问的页边距，可以通过PageSetup对象设置。

代码如下所示：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRow As Row
    Dim oColumn As Column
    With oDoc
        Dim oPS As PageSetup
        Set oPS = .PageSetup
        With oPS
            '左边距
            .LeftMargin = Word.CentimetersToPoints(2)
            '上边距
            .TopMargin = Word.CentimetersToPoints(2)
            '右边距
            .RightMargin = Word.CentimetersToPoints(1)
            '下边距
            .BottomMargin = Word.CentimetersToPoints(3)
        End With
    End With
End Sub

Sub exceloffice()

'作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

Dim oRow As Row

Dim oColumn As Column

With oDoc

Dim oPS As PageSetup

Set oPS = .PageSetup

With oPS

'左边距

.LeftMargin = Word.CentimetersToPoints(2)

'上边距

.TopMargin = Word.CentimetersToPoints(2)

'右边距

.RightMargin = Word.CentimetersToPoints(1)

'下边距

.BottomMargin = Word.CentimetersToPoints(3)

End With

End Sub

[……]

阅读全文>>>

如何用vba设置word文档的页边距？

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号