Zoek en vervang, vervangt het eerst gevonden woord niet

[greatmaze]

Hallo allemaal,

In deze macro zoekt ik op "Zekerheid Nr " om deze te vervangen door niets.
Deze macro wordt gebruikt in Word 2012.
Dit werkt opzich goed, alleen de eerst gevonden waarde wordt niet gewist.
Waar mis ik iets. Ik wil niet dat er berichtn komen om verder te zoeken, het moet allemaal onder water gebeuren.

Alvast bedankt.

            If InStr(c.Range.Text, "Zekerheid Nr ") > 0 Then pfnd = True
            If pfnd Then
                .Rows(r).Cells(1).Range.Font.Bold = True
                .Rows(r).Height = 14.1
                .Rows(r).Cells.VerticalAlignment = wdCellAlignVerticalBottom
                'Nu worden de eerste 2 cellen gemerged en dan rechts uitgelijnd
                .Cell(Row:=r, Column:=1).Merge MergeTo:=.Cell(Row:=r, Column:=2)
                Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
                Selection.Find.ClearFormatting
                Selection.Find.Replacement.ClearFormatting
                With Selection.Find
                    .Text = "Zekerheid Nr "
                    .Replacement.Text = ""
                    .Forward = False
                    .Wrap = wdFindAsk
                    .Format = False
                    .MatchCase = True
                    .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:=wdCollapseStart
                    Else
                        .Collapse Direction:=wdCollapseEnd
                    End If
                End With
            End If

 

[Elsendoorn2134]

Greatmaze,

Je vraagstelling is te onduidelijk. Zo geef je een deel van een macro en is een deel weggelaten.
Zo weten we bijvoorbeeld niet wat de c.range.text is en kunnen we ook niet bepalen of dit wel een
stuk tekst is waar de eerste waarde in kan worden gevonden. Ik stel voor dat je ons of de volledige
macro geeft of een voorbeeld bestand meestuurt, liefst het laatste dan kunnen we de eventuele
oplossing ook testen.

Veel Succes.