No me gusta mucho eso de dar el code de tus programas, tampoco con la dependencia del framework de windows... Asi que es dificil escojer entre openoffice y office... Es cuestion de gustos...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: D4N93R en 8 Junio 2010, 15:42 PM+1monton
Será que algun día evulucione mi país y la selección de Venezuela llegue al mundial? LOL
Private Sub mnuGuardar_Click()
On Error GoTo errSub
If Forms.Count = 1 Then
MsgBox "No hay documentos para guardar", vbInformation
Exit Sub
End If
If InStr(1, ActiveForm.Caption, sCaption) Then
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then Exit Sub
ActiveForm.RichTextBox1.SaveFile CommonDialog1.FileName
Else
ActiveForm.RichTextBox1.SaveFile ActiveForm.Caption
End If
Exit Sub
errSub:
Select Case Err.Number
Case 91
Resume Next
End Select