I am completely new to VBA. I am trying to create an auto populating contract so that the user only has to enter replicated information in the contract once.

When I test the template - all of the fields populate except for those referring to Text118. Instead I get a message that says - Runtime error '5941': The requested member of the collection does not exist.

I have made sure that I am using the right bookmark (Text118) and the macro is set to run on exit on Text118 but it is still not working.

Does anyone else have any ideas?

Many thanks in advance for any guidance.

Code I am using is:

Sub Replicate()
With ActiveDocument
.FormFields("Text88").Result = .FormFields("Text2").Result
.FormFields("Text8").Result = .FormFields("Text2").Result
.FormFields("Text9").Result = .FormFields("Text2").Result
.FormFields("Text81").Result = .FormFields("Text2").Result
.FormFields("Text10").Result = .FormFields("Text2").Result
.FormFields("Text85").Result = .FormFields("Text4").Result
.FormFields("Text13").Result = .FormFields("Text4").Result
.FormFields("Text86").Result = .FormFields("Text5").Result
.FormFields("Text14").Result = .FormFields("Text5").Result
.FormFields("Text7").Result = .FormFields("Text6").Result
.FormFields("Text82").Result = .FormFields("Text6").Result
.FormFields("Text12").Result = .FormFields("Text118").Result
.FormFields("Text18").Result = .FormFields("Text118").Result
.FormFields("Text19").Result = .FormFields("Text118").Result
.FormFields("Text20").Result = .FormFields("Text118").Result
.FormFields("Text21").Result = .FormFields("Text118").Result
.FormFields("Text22").Result = .FormFields("Text118").Result
.FormFields("Text23").Result = .FormFields("Text118").Result
.FormFields("Text24").Result = .FormFields("Text118").Result
.FormFields("Text25").Result = .FormFields("Text118").Result
.FormFields("Text26").Result = .FormFields("Text118").Result
.FormFields("Text27").Result = .FormFields("Text118").Result
.FormFields("Text28").Result = .FormFields("Text118").Result
.FormFields("Text29").Result = .FormFields("Text118").Result
.FormFields("Text30").Result = .FormFields("Text118").Result
.FormFields("Text31").Result = .FormFields("Text118").Result
.FormFields("Text32").Result = .FormFields("Text118").Result
.FormFields("Text33").Result = .FormFields("Text118").Result
.FormFields("Text34").Result = .FormFields("Text118").Result
.FormFields("Text35").Result = .FormFields("Text118").Result
.FormFields("Text36").Result = .FormFields("Text118").Result
.FormFields("Text37").Result = .FormFields("Text118").Result
.FormFields("Text38").Result = .FormFields("Text118").Result
.FormFields("Text39").Result = .FormFields("Text118").Result
.FormFields("Text40").Result = .FormFields("Text118").Result
.FormFields("Text41").Result = .FormFields("Text118").Result
.FormFields("Text42").Result = .FormFields("Text118").Result
.FormFields("Text43").Result = .FormFields("Text118").Result
.FormFields("Text44").Result = .FormFields("Text118").Result
.FormFields("Text45").Result = .FormFields("Text118").Result
.FormFields("Text46").Result = .FormFields("Text118").Result
.FormFields("Text47").Result = .FormFields("Text118").Result
.FormFields("Text48").Result = .FormFields("Text118").Result
.FormFields("Text49").Result = .FormFields("Text118").Result
.FormFields("Text50").Result = .FormFields("Text118").Result
.FormFields("Text51").Result = .FormFields("Text118").Result
.FormFields("Text52").Result = .FormFields("Text118").Result
.FormFields("Text53").Result = .FormFields("Text118").Result
.FormFields("Text54").Result = .FormFields("Text118").Result
.FormFields("Text55").Result = .FormFields("Text118").Result
.FormFields("Text56").Result = .FormFields("Text118").Result
.FormFields("Text57").Result = .FormFields("Text118").Result
.FormFields("Text58").Result = .FormFields("Text118").Result
.FormFields("Text59").Result = .FormFields("Text118").Result
.FormFields("Text60").Result = .FormFields("Text118").Result
.FormFields("Text61").Result = .FormFields("Text118").Result
.FormFields("Text62").Result = .FormFields("Text118").Result
.FormFields("Text63").Result = .FormFields("Text118").Result
.FormFields("Text64").Result = .FormFields("Text118").Result
.FormFields("Text65").Result = .FormFields("Text118").Result
.FormFields("Text66").Result = .FormFields("Text118").Result
.FormFields("Text67").Result = .FormFields("Text118").Result
.FormFields("Text68").Result = .FormFields("Text118").Result
.FormFields("Text69").Result = .FormFields("Text118").Result
.FormFields("Text70").Result = .FormFields("Text118").Result
.FormFields("Text71").Result = .FormFields("Text118").Result
.FormFields("Text72").Result = .FormFields("Text118").Result
.FormFields("Text73").Result = .FormFields("Text118").Result
.FormFields("Text74").Result = .FormFields("Text118").Result
.FormFields("Text75").Result = .FormFields("Text118").Result
.FormFields("Text76").Result = .FormFields("Text118").Result
.FormFields("Text77").Result = .FormFields("Text118").Result
.FormFields("Text78").Result = .FormFields("Text118").Result


.FormFields("Text79").Result = .FormFields("Text118").Result
.FormFields("Text80").Result = .FormFields("Text118").Result
.FormFields("Text16").Result = .FormFields("Text15").Result
.FormFields("Text109").Result = .FormFields("Text110").Result
End With
End Sub

FYI - i chose this method so that I could protect the doc from other people editing it other than in the designated fields. {REF Text118} doesn't seem to update when protected so I can't use that method.