Скачать: CL | DM;

Определение размеров страницы в 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c