Cycle Pages

[bont]

How can I cycle through all the pages in a word document? I ask this as I want to apply functions to pages on a page by page basis.

 

[SkipVought]

Hi,
"How can I cycle through all the pages in a word document?"

    Application.Browser.Next

"...I want to apply functions to pages on a page by page basis."

Public nPage as integer
Sub NextPage
  Application.Browser.Next
  nPage = nPage + 1
  Select Case nPage
    Case 0
      n = FunctionPage1()
    Case 1
      n = FunctionPage2()
    ....
  End Select
End Sub

???

Hope this helps


Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com