Quiero abrir un archivo de word desde visual

[cerberus8]

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]

nadie ha probado nunca a hacerlo?

[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....

[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

[cerberus8]

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

[vbx3m]

Agregaste la libreria Microsoft Word x.x Object Library???

[cerberus8]

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]

alguien sabe que me puede estar diciendo ese error?

muchas gracias

[selma128]

aqui tienes un ejemplo para incluir Word dentro de visual basic


http://www.planetsourcecode.com/vb/s...58735&lngWId=1

[SoutlinK]

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]

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 ;)