Membuat Dokumen Word Menggunakan VB 6

Buat Form dengan 1 CommandButton, kemudian masukkan kode berikut :

Option Explicit
Public oApp As Object
Public oDoc As Object

Private Sub Command1_Click()
    CobaWord
End Sub

Private Sub CobaWord()
    Dim sBarang As String
    Dim sPengirim As String
    Dim sTanggal As String
    Set oApp = CreateObject("Word.Application")
    Set oDoc = oApp.Documents.Add
    sBarang = "GRP"
    sPengirim = "hohock"
    sTanggal = "Kamis, 31 Juli 2008"
    oApp.Selection.TypeText Text:="Telah diterima "
    oApp.Selection.Font.Bold = True
    oApp.Selection.TypeText Text:=sBarang
    oApp.Selection.Font.Bold = False
    oApp.Selection.TypeText Text:=" dari "
    oApp.Selection.Font.Italic = True
    oApp.Selection.TypeText Text:=sPengirim
    oApp.Selection.Font.Italic = False
    oApp.Selection.TypeText Text:=" pada hari dan tanggal "
    oApp.Selection.Font.Underline = True
    oApp.Selection.TypeText Text:=sTanggal
    oApp.Selection.Font.Underline = False
    oApp.Visible = True
    Set oDoc = Nothing
    Set oApp = Nothing
End Sub

Kemudian Silahkan Anda jalankan program tersebut dengan mengklik CommandButton yang terdapat pada form. Selamat Mencoba.

Sumber : www.kaskus.us