1

私は 2007 年にこのばかげた問題を抱えていms-wordます。ほとんどのマクロは意図したとおりに動作していますが、向きが定位置にとどまっていないようです。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 に答える