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

Mailmerge

None
1 antwoord
  • In een Word-document heb ik een aantal samenvoegvelden aangemaakt. Nu wil ik deze velden vanuit een VB-6 prog laten vullen. Ik maak hiervoor een Word-object aan en open het hoofddocument. Hierna maak ik een nieuwe datasource aan met de volgende instructie:
    [code:1:3056e028dd]ActiveDocument.MailMerge.CreateDataSource Name:= _
    sPadOrig + "\Merge.doc", PasswordDocument:="", _
    WritePasswordDocument:="", HeaderRecord:=sVelden, _
    SQLStatement:="" & "", Connection:="", LinkToSource:=True
    [/code:1:3056e028dd]sVelden is een stringarray met de veldnamen.

    Hierna wil ik de gegevens voor de DataSource via een array vanuit VB doorgeven naar Word. Omdat ik met de code diverse Word-documenten met verschillende invoegvelden wil vullen, heb ik het vullen in de volgende code gezet:
    [code:1:3056e028dd]With ActiveDocument.MailMerge
    Selection.MoveDown
    i = -1
    For Each vObject In sGegevens
    i = i + 1
    Next vObject
    For j = 0 To i
    Selection.TypeText Text:=sGegevens(j)
    Selection.MoveRight unit:=wdCell
    ActiveWindow.ActivePane.SmallScroll ToRight:=1
    Application.Browser.Next
    Next j
    End With
    [/code:1:3056e028dd] sGegevens is stringarray. Via de variant vObject tel ik eerst het aantal elementen in sGegevens, daarna is het de bedoeling een loop te creeeren
    waarmee de gegevens in de DataSource worden ingevuld.

    Dit werkt echter niet. Heeft er iemand een ander idee?

Beantwoord deze vraag

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