
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
Wordマクロで、一行目と二行目のインデントを解除する
Word(ワード)
-
11
任意で選択したセルをテキストボックスに表示
Excel(エクセル)
-
12
WordのVBAについて
Visual Basic(VBA)
-
13
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
14
エクセルのマクロでワードのマクロに引数を渡す方法
Word(ワード)
-
15
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
16
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
17
Word のテキストボックスで、参照の設定をすることはできますか?
Excel(エクセル)
-
18
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
19
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
20
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
Excel_マクロ_現在開いているシ...
-
ExcelのVBA。public変数の値が...
-
Excelのセル値に基づいて図形の...
-
TERA TERMを隠す方法
-
ExcelVBA 図形をクリックした...
-
エクセルに張り付けた写真のフ...
-
【EXCEL VBA】オートシェイプを...
-
【Excel】複数のマクロをまとめ...
-
アクセス マクロ クリップボ...
-
Excelで特定の文字のところで自...
-
Excel マクロ VBA プロシー...
-
ソース内の行末に\\
-
Excel 改ページのVBAうまくい...
-
エクセルで別のセルにあるふり...
-
コマンドボタンに二回目のマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel_マクロ_現在開いているシ...
-
一つのTeratermのマクロで複数...
-
マクロの連続印刷が突然不可能...
-
ExcelのVBA。public変数の値が...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
エクセルに張り付けた写真のフ...
-
Excelのセル値に基づいて図形の...
-
TERA TERMを隠す方法
-
マクロ実行時エラー
-
ExcelVBAでPDFを閉じるソース
-
wordを起動した際に特定のペー...
-
特定文字のある行の前に空白行...
-
Excel マクロでShearePoint先の...
-
エクセルで縦に並んだデータを...
-
マクロ実行時、ユーザーフォー...
-
ソース内の行末に\\
おすすめ情報