Saving parts of documents

[JimT]

I'm using Word 97. How can I save portions of large documents? For
instance, I have a document that has over 200 pages. I want to save pages
50 through 110 as a new document. Is there an easy way to do this? I have
used cut and paste but that is a little unwieldy.

Thanks, Jim

 

[Greg Maxey]

JimT,

You can adapt and apply the following macro:

Sub CopySelectedToNewDoc()
Selection.Copy
Documents.Add Template:= _
"C:\Documents and Settings\Maxey\Application
Data\Microsoft\Templates\Normal.dot", NewTemplate:=False, DocumentType:=0
Selection.Paste
End Sub

See:
http://www.gmayor.dsl.pipex.com/installing_macro.htm

 

[JimT]

Hi Greg, Thanks for the reply. I went to your link and followed the
directions for creating a macro. I keep getting a compilation error. I
think it has to do with the line of code being broken prematurely - as a
result of e-mail editor line wrapping. The lines in question are from
Documents.Add Template thru Data\Microsoft etc. Could you number the lines
of code so that if they are broken I can piece them together once I have
them. Thanks, Jim

 

[Shauna Kelly]

Hi Jim

Here's the code re-written. The long stuff in the middle that was
probably causing problems is the default, so the following achieves the
same thing without risking line breaks:

Sub CopySelectedToNewDoc()
Selection.Copy
Documents.Add
Selection.Paste
End Sub

However, I'd have to say that if I was in your shoes, I'd do File > Save
As to create a copy of the original document, and then delete the bits I
didn't want. The minor advantage of doing it that way is that the "new"
document will still be attached to the same template as the "old"
document. Whereas the little macro will attach your "new" document to
normal.dot.

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word
Melbourne, Australia

 

[Greg Maxey]

JimT,

Sorry for the confussion. I agree with Shauna's changes and frankly her
advice as well.

 

[JimT]

Thanks to you both for the response. Jim

JimT,

Sorry for the confussion. I agree with Shauna's changes and frankly her
advice as well.



--
Greg Maxey
A peer in "peer to peer" support
Rockledge, FL
Remove the obvious (wham...m) to reply in e-mail