Excessive Temp Files for Word (1 Viewer)

[BigJimSlade]

Hi, Big Jim here:

I will try and consolidate my code...
*************************************************
Set w = New Word.Application
Set newdoc = w.Documents.Open("D:\Blank.doc")
Do Until rsta.EOF
Set doc = w.Documents.Open("D:\WD_BreakPage.doc")
doc.Activate
doc.Select
Selection.Copy
newdoc.Activate
Selection.Paste
doc.Save
doc.Close
Set doc = Nothing
End If
rsta.movenext
Loop
newdoc.SaveAs ("D:\" & strFileName)
newdoc.Close wdDoNotSaveChanges
Set newdoc = nothing
w.quit
set w = nothing
************************************************

When I run this code to paste hundreds of individual documents into one master file (this is not exactly what I am doing, but I have cropped the code), after I close each document that was pasted, a temp file (ie "~$Word.doc") stays open. Eventually, I run out of system resources. Any thoughts?

Thanks in advace!

Big Jim

 

[BigJimSlade]

Big Jim again:

I have also noticed that this process runs fine on another computer never taking up more than 20,000K of memory. On the computer I am running it on now (the one I should be running it on), the memory allocation to Word just skyrockets! What could be making it do this on one computer and not the other? Did I mention it worked fine on this computer until this week?

Could it be a setting in Word?

Any thoughts are appreciated (other than reformatting the computer of course)

Thanks!

Big Jim