ربط ملف وورد ببرنامج بالفيجوال بيسك

يمكنك قراءة ملف الوورد بالطريقة التالية:

Dim A As String
Dim FullText As String
Open "FileName" For Input As #1
Do Until EOF(1)
Input #1,A
FullText=FullText + A
Loop
Close #1

وبهذا أصبح لديك الملف كاملاً، موضوعاً في المتغير FullText ، لتنقله إلى مجلد ما، يمكنك كتابة:

Dim Path As String
Path=App.Path
If Right(Path,1)<>"\" Then Path=Path + "\"
Path=Path + "Third High"
MkDir(Path)

'إلى هنا صنعنا المجلد الذي نريد وضع ملف الوورد بداخله، والآن نصنع الملف.
Open Path + "\MyWord.doc" For OutPut As #1
print #1,FullText
Close #1

للاطلاع على التعامل مع الملفات، راجع درس الأخت بنت اليمن

إن شاء الله ما يكون قصدك إنك تغش!!!

بســم الله الـرحمــن الرحيــم

الأخ الفاضل يرجى توضيح السؤال بمثال حتى تحصل على الإجابة الوافية وعموما اذا كنت تقصد فتح الملف وحفظه فى متغير او لتخزينه فى قاعدة بيانات فقد اجاب الأخ Abboodd على سؤالك اما اذا كنت تقصد اعداة تنظيم الملفات بحيث يتم تغير اسم ملف الورد وتغغير مكانه ووضعه فى مجلد معين فإليك هذه الأكواد

لإنشاء مجلد جديد 
on error resume next
mkdir "d:\Examin3"


لنسخ ملف مع تغيير اسمه

on error resume next
filecopy "مسارالملف\اسم الملف"  , "المسار الجديد\اسم الملف الجديد"

لتغيير اسم الملف 

on error resume next
name "مسارالملف\اسم الملف" as "المسار الجديد\اسم الملف الجديد"

السلام عليكم ورحمة الله وبركاته

اولاً أشكر الأخ Abboodd على تكرمه بالرد على سؤالي

كما أشكر الأخ عبدالفتاح حسن على تكرمه بالرد على سؤالي

وأشكر كل أعضاء الفريق العربي على الأهتمام بهذا الموقع

كل ما أريد هو جلب ملف من خارج البرنامج الى برنامجي الذي صممته بالفيجوال بيسك (ملف وورد عبارة عن أسئلة للفصل الأول أو الثاني أو الدورالثاني ) وتغيير اسمه وتخزينه في قاعدة بيانات واستدعاء هذا الملف عن الحاجة لذلك

مثال

ملف وورد اسئلة رياضيات الفصل الأول ..استدعاء الملف من البرنامج تغيير اسم الملف تخزينه في قاعدة بيانات استدعائه من قاعدة البيانات .

وشكراً لكم :D

المنااادي كتب:

كل ما أريد هو جلب ملف من خارج البرنامج الى برنامجي الذي صممته بالفيجوال بيسك (ملف وورد عبارة عن أسئلة للفصل الأول أو الثاني أو الدورالثاني ) وتغيير اسمه وتخزينه في قاعدة بيانات واستدعاء هذا الملف عن الحاجة لذلك

المشكلة كلها تتلخص في هذين السطرين ، أي كيف يمكن التفريق بين أسئلة الفصل الأول من أسئلة الفصل الثاني ؟

هذا يستدعي فتح الملف عن طريق كائن Word ثم قراءة محتويات السطور الأولى من الملف ، وبناء على ذلك يتم عمل المطلوب ..

هل يمكنك إرفاق مثال لأحد ملفات الأسئلة ؟