プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (3件)

質問文そのままなら多分



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

ですかね?
    • good
    • 0
この回答へのお礼

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

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

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



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

こんにちは



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

>.Text = "置換前"
等の部分を
 .Text = A2
のように替えてあげれば宜しいかと。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!