Hi Mike.

>which proves to be a bit more tedious than it sounds but I'm sure it could be done with some replace statements. Would anybody know how to begin?

It's pretty straightforward code, something like:

lnTables = adbobjects(laTables, 'Table')
for lnI = 1 to lnTables
lcTable = laTables[lnI]
use (lcTable) again shared
lnFields = afields(laFields)
for lnJ = 1 to lnFields
dbsetprop(lcTable + '.' + laFields[lnJ, 1], 'Field', 'Caption', '')
next lnJ
next lnI

Doug