Проблема с TextBox

[miatu]

Добавляю TextBox на первую страницу, вставляю в него текст, вставляю page break. После этого хочу переместить TextBox на вторую страницу, но он остается на первой.

Word::ShapePtr textBox = m_WordDocument->Shapes->AddTextbox(Office::msoTextOrientat ionHorizontal, m_AppWord->CentimetersToPoints(10), m_AppWord->CentimetersToPoints(5), 100, 100);

textBox->WrapFormat->Type = Word::wdWrapBehind;

textBox-PutRelativeHorizontalPosition(Word: :wdRelativeHorizontalPositionPage);

textBox->PutRelativeVerticalPosition(Word:: wdRelativeVerticalPositionPage);
textBox->TextFrame->TextRange->InsertAfter(L"Privet");

CComVariant pageBreak(Word::wdSectionBreakNextP age);

m_WordDocument->GetParagraphs()->GetLast()->GetRange()->InsertParagraphAfter();

m_WordDocument->GetParagraphs()->GetLast()->GetRange()->InsertBreak(&pageBreak);

CComVariant what(Word::wdGoToPage);
CComVariant which(Word::wdGoToLast);

textBox->Anchor->GoTo(&what, &which);

[viter.alex]

Свойство Anchor у фигуры доступно только для чтения , но ошибки не дает, если ты хочешь его изменить. Сначала нужно задать Range для конкретной страницы, а затем пихать туда текстбокс.

Shape.Anchor Property
Returns a Range object that represents the anchoring range for the specified shape or shape range. Read-only.

[miatu]

Я не нашел Shapes у Range. С рисунками понятно, там есть InlineShapes, а вот с TextBox не понятно. Можешь , пожалуйста привести маленький примерчик?

[viter.alex]

В соседней теме Diego__ озабочен той же самой проблемой. Думаю, будет лучше, если вы объедините свои усилия. А то мне тяжело отвечать одно и то же в двух темах