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.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2021 or Microsoft 365. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word Step by Step today!
When you print out your documents, do any comments in the document appear very tiny on the printout? It could be because ...
Discover MoreAdding comments to a document is a normal activity when writing and editing. Once comments have been added, you may ...
Discover MoreWhen developing a document, a common practice is to use comments to discuss changes with other people or to make notes ...
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