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.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!
Need to change the appearance of the text in your comments? It's easy to do using techniques you are already familiar with.
Discover MoreIf you would like to add non-printing notes to your document, the Comments feature is one way of doing that. Here's how ...
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