'Definimos la ruta del archivo WORD a abrir

        Dim rutaArchivo As String = "c:/documento1.doc"

        'Creamos un objeto de aplicacion WORD

        Dim Documento As New Object

        Documento = CreateObject("Word.application")

        With (Documento)

            'Abrimos el Documento

            .Application.Documents.Open(rutaArchivo)

            'Mostramos la aplicacion

            WORD.Application.Visible = True

            'Con esto mantenemos la aplicacion

            'a la espera de cerrar el WORD

            Try

                While .Application.ActiveWindow.Active = True

                End While

            Catch ex As Exception

            End Try

        End With

        'Liberamos la memoria destinada al WORD

        Documento = Nothing