25 Mei 2014

Konversi dokumen word ke PDF dengan Visual Basic NET

Kemarin kita sudah bermain Visual Basic NET dengan FTP Server. Sekarang mari kita bermain dengan ... thumbnail 1 summary

Kemarin kita sudah bermain Visual Basic NET dengan FTP Server. Sekarang mari kita bermain dengan PDF .
Walau pada Microsoft Office Word sudah bisa konversi ke PDF , tapi itu menyita waktu. Harus buka file word nya lalu konversi lagi. Bagaimana kita mengkonversikan file Word tersebut ke PDF tanpa membuka file word terlebih dahulu?

Alat tempur :
1. Visual Basic 2008 ++
2. Add Reference Microsoft Office Interop Word (kalau sudah install Office Word, berarti udah dapat komponennya )

Desain tampilan sederhana sekali :


Buat sebuah form dengan 2 label , 2 textbox  dan 3 button seperti di atas.
Tambahkan toolbox Openfiledialog dan Savefiledialog. Lalu ketikkan kode seperti di bawah ini :

Imports Microsoft.Office.Interop
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.OpenFileDialog1.Filter = "Document Word|*.doc;*.docx"
        If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.TextBox1.Text = Me.OpenFileDialog1.FileName
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.SaveFileDialog1.Filter = "PDF File|*.pdf"
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.TextBox2.Text = Me.SaveFileDialog1.FileName
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim mWord As New Word.Application
        Dim mWordDoc As Word.Document = mWord.Documents.Add(Me.TextBox1.Text)
        mWord.Visible = False
        mWordDoc = mWord.ActiveDocument
        mWordDoc.SaveAs(Me.TextBox2.Text, Word.WdSaveFormat.wdFormatPDF)
    End Sub
End Class
Sebelum menulis kode aksi konversi, diharapkan menambahkan import class Microsoft.Office.Interop untuk mengolah dokumen tersebut. 
- Untuk button pertama, adalah membuka file Word nya. Ada filter doc (Office 2000 dan 2003) dan docx (2007-2012), Setelah memilih dokumen, maka tampilkan nama file nya pada textbox1.
- Untuk button kedua, adalah memberikan perintah dimana letak file PDF nya, filter PDF aja yang dipakai. Lalu nama filenya ditampilkan pada textbox2
- Untuk button ketiga, di sini kita mengolah dokumen word tersebut menjadi sebuah PDF file. 
Inisialkan beberapa variable untuk aplikasi word.
Seperti yang anda lihat, disini ada kode mWord.Visible=False . itu fungsi agar aplikasi word tidak terlihat. Anda bisa mengubahnya menjadi True. 

Jika semua sudah dikenalkan, sekarang tahap konversi. mWordDoc mengambil file doc/docx textbox1 dikonversikan ke file PDF dengan lokasi outputnya textbox2

Seperti biasa, saya akan memberikan source code nya :)
Jangan lupa klik iklan di blog ini ya :)

Pekerjaan Mandiri :
Buat sebuah aplikasi agar dapat mengkonversikan banyak file dokumen word  dengan sekali klik