请教老师下，用VBA设置WORD中，当前页为横向的代码

yjwdjfqb

请教老师下，用VBA设置WORD中，当前页为横向的代码

谢谢老师们了！

opiona

PageSetup 对象成员

1. 
   
2. 
   
3. Sub sss()
   
4.     Set myDoc = ActiveDocument
   
5.     With myDoc
   
6.         .PageSetup.Orientation = wdOrientLandscape
   
7.         .PrintOut  '//打印
   
8.         .PageSetup.Orientation = wdOrientPortrait
   
9.         .PrintOut  '//打印
   
10.     End With
    
11.    
    
12. End Sub

复制代码

yjwdjfqb

opiona 发表于 2018-3-27 22:04
PageSetup 对象成员

老师，这个是设置整个文档横向，我想设置，当前页横向请老师再帮我修改下，谢谢老师了！

duquancai

yjwdjfqb 发表于 2018-3-27 22:18
老师，这个是设置整个文档横向，我想设置，当前页横向请老师再帮我修改下，谢谢老师了！

什么叫当前页？？？？？？？？？？？？？？？？？？

yjwdjfqb

duquancai 发表于 2018-3-27 23:25
什么叫当前页？？？？？？？？？？？？？？？？？？

就是设置WORD中，当前光标所在页面，为横向
谢谢老师了！

同心/ty

请教一下，用excel vba合并2个word文件，第1个doc为竖向，第2个doc为横向。也就是说将第2个doc附加在第1个doc之后并是另起页。请问这样代码能写吗？最后面不能有空白页。求指教。