Como Abrir Excel al momento de Cerrar Word

[toto122]

Les comento tengo un programa en excel que se enlaza con word por medio de un boton en excel que al momento de presionarlo cierra excel y abre el archivo en word que contiene la combinaciónl.

¿¿ Ahora necesito pormedio de codigo VBA de word 2007, que al momento de cerrar este archivo se cierre word y se habra nuevamente el archivo de excel pero NO en modo de lectura.

El codigo que utilizo para cerrar excel y abrir word es el siguiente:

Private Sub CommandButton4_Click()

ThisWorkbook.Save

Application.Quit

With CreateObject("Word.Application")

.documents.Open "C:\Users\ggalicia\Desktop\MERGE 029-2013\CONTRATO 029-2013 V.1.1.docm"

.Visible = True

End With

End Sub

y el codigo que utilizo al momento de cerrar word es el siguiente, el problema es que si cierra word pero no habre excel y si lo habre lo habre en modo de lectura

Private Sub Document_Close()

Dim LibroTrabajo, objWord As Object

Dim Fichero As String

Set objWord = CreateObject("Word.Application")

ActiveDocument.Save

Application.Quit {al quitar esta instrucción abre excel en modo lectura}

Fichero = "C:\Users\ggalicia\Desktop\MERGE 029-2013\BASE DE DATOS 029-2013 V.1.1.xlsm" 'con el path correspondiente

Set LibroTrabajo = CreateObject(Fichero)

LibroTrabajo.Workbooks.Open Fichero, , False 'El true es para abrir el archivo en modo Solo lectura (False si lo quieres de otro modo)

LibroTrabajo.Visible = True

End Sub

Alguien me puede ayudar gracias.

[toto122]

ya lo descubri mediante la siguiente funcion:

Private Sub Document_Close()

Dim LibroTrabajo, objWord As Object

Dim Fichero As String

ActiveDocument.Save

Dim objExcel As Excel.Application

Dim xLibro As Excel.Workbook

Set objExcel = New Excel.Application

Set xLibro = objExcel.Workbooks.Open("C:\MERGE 2013\BASE DE DATOS 029-2013 V.1.1.xlsm")

objExcel.Visible = True

TEMA RESUELTO