Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.
Macro: Save Word Document as Merge Field
I have a large merge done from a .dat file into word. I would like to save each record in the merge as a seperate file. This is easy to do manually. However, I have so many I'm wondering if there is a way to get a macro to do this. I was able to suceed in getting that to work except I don't know how to name the document as a field name contained in the merge.
For example...
Child ID: CnBio_ID
First Name: First_Name
Last Name: Last_Name
etc.......
How can I make the macro save the file as what is in the CNBio_ID merge field?
For example...
Child ID: CnBio_ID
First Name: First_Name
Last Name: Last_Name
etc.......
How can I make the macro save the file as what is in the CNBio_ID merge field?
Sub SaveAsSeperateDocument()
Dim x As Long
Dim i As Long
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
'get the record count of the datasource
With .DataSource
.ActiveRecord = wdLastRecord
x = .ActiveRecord
'set the activerecord back to the first
.ActiveRecord = wdFirstRecord
End With
'loop the datasource count and merge one record at a time
For i = 1 To x
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.Execute Pause:=True
///////////////////////// PROBLEM IS HERE ///////////////////////////////////////
ChildID = MERGEFIELD CnBio_ID
ActiveDocument.SaveAs FileName:=ChildID
/////////////////////////////////////////////////////////////////////////////////////////////
ActiveDocument.Close
Next i
End With
End Sub
Asked:
Who is Participating?
This is a macro that I have used in the past.
Sub MergeToSingles()
Dim wrdMainDoc As Word.Document
Dim l As Integer
Set wrdMainDoc = ActiveDocument
With wrdMainDoc.MailMerge
For l = 1 To .DataSource.RecordCount
.Destination = wdSendToNewDocument
.DataSource.FirstRecord = l
.DataSource.LastRecord = l
.Execute
.DataSource.ActiveRecord = l
ActiveDocument.SaveAs .DataSource.DataFields("Last_Name") & ".doc"
ActiveDocument.Close wdDoNotSaveChanges
Next l
End With
End Sub
I wasn't able to get that to work. Might it place the documents in some location? It didn't appear to do anything.
Taking what you did have there I was able to come up with the following that will save the first document but says "it cannot save the next document with the same name".
Taking what you did have there I was able to come up with the following that will save the first document but says "it cannot save the next document with the same name".
Sub MergeAllRecordsToPrinter()
'
' MergeAllRecordsToPrinter Macro
Dim x As Long
Dim i As Long
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
'get the record count of the datasource
With .DataSource
.ActiveRecord = wdLastRecord
x = .ActiveRecord
'set the activerecord back to the first
.ActiveRecord = wdFirstRecord
End With
'loop the datasource count and merge one record at a time
For i = 1 To x
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.Execute Pause:=True
ActiveDocument.SaveAs .DataSource.DataFields("CnBio_ID") & ".doc"
ActiveDocument.Close wdDoNotSaveChanges
Next i
End With
End Sub
I think that the rest of the message is: 'as an open document'.
Make sure that all earlier results documents are closed.
Make sure that all earlier results documents are closed.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
Open in new window