Search  
Wednesday, September 08, 2010 ..:: 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!
SearchForum Home
  Visual FoxPro  Office Automation  Append la sfars...
 Append la sfarsitul unui fisier Word
 
 12/27/2007 11:34:56 PM
User is offlinejoer
4 posts




Append la sfarsitul unui fisier Word
 (N/A)
Am urmatorul cod in care deschid un fisier word si vreau sa adaug in el anumite valori , problema este ca vreau sa le adaug la finalul fisierului si nu stiu cum sa fac.

fisierdoc = GETFILE("DOC", ;
   "Selecteaza fisierul Word", ;
   "Alege", ;
   0,;
   "Alege fiseierul Word pentru a adauga la sfarsit.")
#DEFINE wdToggle           9999998
#DEFINE wdParagraph 4
    LOCAL loWord, loSelection, loDocument
    loWord = CREATEOBJECT("Word.Application")
    loWord.Visible = .T.

loDocument = loWord.Documents.Add("&fisierdoc")
loSelection = loWord.Selection
loSelection.TypeText("textul meu")

Acest cod adauga dar la inceputul fisierului iar pe mine ma intereseaza la finalul fisierului deschis. Mentionez ca fisierele word difera atat ca nr de pagini cat si in ceea ce priveste continutul.

 12/28/2007 8:23:34 AM
User is offlineAdrian Gerlan
578 posts
1st




Re: Append la sfarsitul unui fisier Word
 (N/A)

#Define wdStory 6

lcNume = 'c:\test.doc'

lcCale = 'c:\'

oWord = Createobject("word.application")

oWord.Visible = .T.

Curdir=lcCale

oWord.ChangeFileOpenDirectory(Curdir)

oWord.Documents.Open(lcNume)

oWord.Selection.EndKey(wdStory)

oWord.Selection.TypeText("textul meu")

 

AdiG
 12/28/2007 8:46:59 AM
User is offlinenae racaru
693 posts
www.rarom.ro
1st




Re: Append la sfarsitul unui fisier Word
 (Romania)
fisierdoc = GETFILE("DOC", ;
   "Selecteaza fisierul Word", ;
   "Alege", ;
   0,;
   "Alege fiseierul Word pentru a adauga la sfarsit.")
#DEFINE wdToggle           9999998
#DEFINE wdParagraph 4
    LOCAL loWord, loSelection, loDocument
    loWord = CREATEOBJECT("Word.Application")
    loWord.Visible = .T.

loDocument = loWord.Documents.Add("&fisierdoc")
loWord.Selection.endkey(6) &&5 sfarsit rand; 6 sfarsit document
loSelection = loWord.Selection
loSelection.TypeText("textul meu")
VFP 6 si 9 + Oracle
 12/28/2007 10:21:20 AM
User is offlinejoer
4 posts




Re: Append la sfarsitul unui fisier Word
 (N/A)
Multumes mult de tot
 9/29/2009 2:55:46 PM
User is offlinebsorinion
46 posts


Re: Append la sfarsitul unui fisier Word
 (N/A)

Salutare,

cum pot modifica secventa de cod de mai sus ca sa pot insera ceva in orice loc din documentul meu...

Adica sa am puse niste, de ex: [text1] si in locul etichetei sa pun o valoare automat din foxpro.

Multumesc anticipat!
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Office Automation  Append la sfars...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2007 Profox   Terms Of Use  Privacy Statement