Hi Ron

How you go about extracting the bits of the old document depends, of
course, on what you need. If, for example, you needed to extract the
first paragraph of the old document, you could use something like this:

Sub CreateNewDoc()

Dim docOld As Word.Document
Dim docNew As Word.Document
Dim rngOld As Word.Range
Dim rngNew As Word.Range

   Set docOld = ActiveDocument
   Set docNew = Documents.Add(Template:="MyTemplate.dot")

   Set rngOld = docOld.Paragraphs(1).Range

   Set rngNew = docNew.Range
   rngNew.Collapse wdCollapseEnd
   rngNew.FormattedText = rngOld.FormattedText

   docNew.SaveAs FileName:="MyNewFileName.doc"

End Sub

Hope this helps.

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