Código de Visual Basic - Mostrar documentos .doc

Filtrado por el tag: .NET 2015

<<>>

Mostrar documentos .doc

Visual Basic

(9)

Publicado el 3 de Septiembre del 2002 por Ramon Alexander Mendez (24 códigos)

27.204 visualizaciones desde el 3 de Septiembre del 2002

Este código muesta un archivo de Word (.doc) dentro del nuestro programa.

Versión 1
(9)

Publicado el 3 de Septiembre del 2002

gráfica de visualizaciones de la versión: Versión 1

27.205 visualizaciones desde el 3 de Septiembre del 2002

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

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

Pepe Sanchez

4 de Septiembre del 2002

Pésimo, no me abre nada bien, pone un monton de caracteres no válidos... es relmante malo. NO bajar !

Responder

Alexander M

4 de Septiembre del 2002

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

Sharon-pr

14 de Septiembre del 2002

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

ham

2 de Octubre del 2002

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

Raul Guillermo Mejia Tenorio

14 de Octubre del 2002

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

Raul Guillermo Mejia Tenorio

15 de Octubre del 2002

No hagas caso de los comentarios negativos, yo lo abri y funcionò sin ningun problema

Responder

henry

3 de Marzo del 2006

muy interesante el programa pero algunas caracteristicas de Word no los reconoce pero esta bien.

Responder

Ariel Martínez Romano

31 de Marzo del 2009

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

yordin

18 de Julio del 2019

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