Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Zoekveld maken in VBA in WORD

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.