29/11/2003, 20:11
|
| | | Fecha de Ingreso: noviembre-2003 Ubicación: España->Madrid
Mensajes: 368
Antigüedad: 20 años, 5 meses Puntos: 0 | |
| Prueba
Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Exit_Comando8_Click:
Exit Sub
Err_Comando8_Click:
msgbox Err.Description
Resume Exit_Comando8_Click
End Sub |