Ms excel screen updating
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.
Screen Updating = False This is in Shee Print Out() sub procedure. Visible = True You would see that there is an entirely new window.
Excel & Word have the Screen Updating method thru which a developer can lock the main window from unnecessarily redrawing itself whilst the macro is being executed. If left alone, redrawing is not only ugly on the eyes it also takes more time for the macro to reach completion.
Raise Number:=vb Object Error ERR_VERSION_NOT_SUPPORTED, _ Description:="Newer version." Exit Property End Select If hwnd = 0 Then Err.
Raise Number:=vb Object Error ERR_NO_WINDOW_HANDLE, _ Description:="Unable to get the Power Point Window handle" Exit Property End If If Lock Window Update(hwnd) = 0 Then Err.
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.
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 just sits in memory not doing anything except using up your resources.
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.
' --------------------------------------------------------------------------------' User Defined Error codes Const ERR_NO_WINDOW_HANDLE As Long = 1000 Const ERR_WINDOW_LOCK_FAIL As Long = 1001 Const ERR_VERSION_NOT_SUPPORTED As Long = 1002 ' API declarations for Find Window() & Lock Window Update() ' Use Find Window API to locate the Power Point handle.