VBA Word spm. "Find/Erstat tekst i tabel"

Tryk på Rediger - Søg og erstat. Vil du have en macro der kan det samme (hvorfor det?), er koden nogeti retning af:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Hej"
        .Replacement.Text = "Hellow"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Du kan ændre de ord der skal erstattes, og sætte diverse ting til true/false. Hvis du vil kende forskel på små/store bogstaver, kan du jo sætte 
.MatchCase = True

Ups - mangler denne linie, der skal stå øverst

Sub MinSøgOgErstatMakro()

Hvis du KUN vil søge i tabellerne, kan du jo markere dem først

for i = 1 to 5
  Selection.Tables(i).Select
  'Indæst koden ovenfor der søger og erstatter
Next i

Hvis du nu have 5 tabeller :o)

Tak for hjælpen.

god weekend

nicolaus

PS: Er du i tvivl om hvordan du kan gøre noget med en macro, så optag en. Herefter kan du rette koden en anelse til, så det passer præcist til hvad du vil

Det plejer jeg også, men koden til at søge specifikt i en tabel kunne jeg ikke finde i Hjælp eller ved Makro.

Men tak for tippet alligevel.