Visual Basic - Ayuda con un doc de word!!!!!!

miren se que aqui son bien pilas, y talves me pueden ayudar mi problema es el siguiente: tengo una msflexgrid que la estoy mandando a un doc word pero es un "new word.aplication" y tengo otro doc que tiene el encabezado que yo quisiera lo tuviera el doc de la grilla, en pocas palabras como uno los dos? les mando el codigo vale?........

Private Sub PAWORD_Click()
On Error Resume Next

'Variable de tipo Word Aplication
Dim MSWord As Word.Application

'Variable para manipular el documento
Dim Documento As Word.Document

'Variable de tipo tabla para poder hacer referencia a la tabla _
dentro del Word
Dim Parrafo As Table

'La f es para referenciar a las filas y la C para las columnas de la tabla de Word
Dim F, C As Double


'Set Of_Word = New Word.Application
'Of_Word.Application.Visible = True '--> para que se muestre la ventana del word
'Nombre_doc_word = "c:\doc1.doc"
'Of_Word.Documents.Open FileName:=Nombre_doc_word, _
'ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
'PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
'WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
'wdOpenFormatAuto, XMLTransform:=""


'CREE EL DOC Y LE PUSE ENCABEZADO
'**********MIO
Dim MiObjeto As Object

Open "C:\newfile.doc" For Output As #1 '<------- ESTE ES EL DEL ENABEZADO
Print #1, "REPORTES DE " & Label1.Caption & vbCrLf & vbCrLf
Close #1

Set MiObjeto = GetObject("C:\newfile.doc")
MiObjeto.Application.Visible = True

'********MIO


'PARA JALAR LA TABLA

Set MSWord = New Word.Application 'nuevo objeto para llamar a la aplicación
MSWord.Visible = True 'hacemos visible el documento'<------------ ESTE ES EL DE LA GRILLA
MSWord.Open FileName = nombre_doc_word

Set Documento = MSWord.Documents.Add 'nuevo documento

'creamos una tabla dentro de Word
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), grid.ApproxCount + 1, grid.Columns.Count)

'recorremos el Data Grid para agregar las columnas y filas a nuestra tabla
For C = 0 To grid.Columns.Count
grid.Row = 0
Parrafo.Cell(1, C + 1).Range.InsertAfter grid.Columns(C).Caption 'agregar columnas
For F = 1 To grid.ApproxCount
Parrafo.Cell(F + 1, C + 1).Range.InsertAfter grid.Columns(C).Value
grid.Row = grid.Row + 1
Next F
Next C

'Documento.PrintOut

'descargamos los objetos
Set MSWord = Nothing
Set Documento = Nothing
Set Parrafo = Nothing
End Sub