VBA Express : Word - Create a Timer in Word

Word

Create a Timer in Word

Ease of Use

Intermediate

Version tested with

2000

Submitted by:

Anne Troy

Description:

Ticks off one second at a time by rotating your drawn shape using the OnTime method traditionally used in Excel.

Discussion:

More for fun and demonstration purposes, this could be used in a document that is viewed online as opposed to being printed.

Code:

instructions for use

			Option Explicit 
 
Sub Document_Open() 
    Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover" 
End Sub 
 
Sub ShapeMover() 
    Dim oSH As Shape 
     
    Beep 
     
    Set oSH = ActiveDocument.Shapes(1) 
    oSH.IncrementRotation 10 
     
    Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover" 
End Sub

How to use:

Copy the code above.
Open a blank Word document.
Hit Alt+F11 to open the Visual Basic Editor (VBA).
At left, double-click ThisDocument.
Paste the code into the code window at right.
Close the VBE.
Using the drawing toolbar, choose an autoshape (like an arrow) and place it on the document.
Save the file and close it; this macro is designed to run when the document is opened.

Test the code:

Open the file.

Sample File:

ontime.zip 6.67KB

Approved by mdmackillop

This entry has been viewed 196 times.