VBA/Macro Rijen boven invoegen

[Tweety1]

Ik heb een word document met op elke pagina een tabel.
Nu wil ik graag een macro maken die het hele bestand doorzoek naar het woord 'totaal' en bij elk gevonden woord een nieuwe (lege) rij daarboven invoegt.

mvg

Kasper

 

[Tweety1]

Ik heb ondertussen wel een en ander geprobeerd en gezocht op internet en kwam uit op deze macro. Alleen lukt me het niet om het hele document te doen

Sub test()
'
'Search for first instance of text, and if true, then do stuff
'
Application.ScreenUpdating = False
With Selection.Find
        .ClearFormatting
        .Text = "Totaal"
End With
'
If Selection.Find.Execute Then
Selection.Select 'Selects the string if found, other Actions would go here.
  'Do Stuff
 Selection.Rows.Add BeforeRow:=Selection.Rows(1)
 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext
End If


Application.ScreenUpdating = True
End Sub