Word VBA - Use ActiveDocument.FitToPages if applicable

[grannyM]

When a macro generates a document such as a letter, that (for example) has only 3 lines of text on the 2nd page, is there a way to have VBA determine how many lines of text are on that last page so that it can use the ActiveDocument.FitToPages command if applicable?

Any help is appreciated

 

[RobBroekhuis]

One way of doing it might be to go to the end of the document and finding the vertical position. If it is too small, fit to one fewer pages:

selection.move wdStory
if selection.Information(wdVerticalPositionRelativeToPage)<100 then
...fittopages=selection.information(wdActiveEndPageNumber)
end if

Rob

 

[grannyM]

This works, thanks!
Just a questions tho, why did you use:

fittopages=selection.information(wdActiveEndPageNumber)

instead of just

activedocument.fittopages

 

[RobBroekhuis]

I was lazy, and didn't bother to record the code generated when setting the &quot;FitToPages&quot; (my Word VBA random access memory is very limited). Since you had played with this already, I figured you'd know what to do
Rob

 

[grannyM]

ok, thanks! I'm fairly new at VBA and I wasn't sure if there was something I was missing. I appreciate your help.