Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

Cara mengotomatisasi Microsoft Word menggunakan Visual Basic untuk membuat kumpulan dokumen baru

PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.

Klik disini untuk melihat versi Inggris dari artikel ini: 313193
Ringkasan
Artikel ini selangkah demi selangkah menjelaskan cara membuat kumpulan dokumen baru di Word dengan menggunakan otomatisasi dari Visual Basic.

Kode sampel

Kode contoh dalam artikel ini menunjukkan cara melakukan hal berikut ini:
  • Masukkan paragraf dengan teks dan format.
  • Jelajahi dan mengubah berbagai kisaran dalam adocument.
  • Menyisipkan Daftar Tabel, format Daftar Tabel, dan mengisi withdata Daftar Tabel.
  • Tambahkan bagan.
Untuk membuat kumpulan dokumen Word baru dengan menggunakan otomatisasi dari Visual Basic, ikuti langkah-langkah berikut:
  1. Dalam Visual Basic, buat projek Standard EXE yang baru. Form1is dibuat secara asali.
  2. Pada Project menu, klikreferensi, klik salah satu dari opsi berikut ini, dan kemudian klik OK:
    • Untuk Office Word 2007, klik pustaka objek Microsoft Word 12.0
    • Untuk Word 2003, klik pustaka objek Microsoft Word 11.0.
    • Untuk Word 2002, klik pustaka objek Microsoft Word 10.0.
    • Untuk Word 2000, klik pustaka objek Microsoft Word 9.0.
  3. Menambahkan kontrol CommandButton pada Form1.
  4. Tambahkan kode berikut untuk klik acara untuk Command1:
        Dim oWord As Word.Application    Dim oDoc As Word.Document    Dim oTable As Word.Table    Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph    Dim oPara3 As Word.Paragraph, oPara4 As Word.Paragraph    Dim oRng As Word.Range    Dim oShape As Word.InlineShape    Dim oChart As Object    Dim Pos as Double    'Start Word and open the document template.    Set oWord = CreateObject("Word.Application")    oWord.Visible = True    Set oDoc = oWord.Documents.Add        'Insert a paragraph at the beginning of the document.    Set oPara1 = oDoc.Content.Paragraphs.Add    oPara1.Range.Text = "Heading 1"    oPara1.Range.Font.Bold = True    oPara1.Format.SpaceAfter = 24    '24 pt spacing after paragraph.    oPara1.Range.InsertParagraphAfter        'Insert a paragraph at the end of the document.    '** \endofdoc is a predefined bookmark.    Set oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)    oPara2.Range.Text = "Heading 2"    oPara2.Format.SpaceAfter = 6    oPara2.Range.InsertParagraphAfter        'Insert another paragraph.    Set oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)    oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:"    oPara3.Range.Font.Bold = False    oPara3.Format.SpaceAfter = 24    oPara3.Range.InsertParagraphAfter        'Insert a 3 x 5 table, fill it with data and make the first row    'bold,italic.    Dim r As Integer, c As Integer    Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 3, 5)    oTable.Range.ParagraphFormat.SpaceAfter = 6    For r = 1 To 3        For c = 1 To 5            oTable.Cell(r, c).Range.Text = "r" & r & "c" & c        Next    Next    oTable.Rows(1).Range.Font.Bold = True    oTable.Rows(1).Range.Font.Italic = True        'Add some text after the table.    'oTable.Range.InsertParagraphAfter    Set oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)    oPara4.Range.InsertParagraphBefore    oPara4.Range.Text = "And here's another table:"    oPara4.Format.SpaceAfter = 24    oPara4.Range.InsertParagraphAfter        'Insert a 5 x 2 table, fill it with data and change the column widths.    Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 5, 2)    oTable.Range.ParagraphFormat.SpaceAfter = 6    For r = 1 To 5        For c = 1 To 2            oTable.Cell(r, c).Range.Text = "r" & r & "c" & c        Next    Next    oTable.Columns(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2.    oTable.Columns(2).Width = oWord.InchesToPoints(3)        'Keep inserting text. When you get to 7 inches from top of the    'document, insert a hard page break.    Pos = oWord.InchesToPoints(7)    oDoc.Bookmarks("\endofdoc").Range.InsertParagraphAfter    Do        Set oRng = oDoc.Bookmarks("\endofdoc").Range        oRng.ParagraphFormat.SpaceAfter = 6        oRng.InsertAfter "A line of text"        oRng.InsertParagraphAfter    Loop While Pos >= oRng.Information(wdVerticalPositionRelativeToPage)    oRng.Collapse (wdCollapseEnd)    oRng.InsertBreak wdPageBreak    oRng.Collapse wdCollapseEnd    oRng.InsertAfter "We're now on page 2. Here's my chart:"    oRng.InsertParagraphAfter        'Insert a chart and change the chart.    Set oShape = oDoc.Bookmarks("\endofdoc").Range.InlineShapes.AddOLEObject( _        ClassType:="MSGraph.Chart.8", FileName _        :="", LinkToFile:=False, DisplayAsIcon:=False)    Set oChart = oShape.OLEFormat.Object    oChart.charttype = 4 'xlLine = 4    oChart.Application.Update    oChart.Application.Quit    '... If desired, you can proceed from here using the Microsoft Graph     'Object model on the oChart object to make additional changes to the    'chart.    oShape.Width = oWord.InchesToPoints(6.25)    oShape.Height = oWord.InchesToPoints(3.57)        'Add text after the chart.    Set oRng = oDoc.Bookmarks("\endofdoc").Range    oRng.InsertParagraphAfter    oRng.InsertAfter "THE END."    'All done. Unload this form.    Unload Me					
  5. Tekan F5 untuk menjalankan program, kemudian klik Command1.
Setelah selesai kode, periksa kumpulan dokumen yang dibuat untuk Anda. kumpulan dokumen memuat halaman dua paragraf diformat, Daftar Tabel dan elemen bagan.

Menggunakan pola dasar

Jika Anda menggunakan otomatisasi untuk membuat kumpulan dokumen yang ada dalam format yang umum, Anda dapat memanfaatkan memulai proses dengan kumpulan dokumen baru yang didasarkan pada template sudah terformat. Menggunakan template dengan klien Otomasi Word Anda memiliki dua keuntungan yang signifikan melalui membuat kumpulan dokumen dari tidak ada:
  • Anda dapat memiliki kontrol lebih besar terhadap andplacement format objek seluruh kumpulan dokumen.
  • Anda dapat membuat kumpulan dokumen dengan sedikit kode.
Dengan menggunakan pola dasar, Anda dapat menyempurnakan penempatan Daftar Tabel, paragraf, dan objek lain dalam kumpulan dokumen, serta termasuk pemformatan pada objek tersebut. Dengan menggunakan otomatisasi, Anda dapat membuat kumpulan dokumen baru berdasarkan template Anda dengan kode seperti berikut:
oWord.Documents.Add "<Path to your template>\MyTemplate.dot"				
Dalam template Anda, Anda dapat menentukan bookmark sehingga klien Otomasi Anda dapat mengisi variabel teks di lokasi tertentu di kumpulan dokumen, sebagai berikut:
oDoc.Bookmarks("MyBookmark").Range.Text = "Some Text Here"				
Keuntungan lain menggunakan pola dasar adalah bahwa Anda dapat membuat dan menyimpan format gaya yang ingin Anda terapkan saat menjalankan, sebagai berikut:
oDoc.Bookmarks("MyBookmark").Range.Style = "MyStyle"				
-atau-
oWord.Selection.Style = "MyStyle"				
Referensi
Untuk informasi tambahan, klik nomor artikel di bawah ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
220607 Cara mengotomatisasi Microsoft Word untuk menggabungkan Surat dari Visual Basic
285332 Cara mengotomatiskan Word 2002 dengan Visual Basic untuk membuat gabungan surat
285333 INFO: Word 2002 MailMerge peristiwa kode demonstrasi
Untuk informasi lebih lanjut, lihat situs web Microsoft Developer Network (MSDN) berikut:
Pengembangan Microsoft Office dengan Visual Studio
http://msdn2.Microsoft.com/en-US/Library/aa188489 (office.10).aspx
(c) Microsoft Corporation 2001, Semua hak dilindungi undang-undang. Kontribusi oleh Lori B. Turner, Microsoft Corporation.

WD2007

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 313193 - Tinjauan Terakhir: 10/04/2015 22:08:00 - Revisi: 3.0

Microsoft Visual Basic 6.0 Professional Edition, Microsoft Office Word 2007, Microsoft Word 2002, Microsoft Word 2000

  • kbexpertiseinter kbautomation kbhowtomaster kbmt KB313193 KbMtid
Tanggapan
;did=1&t=">