
No.2ベストアンサー
- 回答日時:
こんばんは、
諸々不明の為、簡単なサンプルです。
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さん、ありがとうございます
出来ました。
ワードはこういう風に指定するのですね
いろいろマクロの本とか見てましたが、なかなかワードを操作するやり方がなくて・・・・
助かりました
No.1
- 回答日時:
回答ありがとうございます
私の説明不足でした
メインで作業をしているのがエクセルで現状マクロにてデータを整理後に資料作成時にワードを使うので出来ればエクセルから一発で書き込みまで行いたいです
お手数をお掛けしますが宜しくお願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
WordVBAで規定のところに文字列を挿入したい
Access(アクセス)
-
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
ExcelVBAで既に開いてるwordを閉じる
Excel(エクセル)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
MS Office Word のマクロで行列の現在位置を取得したいのですが?
Word(ワード)
-
9
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
10
任意で選択したセルをテキストボックスに表示
Excel(エクセル)
-
11
Wordマクロで、一行目と二行目のインデントを解除する
Word(ワード)
-
12
WordのVBAについて
Visual Basic(VBA)
-
13
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
14
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
15
Word のテキストボックスで、参照の設定をすることはできますか?
Excel(エクセル)
-
16
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
17
エクセルのマクロでワードのマクロに引数を渡す方法
Word(ワード)
-
18
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
19
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
20
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
UWLSの記録でマクロを作成し使...
-
Excel マクロ VBA プロシー...
-
Excel_マクロ_現在開いているシ...
-
Excel マクロでShearePoint先の...
-
TERA TERMを隠す方法
-
Excel・Word リサーチ機能を無...
-
「マクロの記録」で作成したマ...
-
ExcelのVBA。public変数の値が...
-
ExcelVBAでPDFを閉じるソース
-
VBAを使ってエクセルを秀丸にコ...
-
OnTimeを使ったのですが「エラ...
-
既存のマクロをコンボボックス...
-
エクセルマクロでワードの一ペ...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
エクセルで縦に並んだデータを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel_マクロ_現在開いているシ...
-
一つのTeratermのマクロで複数...
-
マクロの連続印刷が突然不可能...
-
ExcelのVBA。public変数の値が...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
エクセルに張り付けた写真のフ...
-
Excelのセル値に基づいて図形の...
-
TERA TERMを隠す方法
-
マクロ実行時エラー
-
ExcelVBAでPDFを閉じるソース
-
wordを起動した際に特定のペー...
-
特定文字のある行の前に空白行...
-
Excel マクロでShearePoint先の...
-
エクセルで縦に並んだデータを...
-
マクロ実行時、ユーザーフォー...
-
ソース内の行末に\\
おすすめ情報