convert all comments to footnotes in Word document

[Royly]

hey,

 

I have a document with a lot of comments in it,  And I want to change them all to footnotes, so that I can print them in order.

 

But I can only add new footnotes and delete the comments one by one, Can I just convert all comments to footnotes at once??  Is it possible?

[Seahorsepip Veteran]

Sub comment2footnote()
	Application.ScreenUpdating = False
	Dim oDoc As Document, oComment As Comment
	Set oDoc = ActiveDocument
	For Each oComment In ActiveDocument.Comments
		oDoc.Footnotes.Add Range:=oComment.Scope, Text:=oComment.Range.Text
		oComment.Delete
	Next
	Application.ScreenUpdating = True
End Sub

From: https://superuser.com/questions/160657/how-can-i-automatically-convert-all-comments-in-a-word-2010-document-to-footnote

 

For adding macro scripts in word: http://www.techtoolsforwriters.com/how-to-add-a-macro-to-word/