Как узнать положение текста, куда планируется его вставить?

[Diego__]

код на С++

Создал новый документ, задал маргины

Word::SectionPtr lastSection = m_WordDocument->Sections->GetLast();
	
lastSection->PageSetup->BottomMargin = m_AppWord->CentimetersToPoints(1);
lastSection->PageSetup->TopMargin = m_AppWord->CentimetersToPoints(1);
lastSection->PageSetup->LeftMargin = m_AppWord->CentimetersToPoints(1);
lastSection->PageSetup->RightMargin = m_AppWord->CentimetersToPoints(10);

Дальше, в цикле вставляю текст

Word::ParagraphPtr paragraph = m_WordDocument->GetParagraphs()->GetLast();
paragraph->PutSpaceBefore(spaceBefore);

Word::RangePtr range = paragraph->GetRange();
range->InsertAfter(text);	

Word::_FontPtr font = range->GetFont();
font->PutName(fontName);
font->PutSize(fontSize);
font->PutColor(Word::WdColor(color));

Как на i-ой итерации цикла узнать в какую точку документа будет вставлен текст? При этом устанавливая маргины станицы, спейсинги и индеты параграфам.

Можно ли узнать размер вводимого текста? Если у нас есть текст в заранее не известного размера, после вставки его на страницу, существует возможность узнать его параметры (например: описывающий прямоугольник)?

[Sasha_Smirnov]

Есть такой объект Надпись — по сути, текстбокс. С ней в вашем случае было бы удобнее работать.

Обычный же текст на странице (поскольку ширина знаков и пробелов разная) трудно «просчитать» как прямоугольник известного размера. Легче экпериментально выяснить, задав шрифт, поля, интерлиньяж, отступы красной строки, пробел между абзацами... много чего.

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

[viter.alex]

Я уже отвечал на этот вопрос на другом форуме. Хочу уточнить: что ты подразумеваешь под точкой документа? Что значит для тебя «размер вводимого текста»
После вставки текста в документ, он «растворяется» в тексте. Если знаешь место, куда вставляешь текст, т.е. смещение от начала документа, то, зная длину текста, можно определить куда попал его конец, а также, как изменился документ: добавились ли страницы, абзацы, разделы и т.д.
Насколько я помню, ты занимаешься перегонкой из pdf, но там несколько другая объектная модель и как её сопоставить с моделью Word, я не знаю.

[Diego__]

В данном случае мне не походит использование текстбокса.

Под точкой в документе подразумеваю расстояние от верхнего левого угла страницы.
«размер вводимого текста» - есть начало документа, я задал маргин, отступ и все такое, т.е. я знаю точку начала ввода. Ввожу текст

Word::RangePtr range = paragraph->GetRange();
range->InsertAfter(text);

"где я" сейчас? Есть ли возможность, зная параметры текста и сам текст, узнать в сантиметрах его высоту, длину, сколько строк он занимает?

Если знаешь место, куда вставляешь текст, т.е. смещение от начала документа, то, зная длину текста, можно определить куда попал его конец, а также, как изменился документ: добавились ли страницы, абзацы, разделы и т.д.

- Можешь подсказать, привести пример как узнать "куда попал его конец" (текста) ?

Я уже отвечал на этот вопрос на другом форуме.

- можно ссылку на форум? Не я, часом, было автором на том форуме

[viter.alex]

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

"где я" сейчас? Есть ли возможность, зная параметры текста и сам текст, узнать в сантиметрах его высоту, длину, сколько строк он занимает?…

Пока ты текст не введешь, ты не можешь знать его размеры. Range абстрактно не существует, только в привязке к конкретному документу.
Попробуй так, вроде бы даёт то, что тебе нужно:

Sub RangeSize()
  Dim pLeft As Long
  Dim pTop As Long
  Dim pWidth As Long
  Dim pHeight As Long
  Dim oRngPage As Range
  'начало страницы, на которой заканчивается диапазон
  Set oRngPage = .Range.GoTo(wdGoToPage, wdGoToAbsolute, Selection.Information(wdActiveEndPageNumber))
  'Задаём диапазон от начала страницы до конца выделенного текста
  oRngPage.SetRange oRngPage.Start, Selection.End
  'Считаем размеры диапазона в пикселах
  ActiveDocument.Windows(1).GetPoint pLeft, pTop, _
        pWidth, pHeight, oRngPage
  Debug.Print "Верхний левый угол: (" & PointsToCentimeters(PixelsToPoints(pLeft)) & ";" & PointsToCentimeters(PixelsToPoints(pTop)) & ")"
  Debug.Print "Ширина: " & PointsToCentimeters(PixelsToPoints(pWidth)) & vbTab & "Высота: " & PointsToCentimeters(PixelsToPoints(pHeight))
End Sub

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

…Под точкой в документе подразумеваю расстояние от верхнего левого угла страницы…

В этом ты расходишься с Майкрософтом. Объекта Page в Word нет. Можно лишь получить диапазон (Range), соответствующий определённой странице

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

- можно ссылку на форум? Не я, часом, было автором на том форуме

На винграде

[Diego__]

Спасибо, кое что получилось.

Есть какие-нибудь ограничения на работу с GetPoint, если окно невидимо, может это повлиять?

Если текст моего ренжа занимает больше 1ой страницы ширина и высота получаемые из GetPoint дают мне не совсем "то", хотя и ожидаемый результат. Как правильно определить принадлежит ли данный ренж более чем 1ой странице?

[viter.alex]

Range.ComputeStatistics(wdStatisticPages)

Положение Range относительно видимой области экрана не имеет значения. По крайней мере, я не заметил.

[Diego__]

Спасибо, еще раз.

Последний метод оказался очень полезным

[Aent]

Тут всё грустнее. Расстояние точки на странице от верхнего угла печатного листа помимо всего прочего зависит и от установленного
принтера по умолчанию...
Т.е. даже получив эту координату вы будете иметь нулевую портабельность.
Всё таки Word это текстовый процессор а не система полиграфической вёрстки