batch change the font of the comment text

[Srully]

HEY,

I have a word document which contains a lot of comments. And I want to change the default font of the comment text. I can select the comment text for a comment to change it. But it's troublesome to do that one by one.
How to batch change them all? Any ideas? thanks.

 

[Nozzle]

Use the "find and replace" functions

Nozzle

 

[omega015]

This might help you change the default fonts/style for comments etc...

http://www.tech-recipes.com/rx/1022/microsoft-word-change-the-font-face-and-size-in-comments/

 

[Yeskly]

There are many ways to do that.
M1 : You can put insertion pointer at the start of the first comment text, press “Ctrl+ Shift+ End” to select all comment texts, then change the style.
M2 : click “Styles” button,then find the "comment text", click “Modify”. In “Modify Style” box, change the style
M3： VBA macro

Sub SetCommentTextStyle()
  Dim objComment As Comment
  Dim objDoc As Document
  Dim strFontName As String
  Dim strFontSize As String
  Set objDoc = ActiveDocument
  strFontName = InputBox("Enter text font name here: ", "Font name")
  strFontSize = InputBox("Enter font size here: ", "Font size")
  With objDoc
    For Each objComment In .Comments
      objComment.Range.Font.Name = strFontName
      objComment.Range.Font.Size = strFontSize
    Next objComment
  End With
End Sub

See more details in this article

3 Methods to Change the Comment Text Style in Your Word Document

Good luck

 

[Srully]

Thanks, all! And I think I get my solution! the macro works well. Thanks again