Discover this word and many others that you can use in combination with Application in the downloadable course on Excel macros. As you can read: starting in cell A1 a value of "99" will be entered in the selected cell then the cursor will move one cell down to enter "99", repeat the process until the row number of the selected cell is 3000 and come back to cell A1.
Open("C:\sample.pps", _ With Window:=mso False) 'Open a window now to the presentation for editing p Show.
New Window ' Unlock the window to start refreshing again Screen Updating = True Exit Sub Err Handle: If Err.
Range Dim o Frm As frm Progress Dim Portion Done As Double On Error Go To Err_Exit str Text To Insert = "Annual bonus rates for the last five years" str Text To Find = "Discharge Pack" Set doc To Open = Application.
Sub Insert Text() Dim Doc As Document, str Text To Insert As String, str Text To Find As String Dim i As Long, doc To Open As File Dialog, s Hght As Single Dim rng To Search As Word.
Sub Insert Text() Dim Shp As Shape, Doc As Document, str Text To Insert As String, str Text To Find As String Dim i As Long, doc To Open As File Dialog, s Hght As Single Dim rng To Search As Word. Data Object On Error Go To Err_Exit 'str Text = Input Box("New Text", "Header Textbox Update", "New Text") ' Switch off the updates of screen Application. File Dialog(mso File Dialog File Picker) doc To Open.
Screen Updating = False ' Set the text str Text To Insert = "Annual bonus rates for the last five years" str Text To Find = "Discharge Pack" Data Obj. Paste And Format (wd List Combine With Existing List) ' The above inserts a line which creates a second page, so delete a line after Selection. Delete Unit:=wd Character, Count:=1 Active Document. Close Save Changes:=wd Save Changes Next Set doc To Open = Nothing: Set Doc = Nothing ' Switch Screen updates back on Application.There is a word that you can use with Application that will neutralise all the alerts that Excel can send your way.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.Hence I created this generic wrapper to lock the window updates.Is there anything that I can add to my code that might eliminate the updating? Would it help it the above was placed in the template that is being opened ? Screen Updating controls the updating of the current document's window, but not the updating that occurs when documents are opened/closed. If your screen "locks up" because of an effective use of the Application.You could reduce the flickering by using Active Window. I'd say, in general, Word's desire to keep pagination accurate is the most common cause for the unreliability (i.e., running code in normal view rather than page layout view can also help, etc). Screen Updating = False, and then proceeds to take 2 minutes to do all of the other stuff, you're going to be making a post saying "How do I give my end-users a progress bar when running a long program? Hi Neil, I take a different view from Frosty on the flickering issue: I don't regard it as a matter of making the app 'super slick'.The routine also illustrates the use of the Screen Updating property (code listed above).' --------------------------------------------------------------------------------Sub Open PPSFor Edit() On Error Go To Err Handle Dim p Show As Presentation ' Lock the window to prevent refreshing ' See above article example for the code Screen Updating = False 'Open the show, however use additional flag - With Window set to FALSE Set p Show = Presentations. Show = -1 Then Set o Frm = New frm Progress If doc To Open. File Dialog(mso File Dialog File Picker) If doc To Open.