>Is there a way to determine the number of pages in a Word document? I'd like to test the number of pages to see if I need to run a shrink to fit function.
>
>Something like:
>
>if oWord.numpages > 1
> oWord.ActiveDocument.FitToPages()
>endif
oWord= CreateObject( "Word.Application" )
oDoc = oWord.Documents.Open( m.TFILE_NAME )
lnPageCount = oDoc.ComputeStatistics(2)
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.