Word 문서 : 가로로 설정

나는2007 년이 어리석은 문제가 있습니다. 의도 한대로 대부분의 매크로 작동하지만 방향을 유지할 수 없습니다. VBA를 사용하여 가로로 설정했지만 항상 세로로 돌아갑니다. 이 줄 바로 뒤에 코드를 삽입하면 문서 은으로 표시되지만 문서에서 한 번만 클릭하면 바로 세로로 돌아갑니다.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

이것은 현재 내 매크로에 대한 것입니다.

감사합니다 (아, 그리고 당신이 나쁜 스타일을 강조 할 수 있습니다, 이것은 내가 Word 용 VBA 매크로을 처음으로 (내가) Excel에서 그들에게 모든 시간을 할 것입니다)!

출처

2012-11-05 ApplePie

대신 :

wdDoc.PageSetup.Orientation = wdOrientLandscape

이 시도 :

Selection.PageSetup.Orientation = wdOrientLandscape

출처

2012-11-06 05:41:34

감사합니다! 이 + 이동 paperize 수정 *하기 전에 오리 엔테이션은 그것을했다. 어떤 이유로 용지 크기를 legal로 설정하면 방향이 세로로 되돌아갑니다. – ApplePie

매크로를 사용하여 작업 할 때 도움이 될 수있어서 다행입니다. 먼저 매크로를 기록한 다음 매크로를 기록하는 방법에 따라 필요에 맞게 약간 변경하십시오. - http://office.microsoft.com/en-kr -za/word-help/record-or-run-a-macro-HA010099769.aspx –

Word 문서 : 가로로 설정

답변

관련 문제