Vba application screenupdating off
Quit End If Set o Rng = Nothing Set o Sheet = Nothing Set o WB = Nothing Set o XL = Nothing o Doc. I am doing this as i wish to put in place a progress bar for when it finds the documents and updates them. Status Bar = "Please wait..." ' or to reset it application. Update But I can't test this code because I don't have everything you do. Word will open stating the documents name but the document itself will not and that message of updating appears on the statusbar. What is takes into consideration is that the is a file called on the C: Drive and There are form that are in c:\forms\ I want to implement a progress bar for the opening of the formsfranzozola, If it's the Status Bar that is not working, then use: application.But it also works even if you run your Automation code from Word itself.Word does not need to display itself in order to run.In the above code, you could omit the lines that create and use the Word.Application object and replace them with invisibility lines: Notice that you want to put the Word. Visible = True line in an error-handler or in a spot where you know it will be run if something goes awry. (If you do get stuck with an invisible Word in the middle of a crash, you can launch the Task Manager and kill the WINWORD.
When you use the 'New' keyword it's like clicking Start-Microsoft Office Word 2003 If you modified the code like this: Set o Doc = New Word. And you are not updating the o Doc document in your code..do you have it visible, so you wouldn't see it. Screen Updating = False Workbook To Work On = "C:\forms\index.xls" 'If Excel is running, get a handle on it; otherwise start a new instance of Excel On Error Resume Next Set o XL = Get Object(, "Excel. Number 0 Then Excel Was Not Running = True Set o XL = New Excel. Screen Updating = False End If On Error Go To Err_Handler 'If you want Excel to be visible, you could add the 'line: o XL. When the macro is called for May2008, May2008 is found in say C5 and offsetting of cells will take place. On Time Now Time Serial(0, 0, 10), "Clear Status Bar" Set a Doc = Active Document 'Word document name open (a Doc) is declared as Word Fn Word FN = Left(a Doc. Name) - 4) 'Open contains a match for Word Fn 'Application. These are also the names of work docs found in c:\forms\travel expenses.doc, c:\forms\training expenses. Find(Word FN, Look In:=xl Values) If Not c Is Nothing Then First Address = c. Set o Rng = Nothing Set o Sheet = Nothing Set o WB = Nothing Set o XL = Nothing 'quit Exit Sub Err_Handler: 'Msg Box Workbook To Work On & " caused a problem. Hey Malik No the status bar is working but i will try knock it off. Value Ex Fn List = Ex Fn List & Excel FN & "|" If Excel FN "" Then 'Declare new doc as b Doc Set b Doc = Documents. On Time Now Time Serial(0, 0, 10), "Clear Status" End If Loop Until Excel FN = "" Set c = . Show End With Else Msg Box ("Document " Word FN " does not contain additional Forms") End If End With If Excel Was Not Running Then o XL. Close End If 'Make sure you release object references. And I still don't know why you are creating a whole new word application when it doesn't seem to do anything.
Search for vba application screenupdating off:
My macro is updating the field codes of the documents.