wordのVBAの置換について

Question

WordでVBAを用いて、「★★★」を以下のような改行ありの文章に変換したいです。

提出書類（XMLデータ） 各1部
期間延長請求書（XMLデータ） 1部
受領書 各1部

以下のようにコードを記載してもエラーになります。
何かいい案はありますでしょうか。宜しくお願い致します。

---

Sub replaceText()

Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=1

With Selection.Find
.Text = "★★★"
.Execute Replace:=wdReplaceAll, replacewith:="提出書類（XMLデータ） 各1部
期間延長請求書（XMLデータ） 1部
受領書 各1部
"
End With

End Sub

Answer 1

With Selection.Find
.Text = "★★★"
.Execute Replace:=wdReplaceAll, replacewith:= _
    "提出書類（XMLデータ）                    各1部" & vbCr _
    & "期間延長請求書（XMLデータ）                1部" & vbCr _
    & "受領書 各1部"
End With