Wond doesn't do "pages" as we generally think of them. If you don't
necessarily want to edit those individual pages, you could make them .pdf
files.

Hi Highspeed,

without covering all possible complications,
like that, no way without copying and pasting,
except printing single pages to a pdf-file:

Sub SaveAllPagesSeperately()
Dim lTmp As Long
Dim iCnt As Long
lTmp = ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
For iCnt = 1 To lTmp
  Selection.GoTo _
  what:=wdGoToPage, _
  which:=wdGoToAbsolute, _
  Count:=iCnt
  Selection.Bookmarks("\page").Select
  Selection.Copy
  Documents.Add
  Selection.Paste
  ActiveDocument.SaveAs _
  FileName:="page-" & Format(iCnt, "000") & ".rtf", _
  FileFormat:=wdFormatRTF
  ActiveDocument.Close
Next
End Sub

Sub SaveSinglePageSeperately()
Dim lTmp As Long
lTmp = InputBox("Page?")
  Selection.GoTo _
  what:=wdGoToPage, _
  which:=wdGoToAbsolute, _
  Count:=lTmp
  Selection.Bookmarks("\page").Select
  Selection.Copy
  Documents.Add
  Selection.Paste
  ActiveDocument.SaveAs _
  FileName:="page-" & Format(lTmp, "000") & ".rtf", _
  FileFormat:=wdFormatRTF
  ActiveDocument.Close
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP