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.
Do More in Less Time! An easy-to-understand guide to the more advanced features available in the Microsoft 365 version of Word. Enhance the quality of your documents and boost productivity in any field with this in-depth resource. Complete your Word-related tasks more efficiently as you unlock lesser-known tools and learn to quickly access the features you need. Check out Microsoft 365 Word For Professionals For Dummies today!
When developing a document, a common practice is to use comments to discuss changes with other people or to make notes ...
Discover MoreOne of the strong suits of macros is that they can process the information in a document quickly and reliably. For ...
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 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