在线求助！急急，分不够在加

Question

我在vb里调用word，如何象word里"页面设置"中控制纸张是否“横向“还是“纵向“？？？？

Answer 1

这种问题到用Word录制一个宏，看下录出来的代码就知道了。

Answer 2

纵向
ActiveDocument.PageSetup.Orientation = wdOrientPortrait
横向
ActiveDocument.PageSetup.Orientation = wdOrientLandscapeMSN:[email protected]

Answer 3

Sub Macro3()
'
' Macro3 Macro
' 宏在 2004-7-9 由 40666 录制
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape  '横向
        .TopMargin = CentimetersToPoints(3.17)
        .BottomMargin = CentimetersToPoints(3.17)
        .LeftMargin = CentimetersToPoints(2.54)
        .RightMargin = CentimetersToPoints(2.54)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .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
        .LayoutMode = wdLayoutModeLineGrid
    End With
End Sub

Answer 4

你们有没有注意到，录制的宏在不同的操作系统下执行情况不同，我就遇到过在win2k
下录制的宏，在winxp下就不好使

Answer 5

//你们有没有注意到，录制的宏在不同的操作系统下执行情况不同，我就遇到过在win2k
下录制的宏，在winxp下就不好使你说的这个问题应该是在office不同的版本下可能不好使,跟操作系统没有关系,比如你在word2000下写的宏拿到word 2002下可能会有问题