如何用VBA实现页面打开正常大小

sqhsqhli

73.jpg.rar (3.18 KB, 下载次数: 8)

2015-3-11 11:15 上传

点击文件名下载附件

  网络转换来的文档  VBA怎么转为正常大小

liuhoubin168

①打开一个正常页面。
②录制宏。
③页面设置（不用设置）
④确定。
⑤停止录制。
OK

sqhsqhli

运行失败，.Orientation = wdOrientPortrait
.RightMargin = CentimetersToPoints(3.17)

不能通过，你那儿可以吗

413191246se

Sub default_PageSetup()
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.54)
        .BottomMargin = CentimetersToPoints(2.54)
        .LeftMargin = CentimetersToPoints(3.17)
        .RightMargin = CentimetersToPoints(3.17)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
End Sub

sqhsqhli

在win8+2003下始终错误，无法解决




。

sqhsqhli

在百度找到解决方案http://jingyan.baidu.com/article/aa6a2c14f138130d4d19c474.html，结合宏录制，注释掉第一个报错，基本通过       没时间深究其内在原因