Word文檔：設置爲風景

我在ms-word 2007有這個荒謬的問題。我有我的大部分宏按預期工作，但方向似乎無法保持原地。我使用VBA將其設置爲橫向，但它總是會返回到縱向。如果我在代碼的後面插入文檔IS，但只要在文檔中單擊一次即可返回肖像。Word文檔：設置爲風景

你們知道爲什麼會發生這種情況嗎？我似乎無法找到任何人在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

這就是我所有的宏（現在）。

（哦，你可以突出顯示不良作風，這是我第一次做的VBA宏的Word（我做他們所有的時間在Excel））

謝謝！

來源

2012-11-05 ApplePie

相反的：

wdDoc.PageSetup.Orientation = wdOrientLandscape

試試這個：

Selection.PageSetup.Orientation = wdOrientLandscape

來源

2012-11-06 05:41:34

謝謝！這個+在定向使它工作之前移動紙張大小修改。出於某種原因，將紙張尺寸設置爲合法將會將方向恢復爲縱向。 – ApplePie

很高興我可以提供幫助，當涉及到使用宏時，我發現首先記錄一個宏，然後稍作修改以適應您的特定需求，如何記錄一個宏更容易 - http://office.microsoft.com/zh-cn/ -za /字幫助/記錄或運行-A-宏觀HA010099769.aspx –

Word文檔：設置爲風景

回答

相關問題