Word Makro

[Antonio]

Hallo. Ich möchte in Word ein Makro erstellen, dass einen Text nach einem tag (tag = ////) durchsucht und für den nachstehenden Link ein Bild einfügt. Das klappt mit meinem Sourcecode allerdings nur mit maximal einem Link in einem Dokument. Was muss ich im Sourcecode ändern, dass er nach mehreren Tags sucht und die ersetzt.

Sub markieren_ersetzen()

' Bildeinfügen Makro

On Error GoTo Fehlerbehandlung

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "////"
        .Replacement.text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

Selection.Find.Execute
    With Selection
       If .Find.Forward = True Then
           .Collapse Direction:=wdCollapseStart
       Else
           .Collapse Direction:=wdCollapseEnd
      End If
       .Find.Execute Replace:=wdReplaceOne
       If .Find.Forward = True Then
           .Collapse Direction:=wdCollapseEnd
       Else
          .Collapse Direction:=wdCollapseStart
       End If
       .Find.Execute
   End With

With Selection
    .Collapse
    .ExtendMode = True
    ' Select current word.
    .Extend
    ' Select current sentence.
    .Extend
End With

Dim link As String
Selection.Copy

link = Selection

Selection.InlineShapes.AddPicture FileName:=link, LinkToFile:=False, SaveWithDocument:=True
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.InlineShapes(1).Height = 105.75
    Selection.InlineShapes(1).Width = 127.55

Fehlerbehandlung:
If Err = 5152 Then
MsgBox ("Es konnte kein Bild für die Person gefunden werden")

End If
End Sub