MaggiePAH
09-10-2017, 10:51 PM
Dear Forum Posters,
I was hoping to get your help. I need to use mail merge in Word 2010 but need it to staple each document independently, not all together. I found a macro that half worked on the first go (printed 67 out of 120 documents, stapled individually) and then froze my Word document. Subsequently every time I try to use it, it crashes almost immediately. I tried finding answers and there was something similar already here but I did not understand the solution - something about deleting some file in the 'library' (I'm a pretty basic Word user). I am on a network drive at work and do not have access to hidden or system files.
The macro I used is as follows:
Sub SeparateStapleMailMerg()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
For i = 1 To .MailMerge.DataSource.RecordCount
With .MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = i
.LastRecord = i
.ActiveRecord = i
End With
.Execute Pause:=False
End With
Next i
End With
Application.ScreenUpdating = True
End Sub
Any help would be greatly appreciated!
I was hoping to get your help. I need to use mail merge in Word 2010 but need it to staple each document independently, not all together. I found a macro that half worked on the first go (printed 67 out of 120 documents, stapled individually) and then froze my Word document. Subsequently every time I try to use it, it crashes almost immediately. I tried finding answers and there was something similar already here but I did not understand the solution - something about deleting some file in the 'library' (I'm a pretty basic Word user). I am on a network drive at work and do not have access to hidden or system files.
The macro I used is as follows:
Sub SeparateStapleMailMerg()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
For i = 1 To .MailMerge.DataSource.RecordCount
With .MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = i
.LastRecord = i
.ActiveRecord = i
End With
.Execute Pause:=False
End With
Next i
End With
Application.ScreenUpdating = True
End Sub
Any help would be greatly appreciated!