was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

25 Visitors Online


 
...Word über OLE-Automation steuern?
Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch
[ Tip ausdrucken ]  

Tip Bewertung (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;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


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