Has anyone experienced this before and found a solution?Hello, The beginning of t he code I am writing turns off screen updating, but the screen still updates as the code runs. 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.The last statement of the procedure sets Application. Now if I remove the Screen Updating statements from the code then the sheet is displayed correctly and usually in a short period of time.So from my viewpoint Screen Updating is not working correctly.
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. Column D, E, F etc are the names of forms say D5- travel expenses, training expenses, end of quarterly expenses etc. 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. 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. Worksheets(1) 'Find last cell with data in column A. It will then print off these and update any of the fields. Visible = True here; but your code will 'run faster if you don't make it visible 'Open the workbook Set o WB = o XL. Open(File Name:=Workbook To Work On) Set o Sheet = o WB. Everytime it offsets it opens the cell value say c:\forms\travel expenses ; if travel expenses is in the cell.This is an issue because when activating some sheets, I am doing things in the background that have been "Hidden" to this point but with screenupdating all ways "on" the user will see everything.I have tried moving the code to another procedure and doing Screen Updating = False Call Routine Screen Updating = True This has not worked.I tried adding Doevents after the screenupdating statements and that has not worked either.My Office and anti-virus software are current, I disabled all add-ins, I ran Off Cat, I disabled all animation. My default printer does not effect this (I tried the Document Writer and there was no difference).