如何用VBA代码实现指定页面为横页，如第三页设置为横页

lpn1983

一个多页的文档，如何用VBA代码实现指定页面为横页，如第三页设置为横页，其它页面不变，还是为竖页。

剑指E

第三页转横后原第三页文字能不能放下？需附件............

lpn1983

NIBABASHIWO 发表于 2022-8-24 12:52
第三页转横后原第三页文字能不能放下？需附件............

可以放下的

剑指E

Sub ss()
    Dim rg As Range, rga As Range
    With ActiveDocument
        Set rg = .GoTo(1, 1, 3)
        rg.Select
        Selection.MoveLeft
        Selection.InsertBreak 2
        Selection.Delete
        Set rga = .GoTo(1, 1, 4)
        rga.Select
        Selection.MoveLeft
        Selection.InsertBreak 2
        Selection.Delete
        rg.Select
        If Selection.PageSetup.Orientation = wdOrientPortrait Then
            Selection.PageSetup.Orientation = wdOrientLandscape
        Else
            Selection.PageSetup.Orientation = wdOrientPortrait
        End If
    End With
End Sub

413191246se

* 楼上 朋友 的代码不正确！吃掉了一个字符。请仔细检查一下，并请参看我最新帖《纵横转换》。

常扬帆

这个很好https://club.excelhome.net/forum ... ead&tid=1637945

lpn1983

常扬帆 发表于 2022-8-25 22:57
这个很好https://club.excelhome.net/forum.php?mod=viewthread&tid=1637945

谢谢！！！