Определение размеров страницы в Word е

← →
Afonya (2008-08-29 20:28) [0]

Всем доброго времени суток!
Столкнулся с такой проблемой: запускаю из под делфей ворд, открываю в ворде документ. Как определить размеры страницы в пикселях? (ну в сантиметрах потом можно будет тпреобразовать).
Под VB делается так:
Dim AH As Double ... AH = ThisDocument.PageSetup.PageHeight

Как подобное организовать в делфях?

← →
Afonya (2008-08-29 20:47) [1]

Все - нашел ответ сам...
pageHeight := MSWord.ActiveDocument.PageSetup.PageHeight; pageWidth := MSWord.ActiveDocument.PageSetup.PageWidth;

А вот как реализовать такое в делфях:
скрипт VB:
With Selection.Frames(1) .Select .Width = CentimetersToPoints(2.78)

← →
Afonya (2008-08-29 20:49) [2]

на следующие строчки выдает ошибку:

var HPosition : real; ... HPosition := MSWord.Selection.Frames.Items(1).HorizontalPosition; // или так HPosition := MSWord.Selection.Frames(1).HorizontalPosition;

← →
KilkennyCat © (2008-08-30 13:30) [3]

ну и какая ошибка выдается, если, конечно, не секрет?

← →
Xandr001 (2008-08-31 13:42) [4]

попробуй вместо круглых скобок поставить квадратные. дело в том, что Делфи круглые скобки воспринимает как список параметров процедуры, а квадратные как указатель на элемент массива. а Frames это массив...

А вообще вот так попробуй:

HPosition := MSWord.Selection.Frames[1].HorizontalPosition

← →
Xandr001 (2008-08-31 13:47) [5]

Не получится, попробуй так:

HPosition := MSWord.ActiveDocument.Selection.Frames[1].HorizontalPosition

With MSWord.ActiveDocument.Selection.Frames(1) do begin
.Select;
.Width = CentimetersToPoints(2.78);
end;

← →
Afonya (2008-09-01 10:57) [6]

Попробовал в квадратных - все равно не получается пишет вот что:

Project Form.exe raised exception class EOleError with message "Method "Selection" not supported by automation object" Process stopped...

← →
Xandr001 (2008-09-02 18:03) [7]

а если так?
HPosition := MSWord.ActiveDocument.Selection.Frames[1].HorizontalPosition

← →
Xandr001 (2008-09-02 18:11) [8]

а вообще... как ты юзаешь оле объект? подключаешься к открытому документу или создаешь новый?

Определение размеров страницы в Word е Найти похожие ветки