Delphi və iki Word sənədi

Bir daha salam. Delphidə bir kod altında eyni zamanda iki Word sənədi ilə işləmək olarmı?
Problem elədir ki, Document1 ilə işimi görüb qutardıqdan sonra Document2-yə müraciət etsəm, lazımı nəticəni almayacam, belə ki, kod hissəsində gah ilk açılmış sənədə (Document1), gah da sonradan açılmış sənədə (Document2) istinadlar edəcəm.


Kateqoriya: Proqramlaşdırma . Qısa keçid.

Verilmiş cavablar və yazılan şərhlər (1 cavab var)

(21:36, 09/03/2012 ) #10388

word və excel faylları ilə işləmək üçün makrosları bilmək yaxşı olar.
Bilməsən də bacararsan. Amma çox çətin olacaq.

var word: Variant;
doc1: Variant;
doc2: Variant;
begin
//word proqrami hazirlanir
word:=CreateOleObject(‘word.application’);
word.visible:=true;

//faylar hazirlanir
doc1:=f.Documents.Add;
doc2:=f.Documents.Add;

//birinci fayl aktivlesir ve text daxil edilir
doc1.select;
word.Selection.Text:=’Birinci acilan fayl’;

//ikinci fayl aktivlesir ve text daxil edilir
doc2.select;
word.Selection.Text:=’Makroslari mutleq oyren’;

//fayllar saxlanir ve proqram baglanir.
doc1.saveAs(‘c:\word1.doc’);
doc2.saveAs(‘c:\word2.doc’);
word.Quit;
end;

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Cavab verin


Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.

Üzvlər üçün giriş

Qeydiyyat

Elan qutusu

Son cavablar və şərhlər

faiqalizade cavab verdi - Dual Boot haqqında(kömək) (17 saat əvvəl)

Bruce lee888 cavab verdi - Visaelectron kartina pul gəlmeyib (23 saat əvvəl)

neo13 cavab verdi - Dual Boot haqqında(kömək) (23 saat əvvəl)

neo13 cavab verdi - 20 subdomen saytlar üçün bir hosting (server) (23 saat əvvəl)

Anar Həsənov cavab verdi - Ən yaxşı ADSL xidməti (1 gün əvvəl)

Anar Həsənov cavab verdi - Sizcə bu balla zərbəçi spendiyası almaq olar? (1 gün əvvəl)

Anar Həsənov cavab verdi - Skrill-də debit kart təsdiqləmə (1 gün əvvəl)

E. Hacı cavab verdi - Ubuntu haqqında suallarım var. (1 gün əvvəl)

Akhundoff cavab verdi - ADSENSE ödəməsi (1 gün əvvəl)

sahib.musayeva cavab verdi - Sancaq insana nə edə bilər (2 gün əvvəl)

neo13 cavab verdi - Ubuntu haqqında suallarım var. (2 gün əvvəl)

neo13 cavab verdi - windows 10 internetden (2 gün əvvəl)

neo13 cavab verdi - Skrill-də debit kart təsdiqləmə (2 gün əvvəl)

neo13 cavab verdi - Aliexpress, ünvan (2 gün əvvəl)

nick123123 cavab verdi - Aliexpress bazarlıq. (2 gün əvvəl)

E. Hacı - 571 xal

Software Developer - 571 xal

Onar Alili - 526 xal

Dilsuz - 448 xal

Cabbarov Sübhan - 414 xal

Ruslan Butdayev - 328 xal

Namiq Bəndəli - 297 xal

U.Tarlan - 244 xal

Meherremoff - 234 xal

Bextiyar Azeroglu - 217 xal

Sistemə daxil olmuş 19151 sualdan 94%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

E-Haci.net istehsalı. © 2010-2018