Can't automatically enter data into the word document

I have a application which has lots of buttons which help me open various word documents by automatically filling the data into those word files through fields. But for the new world document which i would like to add doesn’t have fields but has box undeath the heading how to i fill it

Below is the code:
dim wordapp as new wordapplication
dim worddoc as worddocument
dim dt as new date
dim r as RecordSet

worddoc.formfields(“Procedure”).Range.Text = self.txtFreeProcs.text
worddoc.formfields(“Surname”).Range.Text = summaryw.TxtLName.text
worddoc.formfields(“FirstName”).Range.Text = summaryw.TxtFName