zoek een woord met VBA in Word en pas die regel aan.

[roppie555]

Ik heb in een Word document een zin:

Betreft: leveringscondities 1-1-2013 t/m 31-12-2013

Nu moet ik aan het eind van die zin de tekst: ", versie 1" toevoegen.
Dit heb ik geprobeerd met:

With ActiveDocument.Content.Find
    .Text = "leveringscondities"
    .Forward = True
    .Execute
    If .Found = True Then
        Selection.EndKey Unit:=wdLine
        Selection.TypeText Text:=", versie 1"
    End If
End With

De cursor blijft echter op de huidige regel staan en gaat niet naar de regel met het gevonden woord. Hoe kan ik dit oplossen?

 

[leofact]

Dat lukt door met het selection object te werken:

Sub Test()
ActiveDocument.Content.Select
With Selection.Find
    .Text = "leveringscondities"
    .Forward = True
    .Execute
    If .Found = True Then
        Selection.EndKey Unit:=wdLine
        Selection.TypeText Text:=", versie 1"
    End If
End With
End Sub

Mvg Leo

 

[roppie555]

Geweldig, het leven kan zo simpel zijn.
Bedankt voor je hulp.:thumb:

 

[leofact]

Graag gedaan

Mvg Leo