Как вставлять WordArt и TextBox на "текущую" страницу?

[Diego__]

Последовательно вставляю

изображения
m_Document->Paragraphs->Last->Range->GetInlineShapes()->AddPicture(imagePath.GetString() );
Word::ShapePtr shapePtr = inlineShape->ConvertToShape();

shapePtr->WrapFormat->Type = Word::wdWrapBehind;
...

текстовые блоки
Word::ShapePtr textBox = m_Document->GetShapes()->AddTextbox(Office::msoTextOrientat ionHorizontal, ...);
textBox->WrapFormat->Type = Word::wdWrapFront;
...
textBox->GetTextFrame()->GetTextRange()->InsertAfter(L"privet");


объекты WordArt
Word::ShapePtr wordArt = m_Document->GetShapes()->AddTextEffect(Office::msoTextEffec t1, ...);
wordArt->WrapFormat->Type = Word::wdWrapFront;
...


обычный текст
m_Document->GetParagraphs()->GetLast()->GetRange()->InsertAfter(L"privet");
...

ставлю break
CComVariant m_PageBreak(Word::wdSectionBreakNex tPage);
m_WordDocument->GetParagraphs()->GetLast()->GetRange()->InsertBreak(&m_PageBreak);

еще раз повторно все вставляю. Все текстовые блоки и WordArt вставляются только на первую страницу, обычный текст и изображения - на следующую (нормально). Как сделать, чтобы после break-a текстовые блоки и WordArt вставлялись на текущую страницу, а не на первую? Можно ли этого добиться без использования Selection-a? очень не хочется использовать selection

[viter.alex]

У объекта Range есть метод GoTo, который позволяет перенести диапазон на конкретную страницу. Пример использования показан в этой, очень недавней теме

[Diego__]

В данной теме Вы приводите пример вставки изображений. Они вставляются в Range через InlineShapes.AddPicture(...). У меня не получается добавить Shape-ы: TextBox и WordArt. Мне известны только 2 метода, как это сделать

m_Document->GetShapes()->AddTextEffect
m_Document->GetShapes()->AddTextbox

у Range-a я не нашел ничего похожего.

Попробовал после
m_WordDocument->GetParagraphs()->GetLast()->GetRange()->InsertBreak(&m_PageBreak);
вставить

CComVariant toPage(Word::wdGoToPage);
CComVariant toNext(Word::wdGoToNext);

m_WordDocument->GetParagraphs()->GetLast()->GetRange()->GoTo(&toPage, &toNext);

результат не радует - все текстовые блоки и WordArt на 1ой странице.
Что я делаю не так?

[viter.alex]

Правильно, InlineShapes, а затем, когда я уже вставил их на нужную страницу, я их конвертирую в обычный Shape

[Diego__]

Как добавить WordArt и/или TextBox как InlineShape?

[viter.alex]

Рискну предположить, что есть метод GetInlineShape, аналогичный методу GetShape

[miatu]

У range есть метод GetInlineShapes(), GetShapes() метода у range нету.

Пробовал добавлять textBox через InlineShapes, не получилось.

Word::InlineShapePtr inlineShape = m_WordDocument->GetParagraphs()->GetLast()->GetRange()->GetInlineShapes()->AddPicture(L"C:\\1.jpg", &CComVariant(FALSE), &CComVariant(TRUE));
Word::ShapePtr shape = inlineShape->ConvertToShape();
shape->TextFrame->TextRange->InsertAfter(L"sdf");

[viter.alex]

Вот часть кода из той темы, на которую я ссылался:

  'Переходим на указанную страницу
  Set oRng = ActiveDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, iPage)
  'Добавляем в текст этой страницы картинку
  Set oInShp = oRng.InlineShapes.AddPicture(sPicPath, False, True, oRng)

Как можно увидеть, в качестве последнего параметра этого метода указан oRng в качестве якоря. Этот параметр не является обязательным, но в данном случае он критичен. Предварительно перед этим я задал в oRng нужную страницу. Сделайте все так же.

[miatu]

Вот так пробую:

CComVariant pageBreak(Word::wdSectionBreakNextP age);

Word::RangePtr range = m_WordDocument->Range();

range->InsertParagraphAfter();
range->InsertBreak(&pageBreak);

range->GoTo(&CComVariant(Word::wdGoToPage ), &CComVariant(Word::wdGoToAbsolut e), &CComVariant(2));

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

Вылетает при вставке текс бокса. Там последний параметр VARIANT* Anchor. Может неправильно передаю?

[miatu]

Все проблема решена. Вот код:

CComVariant pageBreak(Word::wdSectionBreakNextP age);

Word::RangePtr range = m_WordDocument->Range();

range->InsertParagraphAfter();
range->InsertBreak(&pageBreak);

VARIANT anchor;
anchor.vt=VT_DISPATCH;
anchor.pdispVal=range;

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