'Definimos la ruta del archivo WORD a abrir

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

        'Definimos la ruta del archivo WORD a abrir

        Dim rutaArchivo2 As String = "c:/documento2.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)

            'Comprobamos si el archivo existe

            If IO.File.Exists(rutaArchivo2) Then

                'Nos movemos al final del documento

                'WdUnits.wdStory = 6

                .Application.Selection.EndKey(6)

                'Insertamos una nueva página

                .Application.Selection.InsertNewPage()

                ' Anexamos el documento

                .Application.Selection.InsertFile(rutaArchivo2)

            Else

                MsgBox("No se ha encontrado el documento " & _

                rutaArchivo2, MsgBoxStyle.Exclamation, "Error")

            End If

            'Guardamos los cambios

            .Application.Documents.Save(True)

            'Cerramos el archivo

            .Application.Documents.Close()

            'Cerramos el Word

            .Application.Quit()

        End With

        'Liberamos la memoria destinada al WORD

        Documento = Nothing