Проблема с Range

[miatu]

Создаю три колонки. пишу в первой привет и ставлю column break. после этого хочу написать во второй колонке. но текст пишется в первой.

document->Sections->Last->PageSetup->TextColumns->SetCount(3);
document->Paragraphs->Last->Range->PutText(L"privet");

VARIANT end;
end.vt = VT_I4;
end.lVal = document->Paragraphs->Last->Range->End - 1;

Word::RangePtr range = document->Range(&end);
range->InsertBreak(&columnBreak);

document->Paragraphs->Last->Range->PutText(L"mir");

Помогите, пожалуйста.

[viter.alex]

Дело в том, что разрыв колонки не создает нового абзаца. Нужно перед разрывом колонки ставить абзац, а уже после этого пустого абзаца вставлять разрыв.

[miatu]

Если пишу вот так:

document->Sections->Last->PageSetup->TextColumns->SetCount(3);
document->Paragraphs->Last->Range->PutText(L"privet");
document->Paragraphs->Last->Range->InsertParagraphAfter();
document->Paragraphs->Last->Range->InsertBreak(&columnBreak);
document->Paragraphs->Last->Range->InsertParagraphAfter();
document->Paragraphs->Last->Range->PutText(L"mir");
document->Paragraphs->Last->Range->InsertParagraphAfter();

то все работает почти правильно, за исключением того, что privet и mir находятся на разных уровнях в колонках. А как сделать так, чтобы privet и mir были в разных колонках и на одном уровне?

[viter.alex]

А зачем после разрыва колонки еще один абзац? Он не нужен

[miatu]

Когда пишу так:

document->Sections->Last->PageSetup->TextColumns->SetCount(3);
document->Paragraphs->Last->Range->PutText(L"privet");
document->Paragraphs->Last->Range->InsertParagraphAfter();
document->Paragraphs->Last->Range->InsertBreak(&columnBreak);
document->Paragraphs->Last->Range->PutText(L"mir");

слова в одной колонке находятся

[viter.alex]

Значит так, после разрыва колонки абзац действительно не нужен, но текст в последний абзац нужно помещать методом InsertAfter, тогда все получается:
Вот что получается у тебя:

А вот что получается этим кодом

Sub test()
  ActiveDocument.Sections.Last.PageSetup.TextColumns.SetCount 3
  ActiveDocument.Paragraphs.Last.Range.Text = "privet"
  ActiveDocument.Paragraphs.Last.Range.InsertParagraphAfter
  ActiveDocument.Paragraphs.Last.Range.InsertBreak wdColumnBreak
  ActiveDocument.Paragraphs.Last.Range.InsertAfter "mir"
End Sub

Получается, что разрыв колонки принадлежит абзацу, после которого он вставлен, и когда ты задаешь напрямую текст этого абзаца, ты разрыв уничтожаешь. А если вставить текст в конец абзаца (методом InsertAfter), то все остается на своих местах. Вообще, метод InsertAfter предпочтительнее, если нужно изменить диапазон.

[miatu]

Спасибо огромное