Start Screen updating

Screen updating

You can download a userform to do this from my web site - Extract the files from the zip and import to the VBA project.

Hi all, Before I start, I will admit I posted this in a forum that helps me a lot with another Office product, but as of this post they were not able to shed any light on this issue.

Sorry to be a pain macropod but would you mind showing how the 'Insert File' method works and a code for it based on the above? - Neil I think Paul was asking whether there are scenarios where you need to open/copy/close/paste from multiple documents, not whether you might have multiple option buttons selected at once (in which case, I would suggest a use of the collection object, but it doesn't appear to be a need for you) The performance hits are the (primarily) the following: 1. Insert File might be helpful, although I don't think it will be appreciably different from opening with . Copy Making the Visible parameter false in the Documents. One of those commands tells Word to give some visual feedback to the end-user (i.e., highlight stuff in black) and one just does it (that's the concept of *the* Selection vs. You'll want to keep looking for any use of a selection object in your code, and then post sample for how to translate (I'm guessing it's rampant, since at least some of this started as a recorded macro-- which is a great way to start, very easy to remember what you did and see the recorded equivalent).

Open("E:\MYDOCUMENT" & Str Var & ".dot", _ Add To Recent Files:=False, Visible:=False) Doc. Option 1 - Statement 1 Option 2 - Statement 2 Option 3 - Statement 3" When using Option Buttons in a Frame you can only select one Option Button at a time I have found.

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.