Word 2007 VBA页面方向到横向不起作用

时间:2015-04-05 18:27:47

标签: vba

我已经编写了Word 2007宏来设置页面并更改方向。除了将文档从纵向更改为横向外,所有设置都有效。 (你可以在下面的代码中看到我设置了两次。)

With Selection.PageSetup
    .LineNumbering.Active = False
    .Orientation = wdOrientLandscape
    .TopMargin = InchesToPoints(0.8)
    .BottomMargin = InchesToPoints(0.7)
    .LeftMargin = InchesToPoints(0.5)
    .RightMargin = InchesToPoints(0.5)
    .Gutter = InchesToPoints(0)
    .HeaderDistance = InchesToPoints(0.5)
    .FooterDistance = InchesToPoints(0.6)
    .PageWidth = InchesToPoints(8.5)
    .PageHeight = InchesToPoints(11)
    .FirstPageTray = wdPrinterDefaultBin
    .OtherPagesTray = wdPrinterDefaultBin
    .SectionStart = wdSectionNewPage
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .VerticalAlignment = wdAlignVerticalTop
    .SuppressEndnotes = False
    .MirrorMargins = False
    .TwoPagesOnOne = False
    .BookFoldPrinting = False
    .BookFoldRevPrinting = False
    .BookFoldPrintingSheets = 1
    .GutterPos = wdGutterPosLeft
End With


ActiveDocument.PageSetup.Orientation = wdOrientLandscape

在我的代码之后,我输入一个表并进行更多格式化 - 但仅限于表格。

有什么想法吗?

1 个答案:

答案 0 :(得分:0)

如果您正在编辑多页文档,则可能需要确保您尝试格式化的页面本身在一个部分中。 您是否尝试在您正在处理的页面之前和之后放置分节符,然后尝试设置方向?