範囲選択した文字の フォントを変更する ＆ 改行する ＆ 文字を挿入する

    Dim myRng As Range
   
    Set myRng = ActiveDocument.Range(Start:=3, End:=5) '3～5文字までを範囲選択する
   
    With myRng
        .Font.Name = "HG丸ｺﾞｼｯｸM-PRO" 'フォントを「HG丸ｺﾞｼｯｸM-PRO」に変更する
        .Font.Color = wdColorBlue '文字を青色にする
       
       
        .InsertParagraphBefore '選択した範囲の直前を改行する
        .InsertParagraphAfter  '選択した範囲の直後を改行する

        .InsertAfter Text:="実験"  '選択した範囲の直後に文字を挿入する
    End With