VBA如何批量设置word2003文档的页边距和页眉页脚大小？

gpgpgp111

有一些Word2003文档，有A4横向的，有A4纵向的，请问：VBA如何批量设置word2003文档的
1、页边距上、下、左、右均为1cm，
2、页眉、页脚距边界为0.8cm,
3、文档网格选择“指定行和字符网格”，
4、如果原文档为A4横向的，每行字符选择42，行选择15
3、如果原文档为A4纵向的，每行字符选择32，行选择40




求VBA，非常感谢！！！

gpgpgp111

3、如果原文档为A4纵向的，每行字符选择32，行选择40
应改为：
5、如果原文档为A4纵向的，每行字符选择32，行选择40

snow653124

Sub 设置页边距()
    Dim sen As Section
    For Each sen In ActiveDocument.Sections
        With sen.PageSetup
            .LineNumbering.Active = True
            .TopMargin = CentimetersToPoints(1)
            .BottomMargin = CentimetersToPoints(1)
            .LeftMargin = CentimetersToPoints(1)
            .RightMargin = CentimetersToPoints(1)
            .HeaderDistance = CentimetersToPoints(0.8)
            .FooterDistance = CentimetersToPoints(0.8)
            If .Orientation = wdOrientPortrait Then
                .PageWidth = CentimetersToPoints(21)
                .PageHeight = CentimetersToPoints(29.7)
                .CharsLine = 32
                .LinesPage = 40
            Else
                .PageWidth = CentimetersToPoints(29.7)
                .PageHeight = CentimetersToPoints(21)
                .CharsLine = 42
                .LinesPage = 15
            End If
        End With
    Next
End Sub

gpgpgp111

snow653124 发表于 2022-10-10 11:37
Sub 设置页边距()
    Dim sen As Section
    For Each sen In ActiveDocument.Sections

谢谢，我试试！