Export data from Excel to word

**delboy2405** · 01-13-2012, 11:05 AM

Hi,

I'm looking to convert the follow macro to instead of creating a new word document each time but to add each row to the same word document. I'm just starting to learn VBA and found the script on MRExcel site.

Please Login or Register  to view this content.

Am i thinking along the correct lines that i would need to create the word document first before the FOR loop and then add each to the word document in the Loop?

Any help would be appreciated.

**delboy2405** · 01-13-2012, 12:09 PM

Hi Managed to solve the issue myself, what i've noticed when running the macro is that it gets an error if a word document is already open. How would I get the macro to check for a word document and close it first

**snb** · 01-13-2012, 01:27 PM

Please Login or Register  to view this content.

**vthokie2010** · 01-13-2012, 01:58 PM

snb: I don't understand that code for resolving the question he had...I certainly could misunderstand it though. Here is the code I was thinking would solve the issue where it would close any instance of word that was open. I'm on word 2003

Please Login or Register  to view this content.

**delboy2405** · 01-13-2012, 03:54 PM

thanks vthokie2010

getting a different issue at the moment

When running the code below i'm getting error run time 4605 error code, i dont think i've changed anything since it was working ok, apart from putting the line

Please Login or Register  to view this content.

But even when i comment out error appears, it also seems to happening randomly as it runs through the data on the loop

Full code

Please Login or Register  to view this content.

**delboy2405** · 01-13-2012, 04:11 PM

Looks like it gets the error at line

Please Login or Register  to view this content.

**vthokie2010** · 01-13-2012, 05:16 PM

Maybe try this in place of that line of code

Please Login or Register  to view this content.

if not let me know and I'll look at sometime over the weekend or monday.

**delboy2405** · 01-13-2012, 06:38 PM

unfortunately doesn't seem to work, when run code get an 438 error message.

**delboy2405** · 01-14-2012, 05:36 AM

looks like the issue has been solved, I went to tools > References and unticked word object library. Restarted Excel and then ticked again. Seems to be running fine now