Word VBA에서 메모 텍스트에 굵게, 기울임 꼴, 수퍼 스크립트 및 하위 스크립트를 추가하는 방법은 무엇입니까?

Question

VBA를 사용하여 Word Template에 주석 텍스트의 서식을 지정하려고합니다. 다음 코드를 사용하여 간단한 텍스트를 추가 할 수 있습니다. 하지만

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