تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعدة في التعامل مع كود
#1
اخواني الكرام من خلال بحثي عن كيفية تحويل ملف وورد الى ملف 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
Angel  الحياة فترة اختبار , إما أن تكون او لاتكون  Rolleyes  
لن امل من البحث  ولن امل من السؤال
[b]رواد المعلوميات[/b]
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("Word filename Path")
End Sub 
الرد
#3
(03-09-19, 12:30 AM)asemshahen5 كتب :
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("Word filename Path")
End Sub 
بالنسبة لهذا الكود ما هي طريقته في ايجاد ملفات الوورد
Angel  الحياة فترة اختبار , إما أن تكون او لاتكون  Rolleyes  
لن امل من البحث  ولن امل من السؤال
[b]رواد المعلوميات[/b]
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#4
الطريقة التي تجعلني أقوم بعملية الاستدعاء للدالة :

أولا أضف زر امر ليكن اسمه 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 
الرد
تم الشكر بواسطة: الرائد , الرائد , ابراهيم ايبو
#5
(03-09-19, 12:30 AM)asemshahen5 كتب :
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("Word filename Path")
End Sub 
بالنسبة لهذا الكود ما هي طريقته في ايجاد ملفات الوورد
Angel  الحياة فترة اختبار , إما أن تكون او لاتكون  Rolleyes  
لن امل من البحث  ولن امل من السؤال
[b]رواد المعلوميات[/b]
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
    ConvertWordToPDF
("مسار ملف الوورد")
End Sub 
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم