エクセルのマクロでワードの任意のテキストボックスへ文字列を書き込む方法を誰か教えていただけませんか

エクセルのマクロでワードの任意のテキストボックスへ文字列を書き込む方法を誰か教えていただけませんか
どうマクロを組んでよいか分かりません
宜しくお願いします

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/09/24 22:50

こんばんは、

諸々不明の為、簡単なサンプルです。
Microsoft Word XX.X Object Library　参照（事前バインディング）
サンプルは、デスクトップにある "\文書1.docx"をVBAで開いて処理します。
書き込むテキスト ボックス名はテキスト ボックス 1です。
グループ化したシェイプには対応してません。

Public Sub WordTextShape_inText()
Dim objWord As Word.Application 'Wordのアプリケーション
Dim objDoc As Word.Document
Dim shp As Variant
Dim Txbox_name As String, inText As String
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open _
(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\文書1.docx")

Txbox_name = "テキスト ボックス 1"
inText = "テスト書き込み"

For Each shp In objDoc.Shapes
If shp.Type = msoTextBox Then　'テキストボックスなら
If shp.Name = Txbox_name Then
shp.TextFrame.TextRange.Text = inText
End If
End If
Next
'Wordドキュメントを閉じる
' objDoc.Close
'Wordを閉じる
' objWord.Quit
End Sub

テキストブックス内の書式を設定する事も可能ですが割愛しますので
”VBA　Word　テキストボックス　設定”　などで
調べれば、情報が見つかると思います。

この回答へのお礼

Qchan1962さん、ありがとうございます
出来ました。
ワードはこういう風に指定するのですね
いろいろマクロの本とか見てましたが、なかなかワードを操作するやり方がなくて・・・・
助かりました

お礼日時：2020/09/25 07:33

No.1 回答者： goold-man 回答日時： 2020/09/24 20:22

ワードのマクロでは駄目ですか？

テキストボックスの文字列を取得するマクロ
https://www.relief.jp/docs/word-vba-get-strings- …

この回答へのお礼

回答ありがとうございます
私の説明不足でした
メインで作業をしているのがエクセルで現状マクロにてデータを整理後に資料作成時にワードを使うので出来ればエクセルから一発で書き込みまで行いたいです
お手数をお掛けしますが宜しくお願いします

お礼日時：2020/09/24 20:46