[ Miloš Baić @ 05.12.2005. 16:41 ] @
Kako da iz aplikacije otvorim word dokument?
Bilo prazan, bilo neki obrazac?
Isto vazi i za Excel?
[ Milos D @ 05.12.2005. 17:32 ] @
http://www.djpate.freeserve.co.uk/AutoWord.htm

http://www.djpate.freeserve.co.uk/Automation.htm
[ Miloš Baić @ 05.12.2005. 21:02 ] @
Na osnovu koda:

WordApplication1.Connect;
WordApplication1.Visible := True;

i na kartici 'Servers' uzete komponente (WordApplication1) uspeo sam otvoriti word,
pokusao sam jos neke stvari ali nisam uspeo otvoriti prazan word-ov dokument.
Da li neko zna kako (objasnjenje)?
Pa, onda kako neki snimljeni word dokument otvoriti putem Delphi-ja?
Isto vazi i za Excel? Kako ga otvoriti, pa prazan dokument, pa neki vec pisan?

P.S. koristim Delphi 7 Enterprise i MS Office 2003
[ Nemanja Avramović @ 05.12.2005. 22:11 ] @
pa zar ne mozes sa shellexecute? u uses dodas shellapi a posle sa shellexecute... otvaras dokumenta... pogledaj u nekoj novijoj temi kako se otvara sajt u default web browseru... na tu foru mozes i dokument....
[ ivanho @ 05.12.2005. 23:05 ] @
Word
novi dokument:

Code:

var
  Word: variant;
begin
  Word:=CreateOleObject('Word.Application');
  Word.Visible:=true;
  Word.Documents.Add;


otvaranje postojeceg:

Code:

  Word.Documents.Open('neki_fajl.doc');



Excel
novi dokument:

Code:

var
  Excel: variant;
begin
  Excel:=CreateOleObject('Excel.Application');
  Excel.Visible:=true;
  Excel.Workbooks.Add;


otvaranje postojeceg:

Code:

  Excel.Workbooks.Open('neki_fajl.xls')


[ Miloš Baić @ 05.12.2005. 23:59 ] @
Nece opet da proradi ni sa ovim kodom?!

var
Word: variant;
begin
Word:=CreateOleObject('Word.Application');
Word.Visible:=true;
Word.Documents.Add;

Upisao sam u uses i ShellApi metod i OleCtnrs i nece?!

Prikazuje gresku u redu:

Word:=CreateOleObject('Word.Application'); posle 'CreateOleObject'

Verovatno nesto fali, ja imam kao sto sam naveo MS Office 2003 i Delphi 7 Enterprise?!
[ ivanho @ 06.12.2005. 10:08 ] @
umesto ShellApi i OleCtnrs, stavi ComObj
[ Miloš Baić @ 06.12.2005. 12:19 ] @
Uspeo sam sa ComObj, hvala...
Idemo dalje...

[Ovu poruku je menjao loshmiscg dana 06.12.2005. u 13:19 GMT+1]
[ Miloš Baić @ 06.12.2005. 16:37 ] @
Uspeo sam, jel, pokrenuti Word i Excel, cist fokument, ali
ovaj kod nece da radi:

Word.Documents.Open('neki_fajl.doc');

Isto prijavljuje gresku za Documents?!
Sta sad fali? Znaci kad zelim otvoriti neki memorisani dokument?!
[ ivanho @ 06.12.2005. 17:07 ] @

sta prijavljuje?


moras da uneses ceo put... znaci

Code:

Word.Documents.Open('c:\...\neki_fajl.doc');

ili gde se vec fajl nalazi...
[ Miloš Baić @ 06.12.2005. 20:41 ] @
Kontam za celu putanju, ali nece.
Napravio sam ovako, samo primer:

procedure TForm1.Button1Click(Sender: TObject);
begin
Word.Documents.Open('d:\a\proba.doc');
end;

a prikazuje gresku:

[Error] Unit1.pas(56): Object or class type required

kursor treperi posle ( Word.Documents.|Open('d:\a\proba.doc'); ) znaci posle Documents.?!

Uneo sam i:

uses ComObj;

Otvara nov dokument Word ili Excel, a neki vec postojeci nece.