Solved

display a change in document before VBA script ends

Posted on 2012-12-29

1 solution

Medium Priority

257 Views

Last Modified: 2012-12-29

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

Comment

Question by:thenelson

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

2 Comments

LVL 22

Accepted Solution

by:Flyster

Flyster earned 2000 total points

ID: 387300282012-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

Author Closing Comment

by:thenelson

ID: 387303212012-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"

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Dynamic Printer Selection for Access

Article by: Helen

This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …

Remove-CalendarEvents: Cancel future meetings in user or resource mailboxes in Office 365

Article by: Sunil

Cancel future meetings from user mailboxes in Office 365 using Remove-CalendarEvents

How to get a free trial of Office 365 with the Office 2016 desktop applications

Video by: Joe

Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…

Microsoft Office
Office 365
Office / Productivity
Microsoft Excel
Microsoft Word
Outlook, Microsoft Access, Microsoft PowerPoint, *microsoft publisher, *Office 2016

How To Make a Graph with Microsoft Access

Video by: crystal

Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…