Quiero abrir un archivo de word desde visual

[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