如何使用VBA更改Excel中第一页的页边距？

Question

我正在使用Excel在Word中创建报表。我希望word文件中第一页的边距是自定义的，从第二页开始我希望页边距是其他值。所有这些值都是用户在某处定义的。当我无法跟踪是否在报告单词中创建了第二页时，如何通过VBA添加不同的边距。
对不起，如果这种感觉重复，但我看到的所有现有的类似问题并不完全适合。

Answer 1

要在Word中手动执行此操作，您应在第一页内容后插入“下一页分节符”，然后在新节中更改布局中的边距。在Word VBA中，这将是：

' First page content..
....

'New section on new page        
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
    .Orientation = wdOrientPortrait
    .TopMargin = CentimetersToPoints(<new margin>)
    .BottomMargin = CentimetersToPoints(<new margin>)
    .LeftMargin = CentimetersToPoints(<new margin>)
    .RightMargin = CentimetersToPoints(<new margin>)
    .Gutter = CentimetersToPoints(0)
    '...other page set-up
End With