Количество линий в range->ComputeStatistics

[Diego__]

Не понимаю.

Использую range->ComputeStatistics(Word::wdStatisti cLines) для получения количества занимаемых range-ем линий. Если мой range занимает более 1ой лини - уменьшаю размер шрифта range-a, для того чтобы мой текст уместился в 1 линию.

Формируемый мною документ разбит по разному на колонки(файл в прикреплении) 1ая страница - все хорошо, 2ая - нехорошо.

В первой колонке ComputeStatistics всегда корректно, в остальных при видимом range-e в одну строку возвращается значение отличное от 1, к примеру 5.
В прикрепленном файле где очень мелкий текст, там статистика возвращает значение линий более 1.
Почему это может происходить?

[Diego__]

Набросал небольшой тест(C++)

int main()
{
…
CComVariant width1(m_AppWord->CentimetersToPoints(4));
CComVariant width2(m_AppWord->CentimetersToPoints(3));

CComVariant spacing1(m_AppWord->CentimetersToPoints(1.0f));

CComVariant columnBreak(Word::wdColumnBreak), sectionBreak(Word::wdSectionBreakCo ntinuous);
try
{
m_AppWord->Selection->PageSetup->LeftMargin = m_AppWord->CentimetersToPoints(2);
m_AppWord->Selection->PageSetup->RightMargin = m_AppWord->CentimetersToPoints(0.5f);
m_WordDocument->PageSetup->TextColumns->Add(&width1, &spacing1);
m_WordDocument->PageSetup->TextColumns->Add(&width2, &spacing1);


int number = 0;
number = InsertText(L"first dsf asd sdf asdf d ad fad fads fadsf adsfadsf adsfasd fasdfasdfasdfasdf adf adsf adsf")->ComputeStatistics(Word::wdStatisti cLines);
m_AppWord->Selection->InsertBreak(&columnBreak);

number = InsertText(L"second adsfadfads d d sad fdf asdfadsf ads fadsfadsf a")->ComputeStatistics(Word::wdStatisti cLines);
m_AppWord->Selection->InsertBreak(&columnBreak);
…
}


Word::RangePtr InsertText(wchar_t *text)
{
long numStart = m_WordDocument->Paragraphs->Last->Range->GetEnd() - 1;
numStart = max(0, numStart);

m_AppWord->Selection->TypeText(text);

long numEnd = m_WordDocument->Paragraphs->Last->Range->GetEnd();
numEnd = max(0, numEnd);

CComVariant end(numEnd);
CComVariant start(numStart);

return m_WordDocument->Range(&start, &end);
}

После второго вызова InsertText(L"second a..) текст занимает более одной линии, number при этом не соответствует этому числу number = 1. После первого вызова, в первой колонки, текст занял 2 колонки, number = 2 - все хорошо. Почему так?

[Diego__]

Немного наблюдений: Создал 2 колонки, вставил текст во вторую колонку, получил статистику, количество строк = 3, а реально 6. 1ая колонка в 2 раз шире 2ой, если скопировать текст со второй и вставить в 1ую текст займет 3 строки "как утверждает статистика". Данное наблюдение повторилось при различных размерах колонок и с различной длинной текста. Похоже, что количество линий определяется по размеру 1ой колонки, хотя и не факт. Может я использую ComputeStatistic не верно? Существует функция задания текущей колонки?

[Sasha_Smirnov]

Сообщение от Diego__

Немного наблюдений... Может я использую ComputeStatistic не верно?

А как авторы объектной модели Word думали? «В обычном тексте нормально считает — ну и ладненько!»

Я пытался верстать — и мне больше понравилось использовать ячейки таблиц, а не колонки. Поэтому здесь я пас.

[viter.alex]

Я сделал аналог на VBA.

Sub test()
  ActiveDocument.PageSetup.TextColumns.Add CentimetersToPoints(7), , False
  Debug.Print InsertText("first " & String(500, "f")).ComputeStatistics(wdStatisticLines)
  Selection.InsertBreak wdColumnBreak
  Debug.Print InsertText("second " & String(500, "a")).ComputeStatistics(wdStatisticLines)
End Sub

Function InsertText(TextString As String) As Range
  Dim nStart As Long
  Dim nEnd As Long
  
  nStart = Selection.Start
  Selection.TypeText TextString
  
  nEnd = Selection.End
  Set InsertText = ActiveDocument.Range(nStart, nEnd)
End Function

Правильное количество строк получается только для первой колонки текста. Для всех остальных колонок возвращается общее количество строк в документе.