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

Вниз

Изменение значений шаблона MS Word   Найти похожие ветки 

 
Fedia   (2004-09-15 08:03) [0]

Уважаемые мастера.
Немножко замучился вот с какой проблемой. Мне необходимо перед занесением информации в документ Word, изменить параметры шрифта MS Word, заданные по умолчанию. В частности изменить название шрифта и размер. Как это сделать?
Документ Word создаю посредством функции CreateOleObject("Word.Application");


 
Fedia   (2004-09-15 09:06) [1]

Посмотрел как это делается в Visual Basik:    
   With ActiveDocument.Styles(wdStyleNormal).Font
       .Name = "Courier"
       .Size = 9
   End With
Но не могу дорубиться как это перевести в Object Pascal?


 
Карелин Артем ©   (2004-09-15 09:26) [2]

WordApp.ActiveDocument.Styles[-1].Font.Name: = "Courier";
WordApp.ActiveDocument.Styles[-1].Font.Size: = 9;


 
Fedia   (2004-09-15 09:37) [3]

на строчке
WordApp.ActiveDocument.Styles[-1].Font.Name: = "Courier";
выдает ошибку: "Item" не является свойством.


 
Карелин Артем ©   (2004-09-20 15:41) [4]

WordApp.ActiveDocument.Styles(-1).Font.Name: = "Courier";



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

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

Наверх




Память: 0.44 MB
Время: 0.062 c
3-1094060707
Maverick
2004-09-01 21:45
2004.10.03
ODAC


3-1094118325
AZ
2004-09-02 13:45
2004.10.03
Левые числа в DBGrid е


8-1087894955
Borealis
2004-06-22 13:02
2004.10.03
Изображения ключевых кадров из авишки (RIFF_AVI)


14-1095073437
Луарвик
2004-09-13 15:03
2004.10.03
TIniFile: как загрузить отдельно значения и назв.?


14-1095049149
Думкин
2004-09-13 08:19
2004.10.03
С днем рождения! 13 сентября





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский