منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا اخوتي الكرام

لدي مشكله في تعديل الكود الخاص بالتعامل مع برنامج الوورد

بحيث ارجوا منكم مساعدتي في كم نقطه لو تكرمتم

تعديل الكود بحيث اريده ان يفتح ملف وورد موجود مسبقا

كذالك كيفية عمل save as للمستند وورد الذي قمت بالتعديل عليه

الكود هو

Set Mydoc = CreateObject("Word.Application")

Mydoc.Documents.Open App.Path & "\word.doc"

شاكر ومقدر لكم اعزائي

لفتح ملف:

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 

شاكر لك عزيزي تجاوبك معي

انا استخدم فيجوال بيسك 6 كوني لذا الاكواد اللي تفضلت بالتعديل عليها لم تعمل

اذا تقدر تفيدني بطريقة أخرى أكون شاكر لك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Ksa004

kslawy

Ksa004