من الفوكس نحو الوورد WORD

الابن العزيز جرب البرنامج التالى http://weblogs.foxite.com/files/vfpimaging/frx2word/frx2word.zip

alaaqasem كتب:

الابن العزيز جرب البرنامج التالى http://weblogs.foxite.com/files/vfpimaging/frx2word/frx2word.zip

الموضوع ليس صعبا وكل ما عليك هو القراءة لوجود الكثير من التفاصيل

اما عن انشاء ملف ونسخ البيانات فجرب التالي

جرب التالي في برنامج صغير

create cursor Test (pkID int(4) autoinc , cName c(30), cTitle c(10))
for i = 1 to 20
	insert into Test (cName, cTitle) values;
		("الاسم :"+ transform(i) , "الموضوع :"+ transform(i) )
next
go top

* انشاء تطبيق وورد
oWord = createobject("Word.Application")
* انشاء صفحة
oDoc=oWord.Documents.add()

* تعريف المدى المراد التعامل معه
oRange = oDoc.range()
go top
scan
	with oRange
		.InsertAfter( transform(pkID) + chr(9))
		.InsertAfter( cName + chr(9) )
		.InsertAfter(  cTitle + chr(13))
	endwith
endscan

oWord.visible= .t.

autoword.rarالسلام عليكم

شكرا للجميع على هذه المعلومات القيمة

لدي لكن لدي بعض الأسئلة : و هي كما في البرنامج المرفق

لسلام عليكم

لكن لدي بعض الأسئلة : و هي كما في البرنامج المرفق

autoword.rar