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.
