Добавить описание к картинке из параграфа.

[VBArti]

Хочу ускорить добавление названий к картинкам.
Хотелось бы выделить картинку и текст под ней и этот текст преобразовать в название типа
Рисунок 1. *текст параграфа*
и сама картинка сверху.