设置页边距出错。

wyfhwgzs

    Dim mysect As Sections
    Set mysect = ActiveDocument.Sections

    With mysect.PageSetup
        .TopMargin = CentimetersToPoints(3.5)      '顶端边距
        .BottomMargin = CentimetersToPoints(2.5)   '底端边距
        .LeftMargin = CentimetersToPoints(2.5)     '左边距
        .RightMargin = CentimetersToPoints(2.5)    '右边距
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.5)
    End With
错误报“运行时错误'4608',数值超出范围”
设置页边距出错，有的文档不报错，有的文档就报错。
不解，还记大侠指点。

413191246se

楼主，你是不是要在所有“节”中循环，设置各个“节”为一样的页边距？请试试下面的代码：
Sub test()
    Dim s As Section
    For Each s In ActiveDocument.Sections
        With s.PageSetup
            .TopMargin = CentimetersToPoints(3.5)      '顶端边距
            .BottomMargin = CentimetersToPoints(2.5)   '底端边距
            .LeftMargin = CentimetersToPoints(2.5)     '左边距
            .RightMargin = CentimetersToPoints(2.5)    '右边距
            .HeaderDistance = CentimetersToPoints(1.5)
            .FooterDistance = CentimetersToPoints(1.5)
        End With
    Next
End Sub

wyfhwgzs

413191246se 发表于 2015-12-21 14:21
楼主，你是不是要在所有“节”中循环，设置各个“节”为一样的页边距？请试试下面的代码：
Sub test()
   ...

恩这个是可以。但是效率有点低。文档大点要处理好长时间。不能对节这个集合直接设定页边距吗。

413191246se

楼主，你的意思是对所有“节”设置同样的页边距，那为什么不录制一个宏，对“整个文档”进行设置页边距呢？而不必在每个“节”间循环。——我实践了一下，可行。

wyfhwgzs

Application.ScreenUpdating = False  '关闭操作过程
    Application.DisplayAlerts = False     '关闭EXCEL的提示框


    With ActiveDocument.PageSetup
        .TopMargin = CentimetersToPoints(3.5)      '顶端边距
        .BottomMargin = CentimetersToPoints(2.5)   '底端边距
        .LeftMargin = CentimetersToPoints(2.5)     '左边距
        .RightMargin = CentimetersToPoints(2.5)    '右边距
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.5)
    End With
直接用文档对象设置可以修改。
不过有一个费解的问题。我在一个空的文档插入了N个节，并试验用此代码可以一次性可以设置所有节的页边距。
但是换了一个文档，有数据的文档，也有个N个节，N页。就报错。代码还是原来的代码。在这个有数据的代码就报错“运行时错误‘4608’：数值超出范围”。实在是费解。
望大家帮我看看。

413191246se

Application.DisplayAlerts = False     '关闭EXCEL的提示框-------楼主，这明明是 WORD VBA，你怎么把 EXCEL 也带进来了？——楼主，你的原始问题是什么？咱们重新考虑一下。

wyfhwgzs

413191246se 发表于 2015-12-23 09:13
Application.DisplayAlerts = False     '关闭EXCEL的提示框-------楼主，这明明是 WORD VBA，你怎么把 EXC ...

目的是一次性设置定页边距，现在目前的方案是历遍所有节，一个节一个节的设置。效率低。用documentc对象直接设定会出溢出错误。

413191246se

楼主，如果你想把所有“节”的页边距设置为相同，不如录制个宏，或手动即可，而不必遍历“节”。

wyfhwgzs

413191246se 发表于 2015-12-25 09:46
楼主，如果你想把所有“节”的页边距设置为相同，不如录制个宏，或手动即可，而不必遍历“节”。

只是想弄明白怎么一回事。

loze2000

遇到通用的问题，寻找答案中