При создании шейпа последним параметром можно задать Anchor
Код: Выделить всё
Word::RangePtr range = m_WordDocument->Range();
VARIANT anchor;
anchor.vt=VT_DISPATCH;
anchor.pdispVal=range;
Word::ShapePtr newShape = m_Shapes->AddTextEffect(..., &anchor);
Код: Выделить всё
Word::ShapePtr copyShape = wordArtShape->Duplicate();
Код: Выделить всё
wordArt->Anchor = anchor;

В msdn указаноerror C2774: 'Word::Shape::Anchor' : no 'put' method is associated with this property
В VBA мне подсказывали, что ошибки не дает. Это то связанное с языками VBA/C++, или я делаю что то не так?Returns a Range object that represents the anchoring range for the specified shape or shape range. Read-only.

Есть другой метод задать Anchor копии объекта?