エクセル(Excel)&ワード(Word)質問掲示板

より見やすく使いやすいエクセル掲示板を目指し、新たにエクセルの質問掲示板を開設いたしました。 これに伴い、当サイトでは今後、新規投稿はできなくなります。(閲覧は当面可能です。)
今後は新掲示板をご利用いただきますよう宜しくお願い致します。今後ともよろしくお願い致します。
○新掲示板
エクセル(Excel)解決掲示板

エクセル・ワードの基本操作に関する質問や関数やマクロの使い方などエクセルとワードに関する質問掲示板。
Welcome Guest 
メインメニュー
ログイン
ユーザー名:

パスワード:


パスワード紛失

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

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 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
投票数:1 平均点:0.00
返信する

このトピックに投稿する

題名
ゲスト名   :
投稿本文

  条件検索へ


スポンサーリンク
スポンサーリンク
エクセル・ワード質問/回答集 - クイズ・問題QUUS! - 無料英語学習 - 投資家・トレーダー掲示版
為替(FX)テクニカル分析入門 - エクセル(EXCEL)学習・入門 - Word(ワード)の使い方/活用・入門
Copy right(c) 2006-2010 エクセル&ワード質問掲示板 all right reserved