Word: ¿como se introduce texto automaticamente al abrir el documento???

[epa2]

hola de nuevo,,, he estado consultando en la MDSN de microsoft,, les pongo lo que he podido hacer hasta el momento...

Private Sub Document_Open()
nombre = InputBox("¿Como te llamas?")
FormFields("nombre").Result = nombre

apellidos = InputBox("¿me dices tus apellidos?")
FormFields("apellidos").Result = apellidos

Rem comprobamos los datos introducidos y mandamos imprimir
MsgBox ("Los datos son los siguientes:&nombre&apellidos ",vbOKCancel,"¿Imprimimos o no Pepe?",43) = vbOk then

Rem mandamos imprimir dos copias
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

Rem dejamos los campos de texto limpios
ActiveDocument.FormFields("nombre").Result = ""
ActiveDocument.FormFields("apellidos").Result = ""

'Cerramos el documento sin guardar ningún tipo de cambios
'pero con esta instrucción siempre me lo pregunta. ¿como sería correctamente?
ActiveWindow.Close

' si no pues volveríamos al principio
Else
'¿como se hace para volver al principio sin tener que repetir
'todas las lineas del principio
End If
End Sub

pues este el código, me da error en el msgbox, dice que la sintaxis no es correta y luego tambien que hay un end sin cerrar, pero yo lo tengo cerrado, pues nada, ya me dicen ustedes, voy a ver si me tomo una infusión para despejarme la cabeza.

un saludete.