Ответ: Подготовка фирменного стиля
Разыскал этот "сложнейший" макрос.
В Object manager'e обзываем стороны "Face", "Top", "Side" и запускаем.
Sub make3d()
ActiveDocument.BeginCommandGroup "Make 3d"
Dim f As Shape, s As Shape, t As Shape
Dim fx#, fy#, fw#, fh#
Dim sx#, sy#, sw#, sh#...