wordのVBAの置換後の文字位置について

Question

wordのVBAで、「★★★」の値を以下のように置換したいです。

-　-置換後-　-　-　-　-　-　-
出願書類（PDF）　　　　　各１部
受領書 　　　　　　　　　１部
請求書＜原本は郵送にて＞　１部
-　-　-　-　-　-　-　-　-　-　-

しかし置換後は、「１部」や「各１部」の文字位置がバラバラになります。
置換後に「１部」や「各1部」を、縦に綺麗に右揃いすることは可能でしょうか？

〇追記
一行の中で、文字の前半は左寄せ、文字の後半は右寄せにしたい

よろしくお願い致します。

----VBA--------------------
Sub replaceText()
' カーソルを先頭にもってくる
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=1

' ★★★を書類データに置換する
With Selection.Find
.Text = "★★★"
With .Replacement
.Text = "提出書類（XML, HTML, PDFデータ） 各１部" & vbCr _
& "期間延長請求書（XML, HTML, PDFデータ） 各１部" & vbCr _
& "請求書＜原本は郵送にて＞ １部"
.Font.Size = 10.5
.Font.Underline = wdUnderlineNone
End With
.Execute Replace:=wdReplaceAll
End With
End Sub