¡Por fin! ¡Funciona perfectamente! He probado con el código que aparece en el link que me has dado y... Sí, ahora sí. Muchísimas gracias por tu ayuda. Seguiré visitando (y preguntando, a ver si voy aprendiendo algo) el foro regularmente y, si en alguna ocasión veo que puedo ayudar (cosa difícil con lo poco que sé, pero... nunca se sabe) pues lo intentaré. De momento cuelgo el código que aparecía en el link por si a alguien le puede ser útil tal y como queda al añadirlo al que ya expuse:
Código vb:
Ver originalPrivate sub enviarcarta()
Dim Word As New Word.Application
Dim Noproductos As Word.Document
Dim myRange as Range
Word.Visible = True
Set Noproductos=Word.Documents.Open(Filename:="C:\Noproductos.docx", ReadOnly:=False
Set myrange = word.ActiveDocument.Content
With myrange.Find
.ClearFormatting
.Text = "#PRODUCTO1#"
.Forward = True
.Wrap = wdFindContinue
Do While .Execute
myrange.Text = Producto1
Loop
End With