Repagination

Hello,
Well, I have an unusual repagination problem. I understand that
background repagination (in Normal View) may be turned off along with
the screen updations.


Sub MakeAllFast()
ActiveWindow.View.Type = wdNormalView
ActiveDocument.Repaginate
Application.ScreenUpdating = False
Application.Options.Pagination = False
End Sub

Sub MakeAllNormal()
Application.ScreenUpdating = True
Application.Options.Pagination = True
ActiveDocument.Repaginate
End Sub

I am working on a huge 200 page document which needs automation and I
simply call 'MakeAllFast' before the Find and Replace loops and
'MakeAllNormal' after the loops.
This works as expected and I do not see the "Word is repaginating ..."
message on my computer which runs Microsoft Word 2003.

However, the problem occurs when I install the template on Word 2000
based machines. Inspite of ensuring that background pagination is
turned off and Normal View is being used, I still keep getting the
"Word is repaginating..." message on these computers. I have no idea
why. What takes 30 seconds on my computer takes around 6-7 minutes on
the other computers that use Word 2000. I thought that background
repagination in normal view should work the same in all versions of
Word.

Can somebody please shed some light on this? I did break the code and
ensure that the options.pagination was false and activewindow.view.type
was 1 (Normal) on the 2000 machines before the main loop got executed.
I still got the "Repagination" message.

Thanks a lot for any help.
Vince

Graham
Wed Feb 15 04:07:01 CST 2006

Am I missing something here? You seem to be forcing a repagination in both
macros
ActiveDocument.Repaginate
and are complaining because it does so?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

LtCommander wrote:
> Hello,
> Well, I have an unusual repagination problem. I understand that
> background repagination (in Normal View) may be turned off along with
> the screen updations.
>
>
> Sub MakeAllFast()
> ActiveWindow.View.Type = wdNormalView
> ActiveDocument.Repaginate
> Application.ScreenUpdating = False
> Application.Options.Pagination = False
> End Sub
>
> Sub MakeAllNormal()
> Application.ScreenUpdating = True
> Application.Options.Pagination = True
> ActiveDocument.Repaginate
> End Sub
>
> I am working on a huge 200 page document which needs automation and I
> simply call 'MakeAllFast' before the Find and Replace loops and
> 'MakeAllNormal' after the loops.
> This works as expected and I do not see the "Word is repaginating ..."
> message on my computer which runs Microsoft Word 2003.
>
> However, the problem occurs when I install the template on Word 2000
> based machines. Inspite of ensuring that background pagination is
> turned off and Normal View is being used, I still keep getting the
> "Word is repaginating..." message on these computers. I have no idea
> why. What takes 30 seconds on my computer takes around 6-7 minutes on
> the other computers that use Word 2000. I thought that background
> repagination in normal view should work the same in all versions of
> Word.
>
> Can somebody please shed some light on this? I did break the code and
> ensure that the options.pagination was false and
> activewindow.view.type was 1 (Normal) on the 2000 machines before
> the main loop got executed. I still got the "Repagination" message.
>
> Thanks a lot for any help.
> Vince

LtCommander
Wed Feb 15 19:26:51 CST 2006

Graham,
I am repaginating before turning the repagination off just to ensure
that the page numbers are correct before I enter the loop. I have
already tried removing that line from the MakeAllFast routine but of no
avail. Word 2000 still repaginates and Word 2003 does not.

Vince