Enkel bookmarktekst verwijderen

[Wimpieoh]

Ik zou graag brieven afdrukken, maar wel een beetje zoals een mail-merge in Word. Aldus heb ik maar 1 word document (.doc of .docx) nodig. Voorheen deed ik dit met een template, maar dan kreeg ik evenveel nieuwe documenten als afgedrukte brieven. Zoals het hieronder staat werkt het niet goed. Voor de tweede brief blijft de naam van de eerste persoon staan, die dan opschuift (Geachte heer naam2 naam1,). Weet iemand hoe ik enkel de bookmarktekst kan verwijderen, maar niet de boekmark zelf? Alvast bedankt.

    strDocumentPath = "c:/wg/access/accdb/"
    strWordDocument = "Activiteit.docx"
    StrWorddoc = strDocumentPath & strWordDocument
    
    Set appWord = GetObject(, "Word.Application")
    Set docs = appWord.Documents
    Set doc = docs.[COLOR="Red"]Open[/COLOR](StrWorddoc)
           
    doc.Bookmarks("GSM").Range.Text = s2
    For j = 2 To 4
        doc.Bookmarks("Naam" & j).Range.Text = s1
    Next
    With doc.Bookmarks("Naam").Range
        .Text = s1
        .Font.Bold = True
    End With

 

[snb]

Gebruik hiervoor documentvariabelen in plaats van bladwijzers.
Het veld van de documentvariabele 'naam' kun je op zoveel plaatsen zetten als nodig is (ipv de 5 verschillende bladwijzers die je nu met dezelfde informatie vult).

deze code is voldoende:

   with GetObject("c:/wg/access/accdb/Activiteit.docx")
      .Variables("GSM") = s2
      .Variables("Naam") = s1
      .Fields.Update
    End With