Vraag & Antwoord

Programmeren

Zoekveld maken in VBA in WORD

Anoniem
Eric33
2 antwoorden
  • Hallo,

    Ik weet niet of mijn vraag hier thuis hoort, maar goed.

    Ik heb een Wordbestand wat gekoppeld is aan een Access database (afdruk samenvoegen).

    Nu wil ik vanuit WORD zoeken naar een klantnummer uit de database en vervolgens moeten de samenvoegvelden gevuld worden aan de hand van het ingevoerde Klantnummer.

    Nu zit er in WORD 2007 wel een optie "adressen zoeken", maar dan zoekt ie in een gedeelte van het veld. Dus als je klantnummer 20 intypt dan vindt ie 2028, en dat is nou niet de bedoeling.

    Ik hoop dat jullie snappen wat ik bedoel en een oplossing hiervoor hebben.

    Alvast bedankt.
  • Wellicht een wat late reactie, maar beter laat dan nooit.

    Is het niet handiger om de selectie in Access te doen, en vanuit Access het samenvoegen met een Word document starten

    De code voor het samenvoegen vanuit Access ziet er ongeveer zo uit

    [code:1:fffe97a169]Public Sub briefmerge()
    Set objWord = GetObject("padnaam\samenvoegbrief.doc")

    objWord.Application.Visible = True
    objWord.Application.Visible = True



    ' Execute the mail merge.

    ' objWord.MailMerge.Execute deze regel voegt samen naar nieuw document

    objWord.MailMerge.Destination = wdSendToNewDocument

    ' objWord.MailMerge.Destination = wdSendToPrinter

    objWord.MailMerge.Execute
    objWord.Application.ActiveDocument.SaveAs FileName:="padnaam\samengevoegdebrief.doc", _
    FileFormat:=wdFormatRTF

    ' objWord.Application.ActiveDocument.Close
    objWord.Application.ActiveDocument.Close wdDoNotSaveChanges

    'objWord.Application.ActiveDocument.Close wdDoNotSaveChanges

    objWord.Application.Quit wdDoNotSaveChanges

    Set objWord = Nothing






    End Sub
    [/code:1:fffe97a169]

    Let op, je hebt wel de verwijzing naar de Word library nodig

    Sukses

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.