Cara mengotomatiskan Word dari Visual Basic .NET 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: 316383
Untuk versi Microsoft Visual C# .NET dari artikel ini, lihat 316384.
Untuk versi Microsoft Visual Basic 6.0 dari artikel ini, lihat 313193.
Ringkasan
Artikel ini selangkah demi selangkah menjelaskan cara membuat kumpulan dokumen baru di Word dengan menggunakan otomatisasi dari Visual Basic .NET.

Kode contoh

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 .NET, ikuti langkah-langkah berikut:
  1. Mulai Microsoft Visual Studio .NET. Pada Berkas Menu, klik Baru kemudian klik Proyek. Di bawah Jenis proyek Klik Proyek Visual Basic, kemudian klik Aplikasi Windows di bawah Pola dasar. Form1 dibuat secara asali.
  2. Menambahkan referensi ke pustaka objek Microsoft Word. Untuk melakukannya, ikuti langkah-langkah berikut:
    1. Pada Proyek Menu, klik Menambahkan referensi.
    2. Pada COM tab, temukan pustaka objek Microsoft Word Klik Pilih.

      Catatan Microsoft Office 2003 dan versi Office termasuk rakitan Interop primer (PIAs). Microsoft Office XP tidak mencakup PIAs, namun mereka dapat diunduh. Untuk informasi selengkapnya tentang Office XP PIAs, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
      328912 Microsoft Office XP rakitan interop primer (PIAs) tersedia untuk diunduh
    3. Klik OK dalam Menambahkan referensi kotak dialog untuk menerima pilihan Anda. Jika Anda menerima prompt untuk menghasilkan pembungkus perpustakaan yang dipilih, klik Ya.
  3. Pada Tampilan Menu, pilih Toolbox untuk menampilkan Toolbox, dan kemudian tambahkan tombol tekan toForm1.
  4. klik ganda Button1. Jendela kode untuk formulir muncul.
  5. Di jendela kode, ganti kode berikut
        Private Sub Button1_Click(ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles Button1.Click    End Sub
    dengan:
        Private Sub Button1_Click(ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles Button1.Click        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.        oWord = CreateObject("Word.Application")        oWord.Visible = True        oDoc = oWord.Documents.Add        'Insert a paragraph at the beginning of the document.        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.        oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)        oPara2.Range.Text = "Heading 2"        oPara2.Format.SpaceAfter = 6        oPara2.Range.InsertParagraphAfter()        'Insert another paragraph.        oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\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 and italic.        Dim r As Integer, c As Integer        oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\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.Item(1).Range.Font.Bold = True        oTable.Rows.Item(1).Range.Font.Italic = True        'Add some text after the table.        'oTable.Range.InsertParagraphAfter()        oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\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.        oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\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.Item(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2        oTable.Columns.Item(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.Item("\endofdoc").Range.InsertParagraphAfter()        Do            oRng = oDoc.Bookmarks.Item("\endofdoc").Range            oRng.ParagraphFormat.SpaceAfter = 6            oRng.InsertAfter("A line of text")            oRng.InsertParagraphAfter()        Loop While Pos >= oRng.Information(Word.WdInformation.wdVerticalPositionRelativeToPage)        oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)        oRng.InsertBreak(Word.WdBreakType.wdPageBreak)        oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)        oRng.InsertAfter("We're now on page 2. Here's my chart:")        oRng.InsertParagraphAfter()        'Insert a chart and change the chart.        oShape = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddOLEObject( _            ClassType:="MSGraph.Chart.8", FileName _            :="", LinkToFile:=False, DisplayAsIcon:=False)        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.        oRng = oDoc.Bookmarks.Item("\endofdoc").Range        oRng.InsertParagraphAfter()        oRng.InsertAfter("THE END.")        'All done. Close this form.        Me.Close()    End Sub
  6. Menambahkan kode berikut ke bagian atas Form1.vb:
    Imports Word = Microsoft.Office.Interop.Word
  7. Tekan F5 untuk membuat dan menjalankan program.
Setelah selesai kode, memeriksa 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.Item("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.Item("MyBookmark").Range.Style = "MyStyle"
-atau-
oWord.Selection.Style = "MyStyle"
Referensi
Untuk informasi selengkapnya tentang cara menggunakan Visual Basic .NET untuk mengotomatisasi Microsoft Word, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
301656 Cara mengotomatiskan Word untuk menggabungkan Surat dari Visual Basic .NET
Untuk informasi lebih lanjut, lihat situs web Microsoft Developer Network (MSDN) berikut:
word2002 word2k2 word10 wordxp wd2002 wd2k2 wd10 wdxp word2003 word2k3 word11 wd2003 wd2k3 wd11 word2007 word2k7 word12 wd2007 wd2k7 wd12

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 316383 - Tinjauan Terakhir: 07/03/2016 12:36:00 - Revisi: 4.0

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Office Word 2007, Microsoft Word 2002, Microsoft Word 2010, Microsoft Visual Basic 2005, Microsoft Visual Basic 2005 Express Edition, Microsoft Visual Basic 2008 Express Edition, Microsoft Visual Basic 2010 Express

  • kbexpertiseinter kbautomation kbhowtomaster kbmt KB316383 KbMtid
Tanggapan