Remove the line indicated to search for every instance.
The following does that for the first instance of the found text (matching the case). Caption = "Processing document " & i - 1 & " of " & doc To Open. Count End If 'Open each document Set Doc = Documents. Selected Items(i), _ Visible:=False, _ Addto Recent Files:=False) Set rng To Search = Doc. Screen Updating = True Msg Box "Processing complete" End If lbl_Exit: Set Doc = Nothing Set doc To Open = Nothing Set rng To Search = Nothing Exit Sub Err_Exit: Msg Box 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.
Screen Updating = True Exit Sub Err_Exit: Msg Box Err. Number End Sub If you don't want to have the flicker as the documents are opened, open the documents invisibly. 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. Hope someone can help me I have the following code which works beatifully in excel 20 but the screenupdating dont work seems select or activate set this back to true ? Any help appreciated - I dont know how can I select a sheet with screenupdating to false as its ignoring it which us not the case with excel 2007 or excel 2010. Screen Updating = True End Sub Sub Contact() Application. " & Chr(10) & Chr(10) & "Obs.: The option 2 will be selected in 30 seconds.", "Contact Support", 2, 30, "Visit JNL Homepage", "Send an Email to JNL", "Nothing") Case 1 Active Workbook. Follow Hyperlink "mailto:[email protected]" End Select Error Handler: Application. Ignore Remote Requests = True 'Clear certain entries in userform For Each onecontrol In Userform1. Controls Select Case Type Name(onecontrol) Case "Combo Box" onecontrol. Hi al When you use this test macro in Windows to avoid the problem that you can't copy grouped sheets with a Table in one of them you not see the screen flicker. Enable Events = False End With Set Sourcewb = Active Workbook 'Copy the sheets to a new workbook 'We add a temporary Window to avoid the Copy problem 'if there is a List or Table in one of the sheets and 'if the sheets are grouped With Sourcewb Set The Active Window = Active Window Set Temp Window = . Max = 100 'get tag# and check for blank tagfind = Userform1. Value If tagfind = "" Then Msg Box ("You did not enter a TAG Number.") Exit Sub Else 'effort to stop screen flicker Debug. Controls Select Case Type Name(onecontrol) Case "Check Box" End Select Next onecontrol Userform1. Close Set Destwb = Active Workbook ' do the stuff you want with this new workbook Destwb. Enable Events = True End With End Sub On a Mac in E2011 you see the screen updating, If there are problems with screenupdating code I love to hear them.