Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記

Excel VBA 教えてください。

VBA初心者です。
詳しい方がいましたら教えてください。
下記のURLを参考に、エクセルからWordの文字を置換するようなマクロを作ろうとしています。

https://touch-sp.hatenablog.com/entry/2017/04/11 …


======
with wdDoc.Content.Find
.Text = "置換前"
.Replacement.Text = "置換後"
.Forward = True
.Execute Replace:=2
======

このコードの“置換前”と“置換後”の部分を
sheet1に入っているセル、

“置換前”はA2のセルの文字列（例:会社名）

“置換後”はB2のセルの文字列（例:〇〇商事）

A2の文字をB2にするみたいな感じに
したいのですが、いまいちうまくいきません。

どのように書けばいいか教えていただけると助かります…。
何卒よろしくお願いいたします。




置換後

質問者からの補足コメント

• 作ろうとしているのは
  会社名や日付などを変えるだけのテンプレな
  契約書のようなようなものです！

    補足日時：2023/04/25 11:35

No.1 ベストアンサー 回答者： 初心者ですが何か。 回答日時： 2023/04/25 11:33

質問文そのままなら多分

with wdDoc.Content.Find
.Text = Range("A2").Value
.Replacement.Text = Range("B2").Value
.Forward = True
.Execute Replace:=2

ですかね？

この回答へのお礼

できました！ありがとうございます！
大変助かりました。

お礼日時：2023/04/25 14:11

No.3 回答者： 初心者ですが何か。 回答日時： 2023/04/25 13:31

補足をあげる前に実際に実行してみてどうだったのでしょうか？

あとExcelから操作って事なら、
https://expy-style.net/excel/vba-word-template-e …
も参考になるのでは？

No.2 回答者： fujillin 回答日時： 2023/04/25 11:39

こんにちは

事前に
　A2 = Worksheets("Sheet1").Range("A2").Text
　B2 = Worksheets("Sheet1").Range("B2").Text
とでもしておいて

＞.Text = "置換前"
等の部分を
　.Text = A2
のように替えてあげれば宜しいかと。

この回答へのお礼

できました！ありがとうございました！！

お礼日時：2023/04/25 15:12