返信する: Wordマクロ掲示板

題名
ゲスト名
パスワード
メッセージアイコン
投稿本文	入力支援機能表示サンプル [もっと...]
オプション	詳細なオプション顔アイコンを有効にする XOOPSの修飾機能(BBCode/自動リンク等)を有効にする自動改行を有効にする数値エンティティ表現を有効にする特殊エンティティ表現を有効にする

Excel表を参照してWordファイル内の置換を行う方法: 投稿者: notoko 投稿日時: 2017-2-20 21:23; 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