This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(240, 56.00000000000001%, 33%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ECS%3C/text%3E%3C/svg%3E)
I just completed a mail merge using Microsoft Word. But what I want done after the merge is to save each letter to a pdf individually. I copied the following from a tutorial online and I'm getting a Run-Time Error "5852". I am NOT a VBA person so any help would be very helpful.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(134.4, 28.999999999999996%, 23%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EAL%3C/text%3E%3C/svg%3E)
Hi,
I've encountered the same problem and I got it resolved eventually. The VBA code I used was exactly the same as yours. So I think your case probably is the same -- the reason to have this error is that you haven't successfully linked the data source file to your mailling template (i.e., this MS Word document). So maybe you need to use the "Preview Results" button to examine whether the link has been built successfully. And remember to run the Macro in the template document (the one only has single page and links with your data source well), instead of the output integrated MS Word document with multiple pages.
I'm just a beginner on VBA so I couldn't explain the deep causes but hope this can help!
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(185.6, 46%, 27%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EG%3C/text%3E%3C/svg%3E)
Finally got this resolved too, but not using your tip. The problem was that even though I was saving my source docs to my desktop, my desktop was linked to company SharePoint (and Sharepoint was in my path). Despite having the correct paths in the excel sheet it was Sharepoint that was messing things up. I copied all of my data onto my personal machine (no worries, no PII here), updated the paths and bingo! it worked. I'm not a programmer (obviously), so this took several hours of going through every tip, every data, point multiple ways. But still, saves me about 8 hours of renaming and filing these freakin documents!
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(83.2, 89%, 18%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EAS%3C/text%3E%3C/svg%3E)
Thanks, @Andorra Lyu !
That really saved me!!! I was trying to find the error for hours! =S
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(313.6, 97%, 40%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EMA%3C/text%3E%3C/svg%3E)
I had the same issue but resolved it differently. My Word file had a name in Cyrillic —I changed it to English, and it worked.