- Pertama-tama kita mengetik di microsoft seperti di bawah ini dan masukkan bookmark dengan sesuai format yang diketik tadi.
- Buat form di VB sesuai dengan yang di ketik pada microsoft word :
- Selanjutnya kita menginsert add reference pada form berikut ini :
- Langkah berikutnya kita akan membuat koding seperti ini :
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim myexcelApp As New excel.Application
Dim myExcelbook As excel.Workbook
TextBox5.Text = (Convert.ToInt32(TextBox2.Text) + Convert.ToInt32(TextBox3.Text) + Convert.ToInt32(TextBox4.Text))
myExcelbook = myexcelApp.Workbooks.Open("C:\book1.xlsx")
myexcelApp.Range("A2").Value = TextBox1.Text
myexcelApp.Range("B2").Value = TextBox2.Text
myexcelApp.Range("C2").Value = TextBox3.Text
myexcelApp.Range("D2").Value = TextBox4.Text
myexcelApp.Range("E2").Value = TextBox5.Text
myexcelApp.Visible = True
myexcelApp.Quit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myWordApp As New word.Application
Dim myWordDoc As New word.Document
TextBox5.Text = (Convert.ToInt32(TextBox2.Text) + Convert.ToInt32(TextBox3.Text) + Convert.ToInt32(TextBox4.Text))
myWordDoc = myWordApp.Documents.Open("C:\kepada1.docx")
myWordDoc.SaveAs("C:\kepada1.docx")
myWordDoc.Bookmarks("cus").Select()
myWordApp.Selection.TypeText(TextBox1.Text)
myWordDoc.Bookmarks("gajipegawai").Select()
myWordApp.Selection.TypeText(TextBox2.Text)
myWordDoc.Bookmarks("tunjangananak").Select()
myWordApp.Selection.TypeText(TextBox3.Text)
myWordDoc.Bookmarks("tunjanganistri").Select()
myWordApp.Selection.TypeText(TextBox4.Text)
myWordDoc.Bookmarks("total").Select()
myWordApp.Selection.TypeText(TextBox5.Text)
myWordDoc.SaveAs("c:\kepada1.docx")
myWordApp.Visible = True
myWordApp.Quit()
End Sub
End Class
Kita telah berhasil menyelesaikan tugas ini.