1

我在ms-word2007 年遇到了这个荒谬的问题。我的大部分宏都按预期工作，但方向似乎无法保持原位。我使用 VBA 将其设置为横向，但它总是会回到纵向。如果我在此行之后立即进入代码，则文档为横向，但只要我在文档中单击一次，它就会返回纵向。

你们知道为什么会这样吗？我似乎无法在 Google 上找到任何有此错误的人。

Option Explicit

Sub créer_rapport()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document

    Set wdApp = New Word.Application
    wdApp.Visible = True

    Set wdDoc = wdApp.Documents.Open(Range("path_fichier").Value)

    wdApp.Selection.WholeStory
    wdApp.Selection.Font.Name = "Courier New"
    wdApp.Selection.Font.Size = 7


    wdDoc.PageSetup.Orientation = wdOrientLandscape
    wdDoc.PageSetup.PaperSize = wdPaperLegal
    wdDoc.SaveAs ActiveWorkbook.Path & "\test2", wdFormatXMLDocument

    Do While wdApp.Selection.Find.Execute("Merge")
        wdApp.Selection.MoveUp wdLine, 1
        wdApp.Selection.InsertBreak wdPageBreak
        wdApp.Selection.MoveDown wdLine, 2
    Loop

    With wdDoc
        .SaveAs (ActiveWorkbook.Path & "\test")
        .Close (True)
    End With

    wdApp.Quit False
End Sub

这就是我的宏（现在）的全部内容。

（哦，你可以突出不良风格，这是我第一次为 Word 做 VBA 宏（我一直在 Excel 中做它们））

谢谢 ！

4

1 回答 1

3

代替：

wdDoc.PageSetup.Orientation = wdOrientLandscape

试试这个：

Selection.PageSetup.Orientation = wdOrientLandscape
于 2012-11-06T05:41:34.197 回答