VBA Problem

Question

I am cleaning up the formatting of a large existing document for its next revision.  I am using VBA to do a lot of the heavy lifting but I am having a problem with setting the overall page layout.  Specifically, the code below:

      With ActiveDocument.PageSetup

            .HeaderDistance = InchestoPoints (0.2)

            .FooterDistance = InchestoPoints (0.2)

      End With

returns the error:

      Run-time Error '4608'

      Value out of range

Now this doesn't happen all the time, just most of the time.  I don't really know what the difference is between the times it does work and the times it doesn't.  So if anyone knows why this would happen, I would really like to know.

Answer 1

Try

Dim i as Long

With ActiveDocument

    For i = 1 To .Sections.Count

        With .Sections(i).PageSetup

            .HeaderDistance = InchesToPoints(0.2)

            .FooterDistance = InchesToPoints(0.2)

        End With

    Next i

End With

Answer 2

Doug,

I have had a lot of problems getting the "With Sections" or "With Paragraphs" or "With anything" to work and this helped to solve that unstated problem as well.  

Thanks,

Jay

Answer 3

The discussion in this thread may help:

https://social.msdn.microsoft.com/Forums/en-US/34c01167-369f-4df9-b78e-5d653801824c/word-macro-error-runtime-error-4608-value-out-of-range?forum=worddev

The first thing to try is looping through each Section in the document, setting the PageSetup values for just that section:

For Each sec in ActiveDocument.Sections

   With sec.PageSetup

       ' ....

   End With

Next sec