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. Value = 20 On Error Resume Next Set wbook = Workbooks("Ibase Detail.xlsx") If wbook Is Nothing Then 'go to share and open file filename = "Ibase Detail.xlsx" path = "\netapp\service_data$\Service_Operations\Field Service\IBase Data" Workbooks. Un Merge Set rng = Range("A1") 'effort to stop screen flicker Debug.
Controls Select Case Type Name(onecontrol) Case "Combo Box" onecontrol. 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. 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. Value = vb Null String For Each onecontrol In User Form3. Open (path & "\" & filename) 'put this command in to see halt execution until large file is opened and ready Do Events Else wbook. The screen flickers (presumably when opening each document)? TIA 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. 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.