Con questa procedura sostituisco le variabili inserite nel foglio word, ti ho evidenziato in grassetto la parte che mi evidenzia dopo l'errore di run-time

Public Sub InsWord(sVariabile As String, ByVal sValore As String, ByVal objWord As Word.Application)

objWord.Selection.Find.ClearFormatting
objWord.Selection.Find.Replacement.ClearFormatting

With objWord.Selection.Find
.Text = sVariabile
.Replacement.Text = sValore
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With

End Sub