How to re-assign text field placed inside the shape automatically?

I have a masterplan with say 500 parcels, each has to be labeled with its area, each parcel is made of shape or complex shape, each labels is placed inside of the shape / complex shape.

I want to use text fields to set the parcel area value. the only way I can think of is to double-click on each text field, right click "reassign field", click the shape and confirm. which is quite boring and time consuming thing, not to mention there is high probability for error.

is there a way to reassign all the text fields automatically? I understand there is probably no such tool in MS directly, but how to do it via VBA or something else? either in V8i or CE

thanks