Export comments from current worksheet to Word - got the script but need it to go column

Hi everyone

Thanks to everyone that is helping me.

Found this VBA code that does almost exactly what I was looking for.

Export comments from current worksheet to Word.
It goes from row to row.
I need it to go from column to column.

VBA Code source:
https://www.extendoffice.com/documen...s-to-word.html

Please Login or Register  to view this content.

Can it be done?

Thank you

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Which part is going from row to row?

Is it reading the comments from Excel or writing then to Word?

To set the comment output order to columns by row you could use something along the lines of:

Please Login or Register  to view this content.

I'll leave it to you to add the Word automation code. Once you've automated the document, simply output StrCmt to it.

To change the output order to rows by column, simply swap:
For r = 1 To lRow
and:
For c = 1 To lCol

This code works with row to row, but I haven't tried it with coloumn to coloumn, but I suppose it should work.
The VBA code works by creating a table with the words you want to paste into word. By making a table you can always move it later, and you can sort the words within the table without making a mess.

Please Login or Register  to view this content.

I'm a bit confused if you want to go from column to column or row to row. This was for column to column. If you want the script for row to row it is:

Please Login or Register  to view this content.

Originally Posted by boninm

What I would like is for the script to row to row (A1 to C1, then A2 to C2, up to K1 to K3) instead of column (A1 to A10, then B1 to B10, C1 to C10)

That's what the code I posted does. As I said, all you need do is add the Word automation code (which you already have) and output StrCmt to the document instead of to a message box.