Visual Basic para Aplicaciones - Problema de VB con Word

Hola, me gustaria que me ayudaran con el siguiente problema:

Resulta que tengo un doc. en Word 97 como "machote" y desde VB necesito sustituir algunas palabras que varian de acuerdo a los datos de cada persona. El codigo que estoy usando para esto es el sig:

Set AppWord = CreateObject("Word.application")
Set Word = CreateObject("Word.Basic")
With Word
.Filenew L_ArchivoFte
.StartOfDocument
.EditFind XNOMBREX
.deleteword
.Insert "Pedro"
.FileSaveAs L_ArchivoDest
End With
Set AppWord = Nothing
Set Word = Nothing


sòlo que de esta forma, se come algunos espacios y no me respeta el formato de la palabra que voy a reemplezar (negritas, subrayado, etc)

Al hacer los reemplazos, el archivo destino (el que contiene los reemplazos) se queda abierto, esto me perjudica al momento de generar otra demanda me marca el error
del que el archivo esta abierto. y también al momento de salir de windows me pregunta si deseo guardar los cambios en el documento.
Quiero usar siempre un mismo archivo destino.

De antemano muchas gracias... Saludos a todos...