[Ksa004]

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

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

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


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

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



الكود هو

   Set Mydoc = CreateObject("Word.Application")

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



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

[kslawy]

لفتح ملف:

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 


[Ksa004]

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

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

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