Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/01/2007, 11:22
Avatar de epa2
epa2
 
Fecha de Ingreso: abril-2002
Ubicación: Málaga
Mensajes: 1.475
Antigüedad: 23 años
Puntos: 9
Novato en VB:error de sintaxis en el msgbox

hola, vengo del foro de ofimatica, colgué este post allí hace algunos días pero estoy viendo que al final me equivoqué de foro,, creo que este sería más correcto...

la idea era una macro que al abrir un doc de word me preguntara con msgbox y metiera los datos en el documento, luego comprobar los datos con otro msgbox y si estoy de acuerdo, imprimo dos copias y cierro el doc de word sin guardar los cambios, pero en esto de visual basic estoy torpe,,, aquí les pongo lo que tengo echo.... estuve 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.
__________________

***Aprendiz de todo y maestro de nada***