I want the offerte_example.doc copied to factuur_example.doc Then i want to edit some standard text thats always present in offerte_example.doc wich is now filled in with the users text (wich wil stay there) As offerte_example.doc is copied to factuur_example.doc this wil be a exact copy But a few standard lines need to be changed. Dont know how to put it in better words. I found a script that will change the lines of text, but as i dont know how the user will name the file i dont know how to pass the filename to the script. The file also needs to be copied as its a file with cel en table`s dos wont do the trick. The file below does not copy, i need copy and replace i will post the script below Const wdReplaceAll = 2 Set oWord = CreateObject("Word.Application") oWord.Visible = False set oDoc = oWord.Documents.Open("dont know what to put here") With oWord.Selection .Find.Text = "Offerte:" .Find.Replacement.Text = "factuur:" .Find.Forward = True .Find.MatchWholeWord = True .Find.Execute ,,,,,,,,,,wdReplaceAll .Find.Text = "Na eventuele accordatie stellen wij betaling per pin op prijs." .Find.Replacement.Text = "Wij danken u voor uw opdracht, graag betaling via PIN" .Find.Forward = True .Find.MatchWholeWord = True .Find.Execute ,,,,,,,,,,wdReplaceAll End With oDoc.Save oDoc.Close oWord.Quit