Status: Solved
Priority: Medium
Security: Public
Views: 263
Last Modified: 2012-12-29

display a change in document before VBA script ends

I have the following code:

ActiveDocument.Bookmarks("Status").Range.Text = "Clearing All Unneeded Files - Please wait"
ClearAllUneededFiles

Open in new window

The bookmark change does not display until after the subroutine ClearAllUneededFiles completes. How do I display the bookmark change before running ClearAllUneededFiles?

TIA

thenelson

Asked: 2012-12-29

Advertise Here

1 Solution

LVL 22

FlysterCommented: 2012-12-29

You can add a timer event to delay the code:

Sub YourSub()
Dim Start, Lapse
ActiveDocument.Bookmarks("Status").Range.Text = "Clearing All Unneeded Files - Please wait"
    Lapse = 5 ' Set delay in seconds
    Start = Timer
    Do While Timer < Start + Lapse
        DoEvents
    Loop
ClearAllUneededFiles
End Sub

Open in new window

You can change the line Lapse=5 to however long you want the delay.
Flyster

LVL 39

thenelsonAuthor Commented: 2012-12-29

I kinda did the same thing you suggested only different:

ActiveDocument.Bookmarks("Status").Range.Text = "Clearing Unneeded Files - Please wait"
Application.OnTime Now + TimeValue("00:00:01"), "ClearAllUneededFiles"

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

display a change in document before VBA script ends

Join & Write a Comment Already a member? Login.

Featured Post