Word MergeField Code Text issue

stevenel · #11 09-24-2018, 08:06 PM

My current Excel and word template exceed the maximum size for upload. Thank you for your help !

Have you ever this ?
On other site I found this :

The solution is to create the data source file as a Word document instead of as a text file :

Code:

Dim dsDoc As Object
Set dsDoc = wwApp.Documents.Add
With dsDoc
     .Content.InsertAfter Text:=<merge field names text> & vbCr
     .Content.InsertAfter Text:=<merge field data text> ' no trailing vbCR
     .SaveAs sMergeFile
     .Close SaveChanges:=wdDoNotSaveChanges
End With
Set dsDoc = Nothing

I am just a little bit confuse how integrated in my code :

Code:

Dim strWorkbookName As String
    strWorkbookName = nomfichiermerge
    Dim wdapp As New Word.Application
    Dim wddoc As Word.Document
    
    With wdapp
        'Disable alerts to prevent an SQL prompt
        .DisplayAlerts = wdAlertsNone
        'Open the mailmerge main document
        Set wddoc = .Documents.Open("C:\Document\Options - 002.docx")
        With wddoc
             .ActiveWindow.View.Type = wdNormalView
            With .MailMerge
                'Define the mailmerge type
                .MainDocumentType = wdDirectory
                'Connect to the data source
                .OpenDataSource Name:=strWorkbookName, ReadOnly:=True, AddToRecentFiles:=False, _
                Revert:=False, Format:=wdOpenFormatAuto, Connection:="Data Source=" _
                & strWorkbookName & ";Mode=Read", SQLStatement:="SELECT * FROM 'Sheet1'"
                .SuppressBlankLines = True
                With .DataSource
                    .FirstRecord = wdDefaultFirstRecord
                    .LastRecord = wdDefaultLastRecord
                End With
                'Define the output
                .Destination = wdSendToNewDocument
                'Excecute the merge
                .Execute
                'Disconnect from the data source
                .MainDocumentType = wdNotAMergeDocument
            End With
            'Close the mailmerge main document
            .Close False
        End With
        'Restore the Word alerts
        .DisplayAlerts = wdAlertsAll
        'Display Word and the document
        .Visible = True
    End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mail Merge Code Issue	Andrewwill	Mail Merge	6	01-06-2018 10:25 PM
How to link Excel fields with MergeField in Word?	Fabulist	Mail Merge	3	02-03-2016 02:32 PM
creating a code to create dynamic text in word	ah8471	Word VBA	1	12-29-2015 10:52 PM
Printing selected pages based on a MERGEFIELD.g. If MERGEFIELD=x then print pages 1,2,4 if MERGEFIEL	Richard.p	Word	3	04-21-2015 01:14 AM
Omit mergefield if it contains specific text	MikeStewart	Mail Merge	3	10-01-2014 01:31 AM