Search  
Thursday, May 24, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Office Automation  inserare tabel...
 inserare tabel
 
 11/16/2006 11:25:59 AM
User is offlineAdrian Gerlan
581 posts
1st




inserare tabel
 (Romania)
I need help...
Nu reusesc sa inserez un tabel, in Word, la locul potrivit.
In arhiva am prg-ul si un doc ca exemplu la ce vreau sa fac.
Tks.

AdiG
inserttabel.zip 
 11/16/2006 12:49:26 PM
User is offlineGrigore Dolghin
3590 posts
www.class-software.eu
1st






Re: inserare tabel
 (N/A)

Bun exemplu - mi-a facut viata usoara in depanare.

So: ActiveDocument.Range() returneaza TOT documentul. In cazul tau iti trebui al 4-lea paragraf. Daca modifici codul astfel:

Range = oWord.Activedocument.Paragraphs(4).Range()
oWord.ActiveDocument.Tables.Add(oRange, 35, 2, 1, 0)
oTable = oWord.ActiveDocument.Tables(1)

iti selecteaza paragraful 4 apoi insereaza tabelul in range-ul RESPECTIVULUI paragraf.

Ti-am atasat fisierul modificat.

Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
test15_modificat.prg.txt 
 11/16/2006 1:04:53 PM
User is offlineAdrian Gerlan
581 posts
1st




Re: inserare tabel
 (Romania)
Grig, nu vreau sa-l insereze in al 4-lea paragraf ci  incepand din locul in care gaseste "aici_grila~", inlocuind aceasta "cheie de cautare".
Ei.. asta nu stiu eu, cum sa stabilesc "range" in acel loc....

AdiG
 11/16/2006 2:17:04 PM
User is offlineGrigore Dolghin
3590 posts
www.class-software.eu
1st






Re: inserare tabel
 (N/A)

nResult = oWord.Selection.Find.Execute('aici_grila~')
oRange = oWord.ActiveDocument.Range(oWord.Selection.Start, oWord.Selection.End)
oWord.ActiveDocument.Tables.Add(oRange, 35, 2, 1, 0)
oTable = oWord.ActiveDocument.Tables(1)

Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 11/16/2006 2:30:37 PM
User is offlineAdrian Gerlan
581 posts
1st




Re: inserare tabel
 (Romania)
Perfect!
Eu chiar voiam sa "ma laud" cu solutia:

oWord.Selection.Find.Text='aici_grila~'
oWord.Selection.Find.Execute()
oWord.Selection.Text=''
oRange = oword.Selection.range()
oWord.ActiveDocument.Tables.Add(oRange, 35, 2, 1, 0)

... care este acelasi lucru facut in pasi mai mici.. :)
Multumesc Grig,.. spor...

AdiG
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Office Automation  inserare tabel...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement