先日、以下のように教えて頂き試したのです、できませんでした。
ご回答が頂けないので再投稿をしました。
教えて下さい。
------------------------------------------------
お世話になっております。
QNo.4228197で質問させて頂きました。
その節はありがとうございました。
WORDでも同様な事をやりたいのです。
ドキュメントを開いた際のイベントは、
Dim WithEvents oWord as Word.Application
Private Sub oWorf_DocumentOpen(ByVal Doc As Word.Document)
end sub
でいいのでしょうか??
------------------------------------------------------------
やり方は同じですよ
IDTExtensibility2_OnStartupCompleteイベントの最後の方で
if oHostApp.Name = "Microsoft Word" then
Set oWord = oHostApp
End if
IDTExtensibility2_OnBeginShutdownの最後に
Set oWord = Nothing
を追加
Private Sub oWord_DocumentOpen(ByVal Doc As Word.Document)
If oWord.Documents(1).CustomDocumentProperties.Count Then
MsgBox oWord.Documents(1).CustomDocumentProperties("文書番号").Value
End If
end sub
といった具合です
-------------------------------------------------------------------
下記のようにしてテストしてみたのですが、うまく行きません。
宣言部
Dim WithEvents objWord As Word.Application
IDTExtensibility2_OnConnectionイベント
Set objWord = objHostApp
IDTExtensibility2_OnBeginShutdownイベント
Set objWord = Nothing
Private Sub objWord_DocumentOpen(ByVal Doc As Word.Document)
MsgBox "word Open"
End Sub
Private Sub objWord_DocumentActivate(ByVal Doc As Word.Document)
MsgBox "word Activate"
End Sub
どこか違うのでしょうか。
宜しくお願い致します。
----------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでcallで呼び出したsubを終...
-
VB.NETでのイベントの途中終了
-
チェックボックスを操作できな...
-
他のフォームから別のフォーム...
-
コンボボックスのClickイベント
-
VB6でClickイベントを一時的に...
-
comboboxのクリックイベントに...
-
ClickとChangeイベントの違いは...
-
【VB6.0】 あるフォームから他...
-
VBA public変数はどのようなこ...
-
C#のループでtextboxに値を入れ...
-
String型の値にスラッシュをつ...
-
テキストボックスに大文字を
-
エクセルVBAでテキストボッ...
-
テキストボックスかラベル上の...
-
三項でたとえば交換って
-
FlexGridで文字色を変更。
-
TextBoxの内容を右寄せ
-
テキストボックスを空白にする方法
-
リストビューの列ヘッダーの幅...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでcallで呼び出したsubを終...
-
他のフォームから別のフォーム...
-
VB.NETでのイベントの途中終了
-
チェックボックスを操作できな...
-
ClickとChangeイベントの違いは...
-
VB6でClickイベントを一時的に...
-
[Excel2000]auto_closeを止めさ...
-
VB6でForm_Load中にイベントを...
-
comboboxのクリックイベントに...
-
EXCEL2010 VBA SelectionChange...
-
コンボボックスのClickイベント
-
WORDのアドイン
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
-
C#のループでtextboxに値を入れ...
-
C言語のサフィックスについて
-
レコードセットにnullの場合
-
エクセルVBAでテキストボッ...
-
Functionの戻り値を配列にした...
-
プログラムの素朴な質問です 分...
おすすめ情報