Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: Ekz 
Форум » Все о Delphi » Компоненты » WordParagraphFormat (Не могу понять как сделать...)
WordParagraphFormat
жекаДата: Суббота, 24.01.2009, 04:42 | Сообщение # 1
Ранг 3
Группа: Проверенные
Сообщений: 26
Награды: 0
Репутация: 1
Статус: Offline
Подскажите как мне сделать чтобы текст слева и справа был на одной и той же строке, и находился в конце документа(листа)

Сообщение отредактировал жека - Суббота, 24.01.2009, 04:42
 
AdminДата: Суббота, 24.01.2009, 11:58 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Не совсем понял что значит слева и справа. Вот вконце документа я понял а первое неочень.

Чтобы сделать текст снизу можно просто его поместить в коллонтитул (но он будет на каждой странице):

Code
procedure TForm1.Button1Click(Sender: TObject);
begin
    WordApplication1.Connect; // Присоединяемся
    WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam); // Создаем пустой документ
    WordApplication1.Visible:=true; // Показываем окно Word
    WordDocument1.ConnectTo(WordApplication1.ActiveDocument); // Присоединяемся к документу

    WordApplication1.Selection.ParagraphFormat.Alignment := 1; // Делаем текст по центру
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := 10; // коллонтитул
    WordApplication1.Selection.TypeText('213'); // добавляем текст
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := 0; // уходим из коллонтитула
end;


Не оказываю помощь через личные сообщения и ICQ
 
жекаДата: Суббота, 24.01.2009, 21:57 | Сообщение # 3
Ранг 3
Группа: Проверенные
Сообщений: 26
Награды: 0
Репутация: 1
Статус: Offline
вот пример
Прикрепления: 7478266.jpg(16Kb)
 
AdminДата: Воскресенье, 25.01.2009, 10:48 | Сообщение # 4
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Единственный нормальный способ который пришел в голову это создать таблицу.

Не оказываю помощь через личные сообщения и ICQ
 
жекаДата: Среда, 04.02.2009, 03:40 | Сообщение # 5
Ранг 3
Группа: Проверенные
Сообщений: 26
Награды: 0
Репутация: 1
Статус: Offline
а как сделать проверку установлен ли ворд на машине или нет?
 
AdminДата: Среда, 04.02.2009, 10:22 | Сообщение # 6
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
HKEY_CURRENT_USER\Software\Microsoft\Office будет если установлен Office. Но не факт что будет установлен именно Word. Такчто пошарься там должно быть обо всех компонентах MsOffice.

Не оказываю помощь через личные сообщения и ICQ
 
жекаДата: Четверг, 05.02.2009, 21:13 | Сообщение # 7
Ранг 3
Группа: Проверенные
Сообщений: 26
Награды: 0
Репутация: 1
Статус: Offline
нашел выход значительно проше )

Code

begin
try
w1.Connect;
  Except
    MessageDlg('У вас не установлен программный продукт Microsoft Office ', mtError, [mbOk], 0);
    Abort;
  End;

w1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
w1.Visible:=true;
 
AdminДата: Пятница, 06.02.2009, 10:10 | Сообщение # 8
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
А кто знает что ошибка произойдет именно из-за того что Офис не установлен. Мжет быть там будет, ну к примеру очень старая версия, или что-либо еще.

Не оказываю помощь через личные сообщения и ICQ
 
Форум » Все о Delphi » Компоненты » WordParagraphFormat (Не могу понять как сделать...)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2018
Хостинг от uCoz