vbscript om word docjes aan te passen

[Verwijderd]

Ik heb hier 500 word documenten (sjablonen) die vanuit 1 applicatie met de data uit een database worden gemerged. Nu wijzigt voor het mergen van ieder afzonderlijk sjabloon de data source. De oplossing hiervoor is natuurlijk ieder sjabloon afzonderlijk (en met de hand) aanpassen maar dat moet volgens mij handiger kunnen.Is hier nog een script wizzard die hiervoor een oplossing heeft. Ik heb al de hele dag lopen googlen en verder maar tot op nu zonder resultaat.

[Boss]

Als ze vanuit een applicatie worden aangeroepen, dan kan je toch ook vanuit die applicatie de data source laten wijzigen?

Of heb je geen mogelijkheid tot aanpassen daarvan?

[Verwijderd]

Nope,, de data source verandert en de verwijzing ernaar staat als eigenschap van het mergen in de 500 sjablonen.

[Boss]

Ja... die kan je toch voa code aanpassen? Of je dat nu vanuit vbscript eenmalig doet of vanuit de applicatie op het moment dat de merge gedaan wordt.

Ik doe dat in ieder geval in Access best vaak. De volgende code kan je misschien met een beetje tweaken omzetten naar vbscript, aangezien dat bijna hetzelfde is als VBA:

Visual Basic:

Dim oApp as Object
Dim strSamenvoegdocument as String

strSamenvoegdocument = "[hier de naam van het te mergen document]"
Set oApp = CreateObject("Word.Application")
With oApp
  .Documents.Open (strSamenvoegdocument)
  .ActiveDocument.MailMerge.MainDocumentType = 0
  .ActiveDocument.MailMerge.OpenDataSource (CurrentDb.Properties("SamenvoegDatabestand"))
  .ActiveDocument.MailMerge.Execute
  .Documents(strSamenvoegdocument).Close (False)
  .Visible = True
  .Activate
End With