Reemplazar contenedo de un documento Word desde Access VBA

Utilizo Access 365. Desde VB estoy intentando reemplazar partes de un texto de un documento Word (.docx)

El documento en particular es una carta (pero puede ser cualquier documento que quiero personalizar sin utilizar los marcadores de Word, para lo cual quiero sustituir parámetros que he de poner en el documento Word (por ejemplo "/:[12345]") y reemplazar ese texto por el contenido de un campo de la bases de datos que sí estoy manejando correctamente en mi aplicación, lo que me hace la composición de documentos más ágil y versátil que haciéndolo de otra manera.

De la página de Microsoft he encontrado el código siguiente:

With ActiveDocument.Content.Find
 .ClearFormatting
 .Font.Bold = True
 With .Replacement
 .ClearFormatting
 .Font.Bold = False
 End With
 .Execute FindText:="", ReplaceWith:="", _
 Format:=True, Replace:=wdReplaceAll
End With

Que parece que es lo que busco. Sin embargo cuando ejecuto ese código me dice:

"Se ha producido el error '4248' en tiempo de ejecución:

El comando no está disponible porque no hay ningún documento abierto.

El documento en Word sí se compone y visualiza correctamente si este código.

¿Es el problema que aunque he abierto un documento (

MSWord.Visible = True
Set Documento = MSWord.Documents.Open(Destino)

Que sin ese código veo correctamente, ¿en realidad no tengo un documento activo?

¿Estoy poniendo algo fuera del sitio?

¿Cuál es la solución?