[VBA Word 2007] Find & replace woord met field

[abbastijn]

Ik heb al een tijdje gezocht, maar ik kom hier niet uit... Ik wil in een aantal documenten een woord replacen met een field, zodat ik dat woord later makkelijk kan updaten. Ik heb code die een find & replace kan doen met normale tekst:

code:

With r.Find
.Text = "vind dit"
.Replacement.Text = "vervang door dit"
.Execute Replace:=wdReplaceAll
End With

en ik heb code die een field zet waar de selectie is:

code:

Selection.Fields.Add Range:=Selection.Range, _
            Type:=wdFieldEmpty, Text:="FILENAME", _
            PreserveFormatting:=True

Wie heeft de missende link tussen deze twee voor me?

[abbastijn]

Ik ben er inmiddels uit, misschien niet de sjiekste oplossing, maar hier is hij nog even voor de volledigheid:

code:

Public Sub FindReplace()

Dim r As Range
Set r = ActiveDocument.Range

With r.Find
    .Text = "PlatteTekst"
    While .Execute(MatchWholeWord:=True, MatchCase:=True)
        r.Select
        r.Fields.Add Range:=Selection.Range, _
            Type:=wdFieldEmpty, Text:="DOCVARIABLE VariabeleNaam", _
            PreserveFormatting:=True
        r.End = ActiveDocument.Range.End
    Wend
End With

End Sub

[NMe]

Waar hoort mijn topic?

PRG>>OFF