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で質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- その他(パソコン・スマホ・電化製品) ワードでテキストボックス内の文字を連動させない方法 2 2023/02/09 16:56
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Visual Basic(VBA) Activesheet.Pasteで困っています 1 2023/01/22 07:41
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- 年賀状作成・はがき作成 はがき作家 2 2023/05/12 06:00
- Excel(エクセル) マクロ ScrollColumn について 2 2022/04/07 09:31
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
WordVBAで規定のところに文字列を挿入したい
Access(アクセス)
-
Word-VBAで文字色を一括置換したいのですが、
Word(ワード)
-
VBAでテキストボックス内の編集をする方法
Visual Basic(VBA)
-
-
4
ExcelのVBAでWordを読み取り専用で開いて、見たいページに自動で移動する方法を教えて頂きたい
Excel(エクセル)
-
5
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
6
Excelからワード文書の文字置換を実行する(ワードでのマクロも)
Word(ワード)
-
7
Access VBA [リモートサーバーがないか使用できる状態ではありません]
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルで別のセルにあるふり...
-
Excel VBAからAccessマクロを実...
-
VBAコードのインデント表示
-
エクセルに張り付けた写真のフ...
-
特定文字のある行の前に空白行...
-
ExcelVBAでPDFを閉じるソース
-
ソース内の行末に\\
-
#defineの定数を文字列として読...
-
Excel マクロでShearePoint先の...
-
VC++ 2008 EXPRESS "_T"識別子...
-
エクセルでA1セルに時刻をリア...
-
エクセルのマクロについて教え...
-
エクセルのマクロでワードの任...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報