🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #1896

Delphi en Word .....

#1896
From: Ronny
Date: Tue, 02 Nov 2004 20:57
22 lines
1550 bytes
Met onderstaande code Kan je een Word document aanmaken :


procedure TForm1.Button1Click(Sender: TObject);
begin
  WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, 
EmptyParam);
  WordApplication1.Selection.TypeText('hello world');
  WordApplication1.Visible := True;
end;


Met onderstaande code Kan je een Word afsluiten :

    WordApplication1.Disconnect;

Als dit Word document al dan niet word gesaved, hoe kan je dat aan je Delphi 
programma te kennen geven ????


Dank bij voorbaat ..........
 
Technical Details
Message-ID: <BwShd.8859$cv1.470141@phobos.telenet-ops.be>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!news.agarik.com!skynet.be!skynet.be!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: fcea4,39152663afcb89f5,start
X-Google-Thread: 107324,39152663afcb89f5,start
X-Google-Attributes: gidfcea4,gid107324,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!news.agarik.com!skynet.be!skynet.be!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: "Ronny" <jvbsoft.verwijder@pandora.be>
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: Delphi en Word .....
Lines: 24
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
Message-ID: <BwShd.8859$cv1.470141@phobos.telenet-ops.be>
Date: Tue, 02 Nov 2004 20:57:05 GMT
NNTP-Posting-Host: 81.165.88.65
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1099429025 81.165.88.65 (Tue, 02 Nov 2004 21:57:05 MET)
NNTP-Posting-Date: Tue, 02 Nov 2004 21:57:05 MET
Organization: Telenet Internet