One Page at a time in Word
One Page at a time in Word
- Subject: One Page at a time in Word
- From: Nigel Smith <email@hidden>
- Date: Thu, 22 Feb 2001 11:58:12 +0000
Someone (Bill?, deleted the post already!) asked about saving Word docs one
page at a time. Word doesn't have Page in its DOM, so it doesn't look like
it can be done. But I've just stumbled across a knowledgebase article,
Q182177, which includes the code to *get* the current page:
Public Sub rPageSectionNumber()
Dim sCurPage As String
Dim sCurSection as String
'Obtain page number.
sCurPage = Selection.Information(wdActiveEndPageNumber)
'Obtain section number.
sCurSection = Selection.Information(wdActiveEndSectionNumber)
'Display results.
MsgBox "Page " & sCurPage & ": " & "Section " & sCurSection
End Sub
Could this be used? Something like...
start at top of document
nudge down one line at a time, until the page number changes
cut from the selection to the top of the document
paste into new doc and save
return to the old doc, now one page shorter and repeat
I haven't tried it -- I know next to nothing about VBA -- but that might
set better minds than mine off in a useful direction...
Nigel