文字を範囲選択して書き換える ＆ 削除する

'三～五文字までの文字を範囲選択する   
With ActiveDocument.Range(Start:=3, End:=5)
        .Text = "てすと"  '書き換える
        .Delete 　'削除する
End With