Código de Visual Basic - Mostrar documentos .doc

sin imagen de perfil

Mostrar documentos .docgráfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(9)
Publicado el 3 de Septiembre del 2002 por Ramon Alexander Mendez
25.987 visualizaciones desde el 3 de Septiembre del 2002
Este código muesta un archivo de Word (.doc) dentro del nuestro programa.

Versión 1
estrellaestrellaestrellaestrellaestrella(9)

Publicado el 3 de Septiembre del 2002gráfica de visualizaciones de la versión: Versión 1
25.988 visualizaciones desde el 3 de Septiembre del 2002
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (9)

4 de Septiembre del 2002
estrellaestrellaestrellaestrellaestrella
Pésimo, no me abre nada bien, pone un monton de caracteres no válidos... es relmante malo. NO bajar !
Responder
4 de Septiembre del 2002
estrellaestrellaestrellaestrellaestrella
Saludos amigo Pepe, mire compañero dejeme decirle que yo me considero un profesional en lo que hago, si yo no estubiese completamente seguro del codigo que genere no se lo hubiese enviado a lawebdelprogramador, te recomiendo que verifiques que el archivo no este corrupto, te aseguro que el codigo que envie esta probado 100 por ciento y funciona .... Seguimos en contacto
Responder
14 de Septiembre del 2002
estrellaestrellaestrellaestrellaestrella
Saludos!!! Alexander: Realicé la descarga muy bien de la web. Cuando abrí el archivo para ver corriendo el programa tuve que la Librería de Microsoft Word9D, según solicitado. Luego cuando le di play abrió el programa. Sin embargo cuando le doy al botón para Mostrar archivo me dio un error en la siguiente sección del código:

Private Sub Command1_Click()

\'Label1.Caption = \"\"
CommonD.DialogTitle = \"Buscar archivo...\"
CommonD.FileName = \"\"
CommonD.Filter = \"Todos los archivos|*.*\"
CommonD.ShowOpen
If CommonD.FileName <> \"\" Then
Dim aux As String
aux = Mid(CommonD.FileName, Len(CommonD.FileName) - 3, 4)
If aux Like \".doc\" Or aux Like \".DOC\" Then
RichTextBox1.Text = \"\"
Label1.Caption = CommonD.FileName
Command2.Enabled = True
Else
MsgBox (\"El archivo no tiene extension .doc\"), vbCritical
Label1.Caption = \"\"
RichTextBox1.Text = \"\"
Command1.Enabled = True
Command2.Enabled = False
End If
End If
MostrarAutor

NO RECUERDO BIEN SI LA VARIABLE QUE POR PRIMERA VEZ MARCó COMO ERROR EL PROGRAMA ERA MID. LUEGO CUANDO LO CORRI NUEVAMENTE EL BOTON DE MOSTRAR ESTá DESABILITADO.

Muchas gracias,
hasta luego...
Responder
2 de Octubre del 2002
estrellaestrellaestrellaestrellaestrella
solo se ejecuta pero si eliges que te muestre el archivo se queda pegado, y si lo abres por VB te da error de un variable, malo no combiene bajarlo, pero te puede servir de ejemplo para otras cosas, chaooo
Responder
14 de Octubre del 2002
estrellaestrellaestrellaestrellaestrella
El unico defecto que le encuentro a tu programa es la referencia hacia Word, si no utilizas ninguna referencia y lo abres como un objeto, no importa la version de office que tengas ya que con la referencia lo amarras a office
Responder
15 de Octubre del 2002
estrellaestrellaestrellaestrellaestrella
No hagas caso de los comentarios negativos, yo lo abri y funcionò sin ningun problema
Responder
3 de Marzo del 2006
estrellaestrellaestrellaestrellaestrella
muy interesante el programa pero algunas caracteristicas de Word no los reconoce pero esta bien.
Responder
31 de Marzo del 2009
estrellaestrellaestrellaestrellaestrella
No está mal del todo, porque abre los documentos de Word, pero no conserva los formatos ni muestra las imágenes que contenga el documento. Puede ser útil en alguna circunstancia, pero no es lo que esperaba. Igualmente, la limitación no es del todo culpa del programador, porque las limitaciones propias de Visual Basic son muchas y a menudo tenemos que hacer maravillas para que las cosas salgan más o menos bien. Yo por ejemplo nunca pude hacer que VB reconozca correctamente las fuentes Unicode. Saludos.
Responder
Imágen de perfil
18 de Julio del 2019
estrellaestrellaestrellaestrellaestrella
buenas tardes amigo como estas, me gustaría implementar esto en un ejercicio que estoy haciendo, pero sucede que mi PC no permite instalar el OCX del RichTextBox no se que pasa, he reinstalado el VB6 profesional y el MSDN mil veces y nada, habría alguna otra forma de cargar el word en formulario que no dependa de un RichTextBox
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s299