rocknroadie
Gebruiker
- Lid geworden
- 5 sep 2016
- Berichten
- 184
ik heb een word document waar ik de adresgegevens via vba uit een gekoppelde exceltabel ga halen met d evolgende code:
nu is het probleem dat sommige adres gegevens net iets te lang zijn (de brieven worden in vensterenveloppes gestoken) en er dus een stuk op een nieuwe lijn moet gezet worden ALS de naam te lang is.
hoe kan ik dit doen?
alvast bedankt
Marc
Code:
Private Sub Document_Open()
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\disk1\blabla\11\Parken\parken.xlsm", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\disk1\blabla\11\Parken\parken.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35" _
, SQLStatement:="SELECT * FROM `'gegevens voor word$'`", SQLStatement1:= _
"", SubType:=wdMergeSubTypeAccess
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With
Word.Application.Visible = True
Word.ActiveWindow.WindowState = wdWindowStateMaximize
End Sub
nu is het probleem dat sommige adres gegevens net iets te lang zijn (de brieven worden in vensterenveloppes gestoken) en er dus een stuk op een nieuwe lijn moet gezet worden ALS de naam te lang is.
hoe kan ik dit doen?
alvast bedankt
Marc
Laatst bewerkt: