Word VBAのコメントテキストに、設定したテキストを太字、イタリック、スーパースクリプト、およびサブスクリプトを追加する方法は？

Question

VBAを使用してWordテンプレートでコメントテキストの書式を設定したいとします。次のコードを使用して簡単なテキストを追加できます。しかし、私は

CommentText = "Test Bold: Bold Text & vbNewLine & Test Italic: Italic Text & vbNewLine & Test Bold Italic: Bold Italic Text & vbNewLine & Test Superscript: My BrandTM & vbNewLine & Test Subscript: H2O" 
Selection.Comments.Add Range:=Selection.Range 
With Selection 
     .TypeText (CommentText)      'Add comment text 
End With 

出力は以下の画像のようにする必要がありますテキストの書式を設定する方法がわからない：以下

Answer 1

コードは、選択したテキストにあなたのフォーマットされたコメントが追加されます。 Word 2007でテストされ、期待どおりに機能します。

ところで、今後同様のことをする必要がある場合は、マクロの録音を開始し、コメントを追加してから録音を停止してください。結果として得られるマクロコードは、あなたのところでほとんどの方法であなたを得るはずです。

Public Sub AddComment() 

    Selection.Comments.Add Range:=Selection.Range 

    With Selection 
    .TypeParagraph 

    .TypeText Text:="Test Bold: Bold Text" 
    .MoveLeft Unit:=wdCharacter, Count:=9, Extend:=wdExtend 
    .Font.Bold = wdToggle 
    .EndKey Unit:=wdLine 
    .Font.Bold = wdToggle 

    .TypeParagraph 

    .TypeText Text:="Test Italic: Italic Text" 
    .MoveLeft Unit:=wdCharacter, Count:=11, Extend:=wdExtend 
    .Font.Italic = wdToggle 
    .EndKey Unit:=wdLine 
    .Font.Italic = wdToggle 

    .TypeParagraph 

    .TypeText Text:="Test Bold Italic: Bold Italic Text" 
    .MoveLeft Unit:=wdCharacter, Count:=16, Extend:=wdExtend 
    .Font.Bold = wdToggle 
    .Font.Italic = wdToggle 
    .EndKey Unit:=wdLine 
    .Font.Italic = wdToggle 
    .Font.Bold = wdToggle 

    .TypeParagraph 

    .TypeText Text:="Test Superscript: My BrandTM" 
    .MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend 
    .Font.Superscript = True 
    .EndKey Unit:=wdLine 
    .Font.Superscript = False 

    .TypeParagraph 

    .TypeText Text:="Test Subscript: H20" 
    .MoveLeft Unit:=wdCharacter, Count:=1 
    .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
    .Font.Subscript = True 
    .EndKey Unit:=wdLine 
    .Font.Subscript = False 
    End With 

End Sub