[VB.NET] โค้ดการ Convert แปลงไฟล์ MS Word ให้เป็น PDF จากของฟรีค่าย Syncfusion

thongkorn

โค้ดการ Convert แปลงไฟล์ MS Word ให้เป็น PDF จากของฟรีค่าย Syncfusion ... สำหรับภาษาอังกฤษทำได้ค่อนข้างสมบูรณ์แบบ แต่ภาษาไทยจะมีปัญหาเรื่องของการตัดคำในแต่พารากราฟครับผม ...





Add References ... กรณีที่ Syncfusion ต่างเวอร์ชั่นกัน จะได้เอาไว้ดูเปรียบเทียบ ...

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports Syncfusion.Pdf
   
2. Imports Syncfusion.DocIO.DLS
   
3. Imports Syncfusion.DocIO
   
4. Imports Syncfusion.DocToPDFConverter
   
5. Imports Syncfusion.OfficeChart
   
6. Imports Syncfusion.OfficeChartToImageConverter
   
7. Imports System.IO
   
8. 
   
9. Public Class frmDoc2Pdf
   
10. 
    
11.     Private strFileName As String
    
12. 
    
13.     Private Sub btnWordDoc_Click(sender As System.Object, e As System.EventArgs) Handles btnWordDoc.Click
    
14.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
15.         ' / Open File Dialog
    
16.         With dlgOpenFile
    
17.             .InitialDirectory = MyPath(Application.StartupPath) & "Doc"
    
18.             .Title = "เลือกไฟล์เอกสาร Word Document"
    
19.             .Filter = "Document (*.doc;*.docx)|*.doc;*.docx"
    
20.             .FilterIndex = 1
    
21.             .RestoreDirectory = True
    
22.         End With
    
23.         '/ Select OK after Browse ...
    
24.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
25.             txtFileName.Text = dlgOpenFile.FileName
    
26.             strFileName = Path.GetFileNameWithoutExtension(dlgOpenFile.FileName)
    
27.             'btnConvert.Focus()
    
28.             Call btnConvert_Click(sender, e)
    
29.         End If
    
30.     End Sub
    
31. 
    
32.     ' / --------------------------------------------------------------------------------
    
33.     ' / Convert MS Word to PDF.
    
34.     ' / --------------------------------------------------------------------------------
    
35.     Private Sub btnConvert_Click(sender As System.Object, e As System.EventArgs) Handles btnConvert.Click
    
36.         If txtFileName.Text.Trim.Length = 0 Then Return
    
37.         Dim dlgSaveFile As New SaveFileDialog()
    
38.         With dlgSaveFile
    
39.             .Filter = "PDF|*.pdf"
    
40.             .Title = "Export to PDF File"
    
41.             .DefaultExt = "pdf"
    
42.             .InitialDirectory = MyPath(Application.StartupPath) & "Doc"
    
43.             .RestoreDirectory = True
    
44.             .FileName = strFileName
    
45.         End With
    
46.         If dlgSaveFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    
47.             '/ Loads an existing Word document.
    
48.             Dim wordDocument As New WordDocument(txtFileName.Text, FormatType.Docx)
    
49.             '/ Initializes the ChartToImageConverter for converting charts during Word to pdf conversion.
    
50.             wordDocument.ChartToImageConverter = New ChartToImageConverter()
    
51.             '/ Sets the scaling mode for charts (Normal mode reduces the Pdf file size).
    
52.             wordDocument.ChartToImageConverter.ScalingMode = ScalingMode.Normal
    
53.             '/ Creates an instance of the DocToPDFConverter - responsible for Word to PDF conversion.
    
54.             Dim converter As New DocToPDFConverter()
    
55.             '/ Sets true to embed TrueType fonts.
    
56.             converter.Settings.EmbedFonts = True
    
57.             '/ Sets true to embed complete TrueType fonts.
    
58.             converter.Settings.EmbedCompleteFonts = True
    
59.             '/ Sets true to enable the fast rendering using direct PDF conversion.
    
60.             converter.Settings.EnableFastRendering = True
    
61.             '/ Converts Word document into PDF document.
    
62.             Dim pdfDocument As PdfDocument = converter.ConvertToPDF(wordDocument)
    
63. 
    
64.             '/ Save the document.
    
65.             Dim pdfFile As String = dlgSaveFile.FileName
    
66.             pdfDocument.Save(pdfFile)
    
67.             pdfDocument.Close(True)
    
68.             wordDocument.Close()
    
69.             '/ Load PDF into PDFViewerControl.
    
70.             Me.PdfViewerControl1.Load(pdfFile, "")
    
71.         End If
    
72. 
    
73.     End Sub
    
74. 
    
75.     Private Sub txtFileName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFileName.KeyPress
    
76.         ' / Prevents pressing any keys.
    
77.         e.Handled = True
    
78.     End Sub
    
79. 
    
80.     Private Sub frmDoc2Pdf_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
81.         Me.Dispose()
    
82.         GC.SuppressFinalize(Me)
    
83.         Application.Exit()
    
84.     End Sub
    
85. 
    
86. #Region "FUNCTION"
    
87.     Function MyPath(ByVal AppPath As String) As String
    
88.         '/ Return Value
    
89.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
    
90.         '// If not found folder then put the \ (BackSlash) at the end.
    
91.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
92.     End Function
    
93. #End Region
    
94. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...