Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 13-jun-2006, 10:23   #1 (permalink)
cerberus8 está en el buen camino
 
Fecha de Ingreso: octubre-2003
Mensajes: 398
Quiero abrir un archivo de word desde visual

Buenas tardes a todos, he conseguido a través de un botón abrir word para trabajar, pero quiero abrir un archivo concreto de word. Alguien puede ayudarme a decirme como?

Esto es lo que he usado:
Set oApp = CreateObject("Word.Application")

Saludos y muchas gracias
cerberus8 está desconectado   Responder Citando
Antiguo 14-jun-2006, 00:12   #2 (permalink)
cerberus8 está en el buen camino
 
Fecha de Ingreso: octubre-2003
Mensajes: 398
nadie ha probado nunca a hacerlo?
cerberus8 está desconectado   Responder Citando
Antiguo 15-jun-2006, 18:43   #3 (permalink)
roortiz está en el buen camino
 
Fecha de Ingreso: abril-2004
Ubicación: Añatuya
Mensajes: 92
Enviar un mensaje por ICQ a roortiz Enviar un mensaje por MSN a roortiz Enviar un mensaje por Yahoo  a roortiz
yo he probado y nunca he podido, necesitaba hacer justamente lo que necesiytas hacer vos o mas o menos parecido. Lo que yo queria hacer era que dentro de un form de VB6 me permita editar un documeno de word, pero nunca lo logre.... tal vez alguien lo haya hecho....
__________________
Un angel le dice a Dios - Señor han descifrado el genoma humano - a lo que Dios contesta - Condenados hackers, voy a tener que cambiar la contraseña
roortiz está desconectado   Responder Citando
Antiguo 16-jun-2006, 16:16   #4 (permalink)
vbx3m está en el buen camino
 
Avatar de vbx3m
 
Fecha de Ingreso: febrero-2005
Ubicación: Venezuela
Mensajes: 524
Enviar un mensaje por MSN a vbx3m Enviar un mensaje por Yahoo  a vbx3m
Para abrir x documento:

Código:
Dim Documento As New Word.Application
    With Documento
         .Application.Documents.Open App.Path & "\ejemplo.doc"
         .Application.Visible = True
    End With
    Set Documento = Nothing
Y para introducir texto o tablas:

Código:
Dim Documento As New Word.Application
    With Documento
        'para abrir un documento
        .Application.Documents.Open App.Path & "\ejemplo.doc"
        'marcadores
        .Documents.Item(1).Bookmarks.Item("Marcador1").Range.Text = "TITULO"
        .Documents.Item(1).Bookmarks.Item("Marcador2").Range.Text = "OTRO TEXTO"
        'final del documento
        .Application.Selection.EndKey wdStory
        'intro
        .Application.Selection.TypeParagraph
        'introduccion de texto
        .Application.Selection.TypeText "Ejemplo de prueba"
        'intro
        .Application.Selection.TypeParagraph
        .Application.Selection.TypeParagraph
        .Application.Selection.TypeParagraph
        'crear tabla
        .Documents.Item(1).Tables.Add Documento.Application.Selection.Range, 3, 5
        'relleno de tabla
        .Documents.Item(1).Tables(1).Cell(1, 1).Range.Text = "Celda 1"
        'muestra el documento
        .Application.Visible = True
    End With
    Set Documento = Nothing
__________________
ホルヘ・ラファエル・マルティネス・レオン
vbx3m está desconectado   Responder Citando
Antiguo 19-jun-2006, 02:07   #5 (permalink)
cerberus8 está en el buen camino
 
Fecha de Ingreso: octubre-2003
Mensajes: 398
vbx3m me da un error al compilar. me dice:

Error de compilación. No se ha definido el tipo definido por el usuario.

Documento As New Word.Application 'en esta línea me da el error.

Saludos
cerberus8 está desconectado   Responder Citando
Antiguo 19-jun-2006, 06:07   #6 (permalink)
vbx3m está en el buen camino
 
Avatar de vbx3m
 
Fecha de Ingreso: febrero-2005
Ubicación: Venezuela
Mensajes: 524
Enviar un mensaje por MSN a vbx3m Enviar un mensaje por Yahoo  a vbx3m
Agregaste la libreria Microsoft Word x.x Object Library???
__________________
ホルヘ・ラファエル・マルティネス・レオン
vbx3m está desconectado   Responder Citando
Antiguo 20-jun-2006, 09:51   #7 (permalink)
cerberus8 está en el buen camino
 
Fecha de Ingreso: octubre-2003
Mensajes: 398
Lo intento hacer, pero me da este error. Cosa que en anterior officce no me hacía, me dejaba sin problemas.

En el menu "complementos" -> referencias
obtengo el mensaje * Error en el acceso al registro del sistema *

que puedo hacer vbx3m?

Saludos
cerberus8 está desconectado   Responder Citando
Antiguo 23-jun-2006, 02:47   #8 (permalink)
cerberus8 está en el buen camino
 
Fecha de Ingreso: octubre-2003
Mensajes: 398
alguien sabe que me puede estar diciendo ese error?

muchas gracias
cerberus8 está desconectado   Responder Citando
Antiguo 24-jun-2006, 12:38   #9 (permalink)
selma128 está en el buen camino
 
Fecha de Ingreso: diciembre-2003
Mensajes: 185
aqui tienes un ejemplo para incluir Word dentro de visual basic


http://www.planetsourcecode.com/vb/s...58735&lngWId=1
selma128 está desconectado   Responder Citando
Antiguo 01-dic-2007, 07:27   #10 (permalink)
SoutlinK ha deshabilitado el karma
 
Fecha de Ingreso: junio-2007
Mensajes: 24
Re: Quiero abrir un archivo de word desde visual

HOla gente.

Gracias por el codigo, pero necesito que me ayuden a realizar una pequeña modificacion.

Yo ya tengo una plantilla echa en word con una tabla.

Se rellenarla pero me hacen falta mas filas.

Alguna opcion para agregar filas a una tabla lla existente mediante codigo??

Gracias de antemano
SoutlinK está desconectado   Responder Citando
Antiguo 01-dic-2007, 08:13   #11 (permalink)
SoutlinK ha deshabilitado el karma
 
Fecha de Ingreso: junio-2007
Mensajes: 24
Re: Quiero abrir un archivo de word desde visual

Ya es, ya lo encontré!!
Código:
.Documents.Item(1).Tables(1).Rows.Add
La madre que lo hizo..

lo que me a costado

Gracias de todas formas ;)
SoutlinK está desconectado   Responder Citando
Respuesta

Calificación: Calificación de Tema: 1 votos, 5,00 de promedio.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 11:28.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93