[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