This looks great thank you. One question though. I bealive I am running on admin already but Its telling me permission denied: CreateObject. Is that Why you had to switch to admin status? If so how can I check if its set that way? I feel stupid asking but I asked around here and I got a big I don't know, but the general consencus was that I was already at that satus. Thanks again. Sokar ctl - alt - del if that dosen't work, bang your head on the keybord.

sounds interesting I will look into it as well. ctl - alt - del if that dosen't work, bang your head on the keybord.

I have full control over the folder(I am running locally on my computer). THe files are not read only files. I am pretty sure that It has something to do with the copy and past part. I have been playing around with the word macros in the VB editor and have had some ideas but nothing has born fruit as of yet. btw, thank you for helping I do appriciate it. Sokar ctl - alt - del if that dosen't work, bang your head on the keybord.

I could really use some help with a problem I am having using Word Automation. Using ASP I have created an Online Reports Website were our Project Managers go and upload their status reports to the website itself. My boss wants me to combine the single reports into one big report as they are being uploaded to the site. The only way that I can figure out to do it is with Automation. I have never done it before or for that matter heard of it before. I have this so far. set objWord = CreateObject("Word.Application") set objAppendFileFSO = CreateObject("Scripting.FileSystemObject") if objAppendFileFSO.FileExists(strAppendFileName) then Set newReport = objWord.Documents.Add(strReadFile) set completeReport = objWord.Documents.Add(strAppendFileName) newReport.Selection.WholeStory() newReport.Selection.Copy() completeReport.Selection.PasteAndFormat(wdPasteDefault) completeReport.InsertPagebreak() completeReport.ActiveDocument.Close() newReport.ActiveDocument.Close() else Set newReport = objWord.Documents.Add(strReadFile) set completeReport = objWord.Documents.Add() newReport.ActiveWindow.Selection.Range.WholeStory newReport.ActiveWindow.Selection.Range.Copy completeReport.Add.Content.Paste 'completeReport.ActiveWindow.Selection.PasteAndFormat(report) completeReport.InsertPagebreak() completeReport.SaveAs("D:\Inetpub\wwwroot\CJISReport\CJISreportPage\" & strYear & "\monthlyList\" & strmonth & "\MajorProjects\All Reports.doc") completeReport.ActiveDocument.Close() newReport.ActiveDocument.Close() end if The if is to determine if it was the first report of the month. It will create the new report if so. There is different code in them cause I have been trying different things with each of them and unfortuenetly none of them work. It just tells me this error: Permission Denied. It tells me this for the line "end if". I have no Idea what this means. Any help would be really apprecieated. Thank you in advanced. Sokar ctl - alt - del if that dosen't work, bang your head on the keybord.