Недавно добавленные исходники

•  TDictionary Custom Sort  514

•  Fast Watermark Sources  878

•  3D Designer  1 809

•  Sik Screen Capture  1 458

•  Patch Maker  1 465

•  Айболит (remote control)  1 390

•  ListBox Drag & Drop  1 163

•  Доска для игры Реверси  21 335

•  Графические эффекты  1 339

•  Рисование по маске  1 278

•  Перетаскивание изображений  1 091

•  Canvas Drawing  965

•  Рисование Луны  803

•  Поворот изображения  758

•  Рисование стержней  804

•  Paint on Shape  489

•  Генератор кроссвордов  750

•  Головоломка Paletto  661

•  Теорема Монжа об окружностях  842

•  Пазл Numbrix  609

•  Заборы и коммивояжеры  835

•  Игра HIP  551

•  Игра Go (Го)  523

•  Симулятор лифта  544

•  Программа укладки плитки  505

•  Генератор лабиринта  561

•  Проверка числового ввода  521

•  HEX View  596

•  Физический маятник  522

•  Задача коммивояжера  556

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Автоматизация Word с OLE



Оформил: DeeCo

uses
   comobj;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   Word: OLEVariant;
 begin
   try
     Word := CreateOleObject('Word.Application');
   except
     ShowMessage('Cannot start Word !');
     Exit;
   end;
   // Show Word 
  Word.Visible := True;
   // Add a new Document 
  Word.Documents.Add;
   if Word.ActiveWindow.View.SplitSpecial <> 0 then
     Word.ActiveWindow.Panes[2].Close;
   if (Word.ActiveWindow.ActivePane.View.type = 1) or
     (Word.ActiveWindow.ActivePane.View.type = 2) or
     (Word.ActiveWindow.ActivePane.View.type = 5) then
     Word.ActiveWindow.ActivePane.View.type := 3;
   Word.ActiveWindow.ActivePane.View.SeekView := 9;

   Word.Selection.Font.Name     := 'Times New Roman';
   Word.Selection.Font.Size     := 12;
   Word.Selection.Font.Bold     := True;
   Word.Selection.ParagraphFormat.Alignment := 1;
   Word.Selection.TypeText(Text :=
     'Kohlenhandel Brikett-GmbH & Co.-KG. - Holzweg 16 - 54633 Steinhausen');

   if Word.Selection.HeaderFooter.IsHeader = True then
     Word.ActiveWindow.ActivePane.View.SeekView := 10
   else
     Word.ActiveWindow.ActivePane.View.SeekView := 9;
   Word.Selection.TypeText(Text :=
     'Bankverbindung: Stadtsparkasse Steinhausen BLZ 123456789   KtoNr. 782972393243');
   Word.ActiveWindow.ActivePane.View.SeekView := 0;
   Word.Selection.TypeText(Text := Edit2.Text + ' ' + edit1.Text);
   Word.Selection.TypeParagraph;
   Word.Selection.TypeText(Text := edit3.Text);
   Word.Selection.TypeParagraph;
   Word.Selection.TypeParagraph;
   Word.Selection.Font.Name := 'Times New Roman';
   Word.Selection.Font.Size := 12;
   Word.Selection.Font.Bold := True;

   Word.Selection.TypeText(Text := edit4.Text + ' ' + edit5.Text);
   Word.Selection.TypeParagraph;
   Word.Selection.TypeParagraph;
   Word.Selection.TypeParagraph;
   Word.Selection.TypeParagraph;
   Word.Selection.Font.Name     := 'Arial';
   Word.Selection.Font.Size     := 14;
   Word.Selection.Font.Bold     := True;
   Word.Selection.TypeText(Text := Combobox1.Text);
   Word.Selection.TypeParagraph;
   Word.Selection.TypeParagraph;
   Word.Selection.TypeParagraph;
   Word.Selection.Font.Name := 'Times New Roman';
   Word.Selection.Font.Size := 12;
   Word.Selection.Font.Bold := True;
   if radiogroup1.ItemIndex = 0 then
     Word.Selection.TypeText(Text := 'Sehr geehrter Herr ' + edit1.Text)
   else
     Word.Selection.TypeText(Text := 'Sehr geehrte Frau ' + edit1.Text);
 end;




Похожие по теме исходники

Circle Word Wrap

Word List 1.5

Word Search in Text

Конвертер Word - HTML

 

Create document in Word

Golden Passwords

Work with Word and Excel

Grid Word Highlight

 

Win Console

Molecula (3D молекула)

Molecule (молекула)

Console FTP

 

CMD OLE

DeParole

Console SmartEngine

Close Console on Event

 

Console Task Manager




Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram