Excel表を参照してWordファイル内の置換を行う方法
- depth:
- 0
前の投稿
-
次の投稿
|
親投稿
-
子投稿なし
|
投稿日時 2017-2-20 21:23
notoko
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
置換表は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
投票数:2
平均点:5.00
返信する
この投稿に返信する
投稿ツリー
-
Excel表を参照してWordファイル内の置換を行う方法 (notoko, 2017-2-20 21:23)