I don't know if this is what you were after, but Word has both a page
number field and a page count field that can be inserted in the footer.
If you want a macro to insert it, here is a snippet of code that you
could use - I generated it using the record feature:
Selection.TypeText Text:="Page "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
Selection.TypeText Text:=" of "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
To achieve your desired translation from numbers to words, it should be
possible to write a routine that checks the value of each number and
replaces it with the appropriate word. However, it would not
automatically update and you would need to run the marcro each time you
added, deleted, or moved pages.
Peter
-----------------------------------------------
The NoSpin Group
[log in to unmask]
-----Original Message-----
Does anybody have a Word Macro,that will work with MS Word 2002, and
which will automatically put a page number footer in this format >>>
Page 1 of 3
or even better,
Page One of Three
Rode
"Hold No Punches.." Rode brings you great shareware/freeware
programs with his honest opinions in this weekly column.
http://freepctech.com/rode
|