I have tried moving the screenupdating, displayalerts, displaystatusbar to different parts of the doc but i still get this. Display Status Bar = False For Each o Story In Current Doc. (that doesn't let you turn off screen updating..least I haven't found a way to do so for debuggin in 2007)Hey Malik thanks for your reply. Text End With Unload frm Title Set frm Title = Nothing Call Update Story Ranges(Active Document) Call Sheet Print Out Application.
I see people struggling with Excel every day and I want to help.That's why I'm giving away my personal macro library for free.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. These forms are then opened in word like so Set b Doc = Documents. What happens though is that the screenupdating works for the excel part, it then when it gets to word for opening the forms, shows opening the forms and a message appears on the status bar, stating word is updating fields in the current document. Screen Updating = False Set frm Title = New User Form1 With frm Title . Introduction | Example | Tutorial | Applications | Comments Prevent your screen from updating until your Excel macro is finished with Application. It can be used for other applications, but I find it most useful for Excel.
Screen Updating property is useful when running macros that jump from cell to cell, sheet to sheet, and workbook to workbook. Screen Updating to False stops your screen from flickering (refreshing) as your macro runs. Range Dim First Address As String Dim Excel Was Not Running As Boolean Dim Workbook To Work On As String Dim Word FN As String Dim Excel FN As String Dim a Col As Integer Dim Ex Fn List As String Application. You might need to create a Word doc called May2008, then go into C:\and put say May2008 in C5, you will also have to create word docs called travel expenses.doc, training in c:\forms. Worksheets(1) 'Find last cell with data in column A. It will then print off these and update any of the fields. It just sits in memory not doing anything except using up your resources. Plus you never "Close" the document and "Exit" the application. 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.