纵横转换（宏）——最新更新 2022-8-25

413191246se

* 纵横转换（宏）：将选定区域（页面）的纸张方向进行纵横转换（纵向转横向/横向转纵向）。此宏可单独使用。如果经常进行页面转换，可使用《SelectPage选定页面纵横转换》宏。
* 此小程序以前未认真研究过，只是录制宏的结果。今天认真一研究，发现首页、尾页与中间页有所不同。
* 如果将此代码用于 Word2019 ，请将代码拷贝到空白文档后，全选，剪切，再复制到 VBE 中使用；否则，可能 会有乱码（汉字变乱码）。

1. Sub Vertical()
   
2. '纵横转换
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then End
   
5.         If .Start <> 0 Then
   
6.             ActiveDocument.Range(Start:=.Start, End:=.Start).InsertBreak Type:=wdSectionBreakNextPage
   
7.             .Start = .Start + 1
   
8.         End If
   
9.         If .End <> ActiveDocument.Content.End Then
   
10.             ActiveDocument.Range(Start:=.End, End:=.End).InsertBreak Type:=wdSectionBreakNextPage
    
11.         End If
    
12.         With .PageSetup
    
13.             If .Orientation = wdOrientPortrait Then .Orientation = wdOrientLandscape Else .Orientation = wdOrientPortrait
    
14.         End With
    
15.     End With
    
16. End Sub
    
17. Sub PageVertical()
    
18. '选定页面纵横转换
    
19.     Dim p$, q$
    
20.     q = ActiveDocument.Content.Information(wdActiveEndPageNumber)
    
21.     p = InputBox("本文档共有 " & q & " 页！", "请输入页码！", q)
    
22.     If p = "" Then End
    
23.     If p > q Then MsgBox "超出页码范围！", 0 + 16: End
    
24.     Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=p
    
25.     ActiveDocument.Bookmarks("\Page").Range.Select
    
26.     If p = q Then Selection.MoveEnd
    
27.     Vertical
    
28. End Sub

复制代码

常扬帆

报告楼主：Word2016也行。衷心感谢楼主的无私奉献！

shenjianrong163

我原来常出现复制代码后，粘贴到VBE窗口中，中文变乱码。后来发现在复制代码前将电脑的输入法切换成中文就可以了。

413191246se

谢谢 沈老师！从网页上复制这个代码到 Word 2019 中后，有时乱码，有时正常。你说的情况刚才我试了试，未应验。

文化属性666

收藏学习中，谢谢

mythqiu

学习，，，，，