类的实例化 word vba

6lilu9 2017-09-13 09:58:23

遇到一个问题，百思不得其解，下面的xlappword与word不是等同的吗？
那“Word.WdOrientation.wdOrientLandscape”应该等同于“xlappword.WdOrientation.wdOrientLandscape”
同理，
那”xlAppWord.CentimetersToPoints(3.17)“应该等同于”Word.CentimetersToPoints(3.17)“
然而事实上却是不行。

    Dim xlAppWord As New Word.Application



   Dim Wrdoc = xlAppWord.Documents.Add()

	

   With Wrdoc.PageSetup

            .LineNumbering.Active = False

            .Orientation = Word.WdOrientation.wdOrientLandscape

            .TopMargin = xlAppWord.CentimetersToPoints(3.17)

            .BottomMargin = xlAppWord.CentimetersToPoints(3.17)

            .LeftMargin = xlAppWord.CentimetersToPoints(2.54)

            .RightMargin = xlAppWord.CentimetersToPoints(2.54)

            .Gutter = xlAppWord.CentimetersToPoints(0)

            .HeaderDistance = xlAppWord.CentimetersToPoints(1.5)

            .FooterDistance = xlAppWord.CentimetersToPoints(1.75)

            .PageWidth = xlAppWord.CentimetersToPoints(42)

            .PageHeight = xlAppWord.CentimetersToPoints(29.7)

            .FirstPageTray = Word.WdPaperTray.wdPrinterDefaultBin

            .OtherPagesTray = Word.WdPaperTray.wdPrinterDefaultBin

            .SectionStart = Word.WdSectionStart.wdSectionNewPage

            .OddAndEvenPagesHeaderFooter = False

            .DifferentFirstPageHeaderFooter = False

            .VerticalAlignment = Word.WdVerticalAlignment.wdAlignVerticalTop

            .SuppressEndnotes = False

            .MirrorMargins = False

            .TwoPagesOnOne = False

            .BookFoldPrinting = False

            .BookFoldRevPrinting = False

            .BookFoldPrintingSheets = 1

            .GutterPos = Word.WdGutterStyle.wdGutterPosLeft

            .LinesPage = 26

            .LayoutMode = Word.WdLayoutMode.wdLayoutModeGrid

        End With