Make word automation by vfp

Make the word report by VFP.... (Hope can be help others)

oWord = CREATEOBJECT("Word.Application")
oWord.Documents.Add
owRange = oWord.Activedocument.Range()
oWord.Selection.TypeText(CHR(13))
woTable = oWord.Activedocument.Tables.Add(owRange, 5, 5)
oWord.Selection.Font.Reset

oWord.Selection.TypeText("PT SAMPOERNA AGRO Tbk")
oWord.Selection.SelectRow
oWord.Selection.ParagraphFormat.Alignment = 1
oWord.Selection.Font.Name = "Arial"
oWord.Selection.Font.Size = 30
oWord.Selection.Font.Bold = .T.
oWord.Selection.SelectRow
oWord.Selection.Cells.Merge
oWord.Selection.MoveRight(12)

WITH oWord
For Each aTable In .ActiveDocument.Tables && Format all tables.
aTable.Borders(-1).LineStyle = 1 && Top border.
aTable.Borders(-2).LineStyle = 1 && Left
aTable.Borders(-3).LineStyle = 1 && Bottom
aTable.Borders(-4).LineStyle = 1 && Right
aTable.Borders(-5).LineStyle = 1 && Horizontal
aTable.Borders(-6).LineStyle = 1 && Vertical
aTable.Borders.Shadow = 0
ENDFOR
ENDWITH
oword.activedocument.SaveAs("c:\temp\8160.doc")
loRange.InsertAfter("JALAN BASUKI RAHMAT NO. 788 PALEMBANG 30127, SUMATERA SELATAN - INDONESIA")
loRange.Paragraphs(2).Range.InsertParagraphafter
loRange.Paragraphs(2).Range.FONT.SIZE = 11
loRange.Paragraphs(2).Range.FONT.BOLD = 0
loRange.Paragraphs(2).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(2).space1

loRange.InsertAfter("Tel.(0711)813388(Hunting) - Fax(0711)811585")
loRange.Paragraphs(3).Range.InsertParagraphafter
loRange.Paragraphs(3).Range.FONT.SIZE = 10
loRange.Paragraphs(3).Range.FONT.BOLD = 0
loRange.Paragraphs(3).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(3).space1

loRange.InsertAfter("_____________________________________________________________________________________")
loRange.Paragraphs(4).Range.InsertParagraphafter
loRange.Paragraphs(4).Range.FONT.SIZE = 10
loRange.Paragraphs(4).Range.FONT.BOLD = 0
loRange.Paragraphs(4).Range.FONT.UNDERLINE = 1
loRange.Paragraphs(4).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(4).space1

loRange.InsertAfter("SURAT KEPUTUSAN")
loRange.Paragraphs(5).Range.InsertParagraphafter
loRange.Paragraphs(5).Range.FONT.SIZE = 16
loRange.Paragraphs(5).Range.FONT.BOLD = 1
loRange.Paragraphs(5).Range.FONT.UNDERLINE = 1
loRange.Paragraphs(5).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(5).space1

loRange.InsertAfter("No. 032/HRD/SK/M/VII/2007")
loRange.Paragraphs(6).Range.InsertParagraphafter
loRange.Paragraphs(6).Range.FONT.SIZE = 12
loRange.Paragraphs(6).Range.FONT.BOLD = 0
loRange.Paragraphs(6).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(6).space1

loRange.InsertAfter("Tentang")
loRange.Paragraphs(7).Range.InsertParagraphafter
loRange.Paragraphs(7).Range.FONT.SIZE = 11
loRange.Paragraphs(7).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(7).space1

loRange.InsertAfter("MUTASI STAF")
loRange.Paragraphs(8).Range.InsertParagraphafter
loRange.Paragraphs(8).Range.FONT.SIZE = 14
loRange.Paragraphs(8).Range.FONT.BOLD = 1
loRange.Paragraphs(8).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(8).space1

loRange.InsertAfter(" ")
loRange.Paragraphs(9).Range.InsertParagraphafter
loRange.Paragraphs(9).Range.FONT.SIZE = 12
loRange.Paragraphs(9).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(9).space1

loRange.InsertAfter("Menimbang"+ CHR(9))
loRange.InsertAfter(":" + CHR(9))
loRange.InsertAfter(" Bahwa dalam rangka penyempurnaan organisasi perusahaan dan membenahi formasi tenaga kerja di Kebun Himah IV PT TELAGA HIKMAH")
loRange.Paragraphs(10).Range.InsertParagraphafter
loRange.Paragraphs(10).Range.FONT.SIZE = 12
loRange.Paragraphs(10).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(10).space1
*loRange.Paragraphs(10).TabHangingIndent(0.10)


loRange.InsertAfter(" ")
loRange.Paragraphs(11).Range.InsertParagraphafter
loRange.Paragraphs(11).Range.FONT.SIZE = 12
loRange.Paragraphs(11).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(11).space1

