Word 文書でコメントのフォントサイズを変更するには、どうすればよいですか？

以下のスクリーンショットのように、Word 文書でコメントのフォントサイズを大きくしたい場合は、どうすればよいでしょうか？この記事では、この問題を解決するための2 つの方法をご紹介します。

Word の組み込み機能でコメントのフォントサイズを変更する

VBA コードでコメントのフォントサイズを変更する

---

Word の組み込み機能でコメント吹き出しのフォントサイズを変更する

Word の「スタイル」ウィンドウから、吹き出しテキストのフォントサイズを直接変更できます。以下の手順に従って操作してください。

1．Ctrl＋Alt＋Shift＋Sキーを押すと、スタイルウィンドウが開きます。

2．スタイルウィンドウで、オプションをクリックしてください。スクリーンショットをご覧ください：

3．スタイルウィンドウのオプションダイアログボックスで、表示するスタイルの選択ドロップダウンリストからすべてのスタイルを選択します。

4．OKをクリックしてスタイルウィンドウに戻り、下にスクロールして吹き出しテキストの行を見つけ、ドロップダウンリストを展開するボタンをクリックし、続いて変更をクリックしてください。スクリーンショットをご確認ください：

5．スタイルの変更ダイアログボックスで、以下のスクリーンショットのように書式設定セクションから必要なフォントサイズを選択し、OKボタンをクリックしてください。

6．スタイルウィンドウを閉じてください。

すると、すべてのコメント吹き出しのフォントサイズが指定したとおりに変更されます。

注：この設定は、今後作成するすべてのコメントに自動的に適用されます。

---

VBA コードでコメント吹き出しのフォントサイズを変更する

このセクションでは、Word 文書のコメント吹き出しのフォントサイズを簡単に変更できる VBA コードをご紹介します。

1．コメント吹き出しのフォントサイズを変更する文書で、Alt＋F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．ウィンドウで、挿入＞標準モジュールをクリックします。その後、以下の VBA コードを標準モジュールウィンドウにコピーしてください。

VBA コード：Word でコメント吹き出しのフォントサイズを変更する

Sub SetCommentTextStyle()
'Updated by ExtendOffice 20181112
    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.Style = ActiveDocument.Styles("Balloon Text Char")
      Next objComment
    End With
    ActiveDocument.Styles("Balloon Text").Font.Size = Val(strFontSize)
End Sub

3．F5キーを押して、コードを実行しましょう。

4．最初のKutools for Wordダイアログボックスで、コメントに使用する新しいフォントを入力し、OKをクリックします。

5．2 番目のKutools for Wordダイアログボックスで、必要なフォントサイズを入力して、OKをクリックします。

すると、現在の文書で指定したフォントサイズが、すべてのコメント吹き出しに適用されます。