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. Like I said in the previous post, please place "Option Explicit" at the top of the module and click Debug-Hi Malik When you say the screen updating works fine for you, do you mean you don't get a message in the status bar saying Word is updating the fields in this document, the document will not look fully opened but the title of the document will appear at the top.It sets application.screenupdating to false just before every windows (filename).activate function.
To make sure that each change was not effected by the debugger. Screen Updating will always show True in the debug window.
I turned off the debugger and tried the same code and it flickers between the books. But that shouldn't alter the way it works when a routine / function is run.
You see you have a document opened named May2008What happens is you call the macro Update It will then conduct a find on the following path C:\A search is done on column C for May2008, the document that is open at that given time.
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.
Status Bar = Left$("Printing " & Excel FN & " for Doc " & Word FN, 300) 'Application. Text Box1 = "Document " & Word FN & " has the following forms attached: " & Chr(10) & Replace(Ex Fn List, "|", " . Screen Updating = False For Each o Story In Current Doc. I placed in the C drive and I made a folder called 'forms' in the C directory with a blank workbook called "index.xls" and I still had a problem running the code. Forms will have to be manually inserted and printed. Built In Document Properties("Title") 'Update the Title Fields Call Update Story Ranges(b Doc) 'Application. On Time Now Time Serial(0, 0, 10), "Clear Status Bar" b Doc. Close savechanges:=wd Do Not Save Changes 'Application. Screen Updating = True End Sub Sub Update Story Ranges(Current Doc As Document) Application. Status Bar = "" Try this at different points in the code. I would like to test the code for you, but I'm going to need everything that is necessary. 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.Has anyone else seen this problem and what do I need to do to fix it?Since my computer was upgraded to win 10 with office 2016, Application.screenupdating=false command in VB (excel) doesn't work properly.o Story is a range of values for updating the formfields in a document Please view code, What happens is Update() is called at the beginning, it asks to input a title, the title is updated for the formfields in the current document ie. What happens next is that Call Sheet Print Out is called which takes the current document file name, searches an excel spreadsheet for the document file name value, then offsets and creates a list called forms of the offsetted value Ex FNList. Once the forms are opened the formfields are then updated and the forms are printed off. Sub Update() Dim Title As String Dim frm Title As User Form1 Dim o Story As Range Application.