Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
|
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
On Mar 26, 12:14*pm, Miss E Miss
wrote: From what? |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
Sub splitter()
' ' splitter Macro ' Macro created 16-08-98 by Doug Robbins to save each page of a document ' as a separate file with the name Page#.DOC ' Dim Counter As Long, Source As Document, Target As Document Set Source = ActiveDocument Selection.HomeKey Unit:=wdStory Pages = Source.BuiltInDocumentProperties(wdPropertyPages) Counter = 0 While Counter Pages Counter = Counter + 1 DocName = "Page" & Format(Counter) Source.Bookmarks("\Page").Range.Cut Set Target = Documents.Add Target.Range.Paste Target.SaveAs FileName:=DocName Target.Close Wend End Sub -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Miss E" Miss wrote in message ... |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
Got Suzanne's crystal ball today Doug? g
-- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsof" wrote: Sub splitter() ' ' splitter Macro ' Macro created 16-08-98 by Doug Robbins to save each page of a document ' as a separate file with the name Page#.DOC ' Dim Counter As Long, Source As Document, Target As Document Set Source = ActiveDocument Selection.HomeKey Unit:=wdStory Pages = Source.BuiltInDocumentProperties(wdPropertyPages) Counter = 0 While Counter Pages Counter = Counter + 1 DocName = "Page" & Format(Counter) Source.Bookmarks("\Page").Range.Cut Set Target = Documents.Add Target.Range.Paste Target.SaveAs FileName:=DocName Target.Close Wend End Sub -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Miss E" Miss wrote in message ... |
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
Nah, mine's better.
-- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Gordon Bentley-Mix on news.microsoft.com" gordon(dot)bentleymix(at)gmail(dot)com wrote in message ... Got Suzanne's crystal ball today Doug? g -- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsof" wrote: Sub splitter() ' ' splitter Macro ' Macro created 16-08-98 by Doug Robbins to save each page of a document ' as a separate file with the name Page#.DOC ' Dim Counter As Long, Source As Document, Target As Document Set Source = ActiveDocument Selection.HomeKey Unit:=wdStory Pages = Source.BuiltInDocumentProperties(wdPropertyPages) Counter = 0 While Counter Pages Counter = Counter + 1 DocName = "Page" & Format(Counter) Source.Bookmarks("\Page").Range.Cut Set Target = Documents.Add Target.Range.Paste Target.SaveAs FileName:=DocName Target.Close Wend End Sub -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Miss E" Miss wrote in message ... |
#6
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
Must be a bloody good one if you managed to work out that answer from that
question... ;-P -- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsoft.com" wrote in message ... Nah, mine's better. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Gordon Bentley-Mix on news.microsoft.com" gordon(dot)bentleymix(at)gmail(dot)com wrote in message ... Got Suzanne's crystal ball today Doug? g -- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsof" wrote: Sub splitter() ' ' splitter Macro ' Macro created 16-08-98 by Doug Robbins to save each page of a document ' as a separate file with the name Page#.DOC ' Dim Counter As Long, Source As Document, Target As Document Set Source = ActiveDocument Selection.HomeKey Unit:=wdStory Pages = Source.BuiltInDocumentProperties(wdPropertyPages) Counter = 0 While Counter Pages Counter = Counter + 1 DocName = "Page" & Format(Counter) Source.Bookmarks("\Page").Range.Cut Set Target = Documents.Add Target.Range.Paste Target.SaveAs FileName:=DocName Target.Close Wend End Sub -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Miss E" Miss wrote in message ... |
#7
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
The code will separate the page numbers. Each one of them will be in a
separate file. While the filename will be the same as the page number that was on the original page, the page number in the file will not however. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Gordon Bentley-Mix" wrote in message ... Must be a bloody good one if you managed to work out that answer from that question... ;-P -- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsoft.com" wrote in message ... Nah, mine's better. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Gordon Bentley-Mix on news.microsoft.com" gordon(dot)bentleymix(at)gmail(dot)com wrote in message ... Got Suzanne's crystal ball today Doug? g -- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsof" wrote: Sub splitter() ' ' splitter Macro ' Macro created 16-08-98 by Doug Robbins to save each page of a document ' as a separate file with the name Page#.DOC ' Dim Counter As Long, Source As Document, Target As Document Set Source = ActiveDocument Selection.HomeKey Unit:=wdStory Pages = Source.BuiltInDocumentProperties(wdPropertyPages) Counter = 0 While Counter Pages Counter = Counter + 1 DocName = "Page" & Format(Counter) Source.Bookmarks("\Page").Range.Cut Set Target = Documents.Add Target.Range.Paste Target.SaveAs FileName:=DocName Target.Close Wend End Sub -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Miss E" Miss wrote in message ... |
#8
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
I have a 25 page document. How do I separate the page numbers
It helps that he just happens to have a macro already prepared for the
purpose. g -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Gordon Bentley-Mix" wrote in message ... Must be a bloody good one if you managed to work out that answer from that question... ;-P -- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsoft.com" wrote in message ... Nah, mine's better. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Gordon Bentley-Mix on news.microsoft.com" gordon(dot)bentleymix(at)gmail(dot)com wrote in message ... Got Suzanne's crystal ball today Doug? g -- Cheers! Gordon Bentley-Mix Word MVP Please post all follow-ups to the newsgroup. Read the original version of this post in the Office Discussion Groups - no membership required! "Doug Robbins - Word MVP on news.microsof" wrote: Sub splitter() ' ' splitter Macro ' Macro created 16-08-98 by Doug Robbins to save each page of a document ' as a separate file with the name Page#.DOC ' Dim Counter As Long, Source As Document, Target As Document Set Source = ActiveDocument Selection.HomeKey Unit:=wdStory Pages = Source.BuiltInDocumentProperties(wdPropertyPages) Counter = 0 While Counter Pages Counter = Counter + 1 DocName = "Page" & Format(Counter) Source.Bookmarks("\Page").Range.Cut Set Target = Documents.Add Target.Range.Paste Target.SaveAs FileName:=DocName Target.Close Wend End Sub -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Miss E" Miss wrote in message ... |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
separate page numbers for separate sections | Microsoft Word Help | |||
Want separate Chapter Page Numbers and Total Page Numbers. | Page Layout | |||
Hyperlink to specific page in separate document | Microsoft Word Help | |||
I have a 30 page document, I want to turn into 30 separate pages, | Microsoft Word Help | |||
Over-riding Section Page Numbers with Document Page Numbers in a T | Microsoft Word Help |