منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مساعدة في التعامل مع كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31187)



مساعدة في التعامل مع كود - الرائد - 02-09-19

اخواني الكرام من خلال بحثي عن كيفية تحويل ملف وورد الى ملف pdf وجدت كود يعمل ملفات الاوفيس ابتداءا من الاصدار 2007 
لكن مشكلتي هي كيفية استخدام هذا الكود والتعامل معه ExportAsFixedFormat 
ما الطريقة التي تجعلني أقوم بعملية الاستدعاء لهذه الدالة 
كود :
 Private Sub ConvertWordToPDF(ByVal filename As String)
       Dim wordApplication As New Microsoft.Office.Interop.Word.Application
       Dim wordDocument As Microsoft.Office.Interop.Word.Document = Nothing
       Dim outputFilename As String

       Try
           wordDocument = wordApplication.Documents.Open(filename)
           outputFilename = System.IO.Path.ChangeExtension(filename, "pdf")

           If Not wordDocument Is Nothing Then
               wordDocument.ExportAsFixedFormat(outputFilename, Microsoft.Office.Interop.Word.WdExportFormat.wdExportFormatPDF, True, Microsoft.Office.Interop.Word.WdExportOptimizeFor.wdExportOptimizeForOnScreen, Microsoft.Office.Interop.Word.WdExportRange.wdExportAllDocument, 0, 0, Microsoft.Office.Interop.Word.WdExportItem.wdExportDocumentContent, True, True, Microsoft.Office.Interop.Word.WdExportCreateBookmarks.wdExportCreateNoBookmarks, True, True, False)
           End If
       Catch ex As Exception
           'TODO: handle exception
       Finally
           If Not wordDocument Is Nothing Then
               wordDocument.Close(False)
               wordDocument = Nothing
           End If

           If Not wordApplication Is Nothing Then
               wordApplication.Quit()
               wordApplication = Nothing
           End If
       End Try

   End Sub



RE: مساعدة في التعامل مع كود - asemshahen5 - 03-09-19

PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("Word filename Path")
End Sub 



RE: مساعدة في التعامل مع كود - الرائد - 03-09-19

(03-09-19, 12:30 AM)asemshahen5 كتب :
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("Word filename Path")
End Sub 
بالنسبة لهذا الكود ما هي طريقته في ايجاد ملفات الوورد


RE: مساعدة في التعامل مع كود - asemshahen5 - 03-09-19

الطريقة التي تجعلني أقوم بعملية الاستدعاء للدالة :

أولا أضف زر امر ليكن اسمه Button5 و ضع الكود التالي به :

PHP كود :
   Private Sub Button5_Click(sender As ObjectAs EventArgsHandles Button5.Click
        Dim OpenDoc 
As New OpenFileDialog
        OpenDoc
.Filter "Microsoft Office Word 97-2003 Document(*.doc)|*.doc|Microsoft Office Word 2007-2019 Document(*.docx)|*.docx"
 
       If OpenDoc.ShowDialog Windows.Forms.DialogResult.OK Then
            ConvertWordToPDF
(OpenDoc.FileName)
 
       End If
 
   End Sub 

طبعا انت واضع كودك في الفورم :

PHP كود :
   Private Sub ConvertWordToPDF(ByVal filename As String)
 
       Dim wordApplication As New Microsoft.Office.Interop.Word.Application
        Dim wordDocument 
As Microsoft.Office.Interop.Word.Document Nothing
        Dim outputFilename 
As String
        Try
            wordDocument 
wordApplication.Documents.Open(filename)
 
           outputFilename System.IO.Path.ChangeExtension(filename"pdf")
 
           If Not wordDocument Is Nothing Then
                wordDocument
.ExportAsFixedFormat(outputFilenameMicrosoft.Office.Interop.Word.WdExportFormat.wdExportFormatPDFTrueMicrosoft.Office.Interop.Word.WdExportOptimizeFor.wdExportOptimizeForOnScreenMicrosoft.Office.Interop.Word.WdExportRange.wdExportAllDocument00Microsoft.Office.Interop.Word.WdExportItem.wdExportDocumentContentTrueTrueMicrosoft.Office.Interop.Word.WdExportCreateBookmarks.wdExportCreateNoBookmarksTrueTrueFalse)
 
           End If
 
           MsgBox("Winn.......")
 
       Catch ex As Exception
            MsgBox
("Error : " ex.Message)
 
           'TODO: handle exception'
 
       Finally
            If Not wordDocument Is Nothing Then
                wordDocument
.Close(False)
 
               wordDocument Nothing
            End 
If
 
           If Not wordApplication Is Nothing Then
                wordApplication
.Quit()
 
               wordApplication Nothing
            End 
If
 
       End Try
 
   End Sub 



RE: مساعدة في التعامل مع كود - الرائد - 04-09-19

(03-09-19, 12:30 AM)asemshahen5 كتب :
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("Word filename Path")
End Sub 
بالنسبة لهذا الكود ما هي طريقته في ايجاد ملفات الوورد


RE: مساعدة في التعامل مع كود - asemshahen5 - 04-09-19

PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("مسار ملف الوورد")
End Sub