Written by Allen Wyatt (last updated October 5, 2024)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365
Word includes a powerful tool that allows you to add comments to your document. Since comments are designed for reviewers' annotations while developing a document, it is handy to know how to paste the text of a comment into your main document. This is done using editing techniques you are already familiar with. Follow these steps:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (6036) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365. You can find a version of this tip for the older menu interface of Word here: Pasting a Comment into Your Document.
Discover the Power of Microsoft Office This beginner-friendly guide reveals the expert tips and strategies you need to skyrocket your productivity and use Office 365 like a pro. Mastering software like Word, Excel, and PowerPoint is essential to be more efficient and advance your career. Simple lessons guide you through every step, providing the knowledge you need to get started. Check out Microsoft Office 365 For Beginners today!
If you use text boxes in your documents, you may sometime want to place a comment in the text box, the same as you can do ...
Discover MoreFind yourself repeating the same comment over and over? Here's a couple of ways you can save some typing by simply ...
Discover MoreWant to change the name that Word associates with various comments previously added to your document? Here are some ideas ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2024-10-07 09:50:00
Andrew
Here the macro I use to convert comments in bulk.
Sub CommentsToInline()
Const CommentShading = wdGray25
Const CommentColor = wdBlue
Dim OriginalNum As Long
Dim TrackingState As Boolean
Dim C As Comment
With ActiveDocument.Content
Application.UndoRecord.StartCustomRecord "CommentsToInline"
TrackingState = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = False
OriginalNum = .Comments.Count
For Each C In .Comments
With C.Scope
.Collapse wdCollapseEnd
.Text = "{{" & C.Author & ": }}"
With .Font
.Name = "Arial"
.Size = Round(0.8 * .Size)
.ColorIndex = CommentColor
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
End With
.Collapse wdCollapseStart
.MoveStartUntil cset:="}"
.FormattedText = C.Range.FormattedText
.FormattedText.HighlightColorIndex = CommentShading
.FormattedText.Font.ColorIndex = CommentColor
End With
.Delete
Next C
ActiveDocument.TrackRevisions = TrackingState
Application.UndoRecord.EndCustomRecord
MsgBox OriginalNum - .Comments.Count & " comment(s) converted (" & OriginalNum & " remaining)."
End With
End Sub
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2025 Sharon Parq Associates, Inc.
Comments