whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

8 Visitors Online


 
...automate Word with OLE?
Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch
[ Print tip ]  

Tip Rating (39):  
     


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;

 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners