CountPages

[Ram]

Hi,
Anybody know how to count Total number of pages using WORDBASIC commands.

 

[Jay Freedman]

One way is ActiveDocument.Range.Information(wdActiveEndPageNumber).

Another way is

Sub foo()
Dim dlg As Dialog
ActiveDocument.Repaginate
Set dlg = Dialogs(wdDialogToolsWordCount)
dlg.Execute
Debug.Print dlg.Pages
Set dlg = Nothing
End Sub

There are probably others.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Ram]

Hi,
This is not what I want. I want the code using "WordBasic".

 

[Jonathan West]

Hi,
This is not what I want. I want the code using "WordBasic".

In WordBasic, SelInfo(4) returns the number of pages in the document.

You might need to use the ToolsRepaginate command first to ensure that the
value returned is up-to-date

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Ram]

Thank you. I found about selInfo on wordbasic help just before I checked yopr
post.