Excel表を参照してWordファイル内の置換を行う方法

Wordファイル内の置換をExcel表を参照して行う方法について教えてください。
置換表はExcelの下記のとおりです。
B列の文字数が多いとエラーが出てしまいます。
最大1200文字程度が入れば十分なのですが、
文字数の制限なく置換ができるようにするにはどうしたらよいでしょうか。

A列　　　B列

種別　　りんご
品種　　ふじ
納品日　1月1日　
特色　　　・
・　　　　　・
・　　　　　・
・　　　　　・


Sub 置換()

Open "C:\Users\hama1\Documents\sample\置換表.csv" For Input As #1
While Not EOF(1)
Line Input #1, a
s = Split(a, ",")

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = s(0)
.Replacement.Text = s(1)
.Forward = True
.Wrap = wdFindContinue

End With
Selection.Find.Execute Replace:=wdReplaceAll

Wend
Close #1

End Sub