実現したいこと
ExcelVBAでWordのテキストボックスを置換したい
発生している問題・分からないこと
ExcelVBAでWordのテキストボックスを置換したいのですが、通常の文書は置換できてもテキストボックスは置換も検索にもヒットしません。
文章内の桃太郎はかぐや姫に置換されますが、テキストボックスに記入された桃太郎は桃太郎のままです。
置換の処理の前に、
testWord.Shapes(1).Select を記入してもだめでした。
よろしくお願いします。
該当のソースコード
Sub wordテスト() Dim testWord As Word.Document Set testWord = GetObject("C:(略)エクセルから置換.docx") testWord.Application.Visible = True With testWord.Content.Find .Text = "桃太郎" .Replacement.Text = "かぐや姫" .Forward = True .Execute Replace:=2 End With End Sub
試したこと・調べたこと
- teratailやGoogle等で検索した
- ソースコードを自分なりに変更した
- 知人に聞いた
- その他
上記の詳細・結果
ExcelVBAでWordのテキストボックスを置換している情報サイトを見ましたが、Wordのマクロの記録で得られるようなコードではエラーが出ました。
補足
特になし
![guest](/img/icon/icnUserSample.jpg)
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。