Textelements as Datafields in Cells

Hello,

I have a cell with Textelements as Datafields (DataEntryregion as place holder) .Under the raw data every Datafield has one distinct ID-Number and one distinct field size.

I need to select the different datafields by size and populated with Text (find and replace by size). Geting the datafields by ID is not the optimal solution because the ID-Number is different from file to file. I need to get the datafields by field size.

Can anyone help me with a VBA code to use as batch process   to fill the datafields in different files ? I'm using  Microstation V8i.

Thank you