メインメニュー
ログイン
|
返信する: Wordマクロ掲示板
参照
- 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
|
スポンサーリンク
|