[vb6 e word] sostituire testo contenuto in griglia nell'header

[Kahm]

salve a tutti
avrei necessita di sostituire del testo contenuto in un file word
purtroppo alcune strighe si trovano in una tabella nell'intestazione,e qui non le sostituisce
mentre in altre parti di word va tutto bene
cosa c'è che non va
dato il seguente codcie ????:

Dim WordApp As New Word.Application

Sub apri(path As String)
    WordApp.Documents.Open path '"D:\Moduli iEasyConfig\Moduli Richiesta\Moduli Richiesta LA\a.doc"
    WordApp.Visible = True
End Sub
Sub salva(path As String)
    WordApp.ActiveDocument.SaveAs path  '"D:\Moduli iEasyConfig\Moduli Richiesta\Moduli Richiesta LA\b.doc"
    WordApp.Quit
    Set WordApp = Nothing
End Sub

Public Sub sostituisci(da As String, a As String)
    InserisciVariabileWord da, a, WordApp
End Sub
Sub InserisciVariabileWord(sVariabile As String, sValore As String, 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
   End With
   objWord.Selection.Find.Execute Replace:=wdReplaceAll
End Sub