Run Code when document is Activated? Or clicked anywhere in it?

daneyuleb · #2 12-17-2021, 10:25 AM

OK, figured it out. Followed MS's instructions on creating an event-handler object:

Using events with the Application object (Word) | Microsoft Docs

In case anyone else ever needs something like this, it was simple:

Create a class module:

Insert -> Class Module

In the View -> Properties window, give your new module a name. (I just used MS's example: EventClassModule )

In the class module, put this at the top to declare an object with events:

Code:

Public WithEvents App As Word.Application

Click your new object ("App") in the Object dropdown, and you'll see all the interesting events you can use with your new object in the Procedures drop-down to its right -- there's lots! I picked the WindowActivate one for what I needed:

Code:

Private Sub App_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)

MsgBox "Active!"

End Sub

The last thing is to connect your new class object ("App") to the Word.Application object. Which is just this code in any module.

Code:

Dim X As New EventClassModule

Sub Register_Event_Handler()

Set X.App = Word.Application

End Sub

Run this Register_Event_Handler sub, and the Event becomes active. Each time I come back to the word doc from another app, it triggers! Perfect!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
This copy of MS Office not activated	chzuck	Office	1	10-10-2021 03:10 PM
I clicked "this document" in VBA thinking it was a menu button, it said "saving", how can I reverse	messgchr	Word VBA	2	07-20-2020 06:52 PM
Is my Office 'activated' or not?	mabel	Office	6	08-01-2019 04:18 AM
Retrieve the last activated document name.	eduzs	Word VBA	1	08-22-2017 03:11 PM
Hyperlink not activated by footpedal	Donone	PowerPoint	2	05-05-2014 04:42 AM