Replacing text in MS Word from ASP

Hello



I am trying to open an MS Word document from an ASP page then use search and replace to modify the letter (e.g. name and address). I want to do this because of the control over the look and feel of the final letter.



The code I am attempting is:



set letter = CreateObject("Word.Application")

letter.Documents.Open("letter.doc")



letter.Documents(1).Content.Select

with letter.Documents(1).Selection.find

.Clearformatting

.Forward = true

.Wrap = wdWrapContinue

.Execute FindText:=strFind, Replace:=wdReplaceAll, ReplaceWith:=strReplace

end with



When I execute it I get an 'Expected Statement' error and the debugger is pointing at strFind.



What am I doing wrong?



Regards

James