# This macro retrieves all the Comments in the document # Makes a new doc with the Comments. $doc = Document.active $text = $doc.allComments # Output the list in a new document $listDoc = Document.newWithText $text.join("\n")