+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجوا مساعدتي في تعديل الكود (/showthread.php?tid=10766)
ارجوا مساعدتي في تعديل الكود - Ksa004 - 23-11-14
مرحبا اخوتي الكرام
لدي مشكله في تعديل الكود الخاص بالتعامل مع برنامج الوورد
بحيث ارجوا منكم مساعدتي في كم نقطه لو تكرمتم
تعديل الكود بحيث اريده ان يفتح ملف وورد موجود مسبقا
كذالك كيفية عمل save as للمستند وورد الذي قمت بالتعديل عليه
الكود هو
Set Mydoc = CreateObject("Word.Application")
Mydoc.Documents.Open App.Path & "\word.doc"
شاكر ومقدر لكم اعزائي
RE: ارجوا مساعدتي في تعديل الكود - kslawy - 23-11-14
لفتح ملف:
PHP كود :
Dim ofd As OpenFileDialog = New OpenFileDialog()
ofd.Filter = "ملفات أوفيس|*.doc;*.docx"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Mydoc.Documents.Open(ofd.FileName)
End If
لحفظ ملف Save as:
PHP كود :
Dim sfd As SaveFileDialog = New SaveFileDialog()
sfd.Filter = "ملفات أوفيس|*.doc;*.docx"
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
Mydoc.SaveAs(sfd.FileName)
End If
RE: ارجوا مساعدتي في تعديل الكود - Ksa004 - 24-11-14
شاكر لك عزيزي تجاوبك معي
انا استخدم فيجوال بيسك 6 كوني لذا الاكواد اللي تفضلت بالتعديل عليها لم تعمل
اذا تقدر تفيدني بطريقة أخرى أكون شاكر لك