[求助]多页面文档不改页面方向都设置为A4纸张？

zgr0123

  多页面文档，若干页为A4纵向，若干页为A4横向，若干页为B5纵向，若干页为16K横向.......等等，
  反正有很多分节符（下一页），而且纸张类型混杂，
  如何用VBA将所有页都设置为A4而不改变各节的纸张方向？

c81

录一下 页面设置大小 应用于全文档 的宏，然后将宏修改一下，删除不必要的选项，即只留长宽及应用于整个文档选项部分，请试试看看。

[此贴子已经被作者于2006-11-16 13:53:27编辑过]

zgr0123

偶试一下。

zgr0123

查找功能中，如果找到了所要的东东，系统返回什么？如何获取该返回信息？好象有个：
If match Then
   ...
Else
  ...
End If
怎么用啊？

守柔

QUOTE:

以下是引用zgr0123在2006-11-22 12:17:03的发言：

顶起来。

请试一下这段代码：

Option Explicit

Sub Example()
    Dim oSec As Section, wdOr As WdOrientation
    Application.ScreenUpdating = False
    For Each oSec In ActiveDocument.Sections
        With oSec.PageSetup
            If .PaperSize <> wdPaperA4 Then
                wdOr = .Orientation
                .PaperSize = wdPaperA4
                .Orientation = wdOrientLandscape
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

zgr0123

测试中，感谢！[em06]