loRange.InsertAfter("Mengingat dan : ")
loRange.InsertAfter("1. Masa kerja saudara(NIK SA.GJBL.SA029) diperusahaan sejak 01/02/2007 dengan jabatan terakhir sebagai ASISTEN LAPANGAN KEBUN GADING JAYA PT SAMPOERNA AGRO Tbk")
loRange.Paragraphs(12).Range.InsertParagraphafter
loRange.Paragraphs(12).Range.FONT.SIZE = 12
loRange.Paragraphs(12).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(12).space1
loRange.Paragraphs(12).TabHangingIndent(2.51)

loRange.InsertAfter("2. Syarat-syarat kerja yang dibutuhkan pada posisi/jabatan yang ada di kebun Hikmah IV PT Telaga Hikmah")
loRange.Paragraphs(13).Range.InsertParagraphafter
loRange.Paragraphs(13).Range.FONT.SIZE = 12
loRange.Paragraphs(13).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(13).space1
loRange.Paragraphs(13).TabIndent(2)
*loRange.Paragraphs(13).TabHangingIndent(2.51)

loRange.InsertAfter("3. Usulan yang telah disetujui manajemen")
loRange.Paragraphs(14).Range.InsertParagraphafter
loRange.Paragraphs(14).Range.FONT.SIZE = 12
loRange.Paragraphs(14).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(14).space1
loRange.Paragraphs(14).TabIndent(2)
*loRange.Paragraphs(14).TabHangingIndent(2.51)

loRange.InsertAfter(" ")
loRange.Paragraphs(15).Range.InsertParagraphafter
loRange.Paragraphs(15).Range.FONT.SIZE = 12
loRange.Paragraphs(15).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(15).space1

loRange.InsertAfter("MEMUTUSKAN")
loRange.Paragraphs(16).Range.InsertParagraphafter
loRange.Paragraphs(16).Range.FONT.SIZE = 12
loRange.Paragraphs(16).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(16).space1

loRange.InsertAfter(" ")
loRange.Paragraphs(17).Range.InsertParagraphafter
loRange.Paragraphs(17).Range.FONT.SIZE = 12
loRange.Paragraphs(17).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(17).space1

loRange.InsertAfter("Menetapkan : Terhitung mulai tanggal 01/08/2007")
loRange.Paragraphs(18).Range.InsertParagraphafter
loRange.Paragraphs(18).Range.FONT.SIZE = 12
loRange.Paragraphs(18).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(18).space1

loRange.InsertAfter("Saudara : FERRY KURNIAWAN")
loRange.Paragraphs(19).Range.InsertParagraphafter
loRange.Paragraphs(19).Range.FONT.SIZE = 12
loRange.Paragraphs(19).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(19).space1

loRange.InsertAfter("NIK : TH.H4BL.S002")
loRange.Paragraphs(20).Range.InsertParagraphafter
loRange.Paragraphs(20).Range.FONT.SIZE = 12
loRange.Paragraphs(20).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(20).space1

loRange.InsertAfter(" ")
loRange.Paragraphs(21).Range.InsertParagraphafter
loRange.Paragraphs(21).space1

loRange.InsertAfter("DI MUTASIKAN")
loRange.Paragraphs(22).Range.InsertParagraphafter
loRange.Paragraphs(22).Range.FONT.SIZE = 12
loRange.Paragraphs(22).Range.ParagraphFormat.Alignment = 1
loRange.Paragraphs(22).space1

loRange.InsertAfter("KE : KEBUN HIKMAH IV")
loRange.Paragraphs(23).Range.InsertParagraphafter
loRange.Paragraphs(23).Range.FONT.SIZE = 12
loRange.Paragraphs(23).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(23).space1
loRange.Paragraphs(23).TabIndent(2)


loRange.InsertAfter("Jabatan : ASISTEN LAPANGAN")
loRange.Paragraphs(24).Range.InsertParagraphafter
loRange.Paragraphs(24).Range.FONT.SIZE = 12
loRange.Paragraphs(24).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(24).space1
loRange.Paragraphs(24).TabIndent(2)

loRange.InsertAfter(" ")
loRange.Paragraphs(25).Range.InsertParagraphafter
loRange.Paragraphs(25).space1

loRange.InsertAfter("Tunjangan - tunjangan dan jaminan sosial diberikan dengan ketentuan peraturan perusahaan yang berlaku")
loRange.Paragraphs(26).Range.InsertParagraphafter
loRange.Paragraphs(26).Range.FONT.SIZE = 12
loRange.Paragraphs(26).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(26).space1
loRange.Paragraphs(26).TabIndent(2)

loRange.InsertAfter(" ")
loRange.Paragraphs(27).Range.InsertParagraphafter
loRange.Paragraphs(27).space1

loRange.InsertAfter("Keputusan ini berlaku terhitung mulai tanggal 01/08/2007 dan apabila dikemudian hari ternyata terdapat kekeliruan, akan diubah sebagai mana mestinya.")
loRange.Paragraphs(28).Range.InsertParagraphafter
loRange.Paragraphs(28).Range.FONT.SIZE = 12
loRange.Paragraphs(28).Range.ParagraphFormat.Alignment = 0
loRange.Paragraphs(28).space1
loRange.Paragraphs(28).TabIndent(2)
loWord.activedocument.SaveAs("c:\temp\8160.doc")


loWord.PrintOut() && langsung print ke printer secara otomatis
loWord.Quit()
release loRange, loWord