Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2009.10.25;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Основная";
Текущий архив: 2009.10.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.045 c
4-1219732438
KygECHuK
2008-08-26 10:33
2009.10.25
Выгрузка WinApi перехватчика


1-1221672996
leonidus
2008-09-17 21:36
2009.10.25
Проблемы со скрулом в TListBox со стилем lbVirtual


2-1251683194
Johnnnn
2009-08-31 05:46
2009.10.25
Цветной текст ДЛЯ richedit?


4-1219984247
Melphin
2008-08-29 08:30
2009.10.25
Изменение свойств компонентов в Excel


2-1251091182
Interesting
2009-08-24 09:19
2009.10.25
Как возвести число в степень?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский