Visual Basic - AYUDA URGENTE...VB CON WORD

Gracias de antemano:
Estoy haciendo una pantalla me imprima un documento de word que previamente ya esta redactado como carta, el problema es que me inserte en la carta de word el nombre del proveedor,puesto y nombre la compañia,
la pregunta es ¿como le le hago para insertar los datos?
Nota: Se como abrir el archivo el problema es como remplazar texto y que quede en el mismo lugar sobre todo.
Ejemplo:
Lo que esta entre ("") es lo que necesito remplazar. este el cuerpo de la carta.....
Por medio de la presente aprovecho para saludarlo y así mismo solicitarle carta de apoyo y cotización separada para
participar en el concurso "aquiocupoinsertar" que lleva por nombre “nombre 1” y “nombre2” y se llevará a cabo en esta Ciudad el próximo día "06 de Junio de 2004".

Para esos casos es más prudente usar campos que hacer reemplazos, igualmente si grabas una macro en Word y copias el código ya lo obtienes.

Con reemplazos:

With objWord
.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
With .Selection.Find
.Text = ChrW(8220) & "nombre 1" & ChrW(8221)
.Replacement.Text = "Prueba"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
.Selection.Find.Execute Replace:=wdReplaceAll
End With

Con campos sería de ésta forma:

Dim objWord As Word.Application, objField As Word.FormField
Set objWord = New Word.Application

objWord.Documents.Open App.Path & "\PruebaForm.doc"

Set objField = objWord.ActiveDocument.FormFields.Item("Text1")
objField.Result = "Hola, hoy es " & Now

Set objField = objWord.ActiveDocument.FormFields.Item("Check1")
objField.CheckBox.Value = True

Set objField = objWord.ActiveDocument.FormFields.Item("DropDown1")
objField.DropDown.Value = 2

objWord.Visible = True