Office - Macro combinar correspopndencia

Estimados Amigos,

Entorno: Office 2000

El tema es el siguiete: Tengo una macro realizada en Excel, en la cual abro un documento Word (que previamente se le han insertado unos campos de combinación tipo {MergeField NombreEmpresa} ) y le asocio un origen de datos que en este caso es el propio libro Excel desde donde se llama al documento. El caso es que cada vez que ejecuto la macro, Word me vuelve abrir el origen de datos, cuando en realidad ya esta abierto, con el consiguiente mensaje "El fichero ya esta en uso y si deseo abrirlo como solo lectura". ¿Sabe alguien como evitar que se abra el origen de datos si ya esta abierto?

El codigo de la macro es el siguiente:

appWD.Documents.Open sFichero
Set DocComent = appWD.ActiveDocument
With DocComent.MailMerge
.OpenDataSource Name:=ThisWorkbook.FullName, _
ReadOnly:=True, _
Revert:=False, _
Connection:="DatosWord"
End With

El metodo "Revert", es para indicarle que hacer si el origen de datos esta abierto. Lo he probado tanto con "true" como con "False" y me sigue abriendo el origen de datos.

Agradeceria cualquier ayuda.

Muchas Gracias de antemano.

Podrias ejecutar la macro con el depurador (F8) para saber que linea da el error.
Supongo que debe ser la primera y despues poner un control de errores.

Un ejemplo

Sub prova()
Fch = InputBox("Fitxer:")
On Error GoTo aa

Open Fch For Input As #1
Close #1
Exit Sub

aa:
MsgBox ("Error")
End Sub

Tu macro podria quedar algo asi como:

On Error GoTo Salto
appWD.Documents.Open sFichero
Salto:

Set DocComent = appWD.ActiveDocument

With DocComent.MailMerge
.OpenDataSource Name:=ThisWorkbook.FullName, _
ReadOnly:=True, _
Revert:=False, _
Connection:="DatosWord"
End With