'Получаем текущую активную модель
Dim mdl ' текущая модель
Set mdl = ActiveModel

'Проходимся по всем таблицам и на место имени подставляем комментарий
Dim T,col
For each T in ActiveModel.Tables
If T.comment = null or T.comment = "" then 
   output "Таблица " + T.name + " не содержит комментарий, ее имя не будет изменено"
else 
   output "Имя таблицы " + T.name + " изменено на " + T.comment
   T.name = T.comment
end if
   For each col in T.columns
     If col.comment = null or col.comment="" then
         output "Колонка " + T.name + "." + col.name + " не содержит комментарий, ее имя не будет изменено"
      else 
         output "Имя колонки " + T.name + "." + col.name + " будет изменено на " + col.comment
         col.name=col.comment
      end if
   next
next