Hello,

I'm building a sheet to maken offers in Microsoft Word with data from Excel.
I would like to open a Word document from a Excel macro and find and replace all.
This code works, only I can find and replace more then one of the same text.

I already tried Replace:=wdReplaceAll but this doesn't work.
Someone has tips to get this working?

Sub OfferteGenereren()
'
' OfferteGenereren Macro
'
Dim objWord As Object
Dim varBron As Variant
Dim ZoekWaarde As String
Dim VervangWaarde As String

'Offertesjabloon Word openen
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
varBron = Application.GetOpenFilename(FileFilter:="Word document,*.docx", Title:="Selecteer een Word sjabloon", MultiSelect:=False)
objWord.Documents.Open varBron

'Controle Wordbestand gekozen
If varBron <> False Then

'Zoeken en vervangen andere manier
With objWord.ActiveDocument
   Set myRange = .Content
   With myRange.Find
      .Execute FindText:="Date:", ReplaceWith:="VervangWaarde", Replace:=1
   End With
End With
    
'Indien geen Word bestand gekozen
Else
    MsgBox "U heeft geen bestand geselecteerd."
End If

End Sub