Contoh-contoh makro VBA untuk menyisipkan teks ke dalam dokumen di Word 2000

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 212682 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Word 98 Macintosh Edition artikel ini, lihat 183866.
Untuk versi Microsoft Word 97 artikel ini, lihat 161407.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menyediakan beberapa Visual Basic untuk aplikasi makro contoh yang menggunakan Seleksi properti dan Kisaran objek untuk menyisipkan teks ke dalam dokumen.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Menggunakan seleksi objek dan metode TypeText

Menyisipkan teks tertentu. Jika ReplaceSelection properti Benar, the seleksi digantikan oleh teks tertentu. Jika ReplaceSelection properti adalah Palsu, teks tertentu dimasukkan sebelum pemilihan.

Untuk informasi lebih lanjut tentang ReplaceSelection properti, di Editor Visual Basic, klik Microsoft Visual Basic bantuan pada Bantuan menu, jenis ReplaceSelection properti di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik.
Sub TypeTextMethod()
  Dim MyText As String
  MyText = "<Replace this with your text>"
  Selection.TypeText (MyText)
End Sub
				

Menggunakan berbagai objek

Contoh berikut menggantikan seluruh isi dokumen dengan kata "Ganti" terlepas dari posisi titik penyisipan saat ini.

Sub RangeProperty()
  ' Range Example:
  ActiveDocument.Range.Text = "Replaced"
End Sub
				

Menggunakan berbagai atau seleksi objek dengan metode InsertAfter/InsertBefore

InsertAfter metode contoh:

Menyisipkan teks tertentu pada akhir dari kisaran atau pilihan.
Sub InsertAfterMethod()
  Dim MyText As String
  Dim MyRange As Object
  Set MyRange = ActiveDocument.Range
  MyText = "<Replace this with your text>"
  ' Selection Example:
  Selection.InsertAfter (MyText)
  ' Range Example:
  ' (Inserts text at the current position of the insertion point.)
  MyRange.Collapse
  MyRange.InsertAfter (MyText)
End Sub
				
InsertBefore metode contoh:

Menyisipkan teks tertentu pada awal kisaran atau pilihan. Setelah metode ini diterapkan, rentang atau pilihan meluas hingga baru teks.
Sub InsertBeforeMethod()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   MyText = "<Replace this with your text>"
   ' Selection Example:
   Selection.InsertBefore (MyText)
   ' Range Example: Inserts text at the beginning
   ' of the active document.
   MyRange.InsertBefore (MyText)
End Sub
				

Memasukkan komentar ke dalam dokumen menggunakan berbagai atau seleksi objek

Menyisipkan komentar pada posisi saat ini titik penyisipan.
Sub CommentsCollectionObject()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   MyText = "<Replace this with your text>"
  ' Selection Example:
  Selection.Comments.Add Range:=Selection.Range, Text:=MyText
  ' Range Example:
  MyRange.Comments.Add Range:=Selection.Range, Text:=MyText
End Sub
				

Memasukkan lapangan ke dalam dokumen menggunakan berbagai atau seleksi objek

Menyisipkan lapangan di posisi titik penyisipan saat ini.
Sub FieldsCollectionObject()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = Selection.Range
   MyText = "<Replace this with your text>"
   ' Selection Example:
   Selection.Fields.Add Range:=Selection.Range, _
      Type:=wdFieldQuote, Text:=MyText
   ' Range Example:
    Range.Fields.Add Range:=Selection.Range, _
      Type:=wdFieldQuote, Text:=MyText
End Sub
				
Contoh ini menyisipkan lapangan rumus. Hasilnya adalah diformat dengan dolar tanda.

Sub InsertFormulaMethod()
   Selection.InsertFormula Formula:="=100,000.0-45,000.0", _
      NumberFormat:="$#,##0.0"
End Sub
				

Mereplikasi teks, termasuk format, berbagai teks

Properti ini kembali Kisaran objek dengan karakter format dan teks dari kisaran tertentu atau pilihan. Ayat format termasuk dalam berbagai objek jika ada tanda paragraf dalam kisaran atau pilihan. Ketika Anda mengatur properti ini, teks dalam kisaran digantikan dengan diformat teks. Jika Anda tidak ingin mengganti teks yang ada, menggunakan Keruntuhan metode sebelum menggunakan properti ini.
Sub FormattedTextProperty()
   ' This example copies the first paragraph in the document, including
   ' its formatting, and inserts the formatted text at the insertion
   ' point.
   Selection.Collapse Direction:=wdCollapseStart
   Selection.FormattedText = ActiveDocument.Paragraphs(1).Range
End Sub
				

Menempatkan teks ke dalam header atau footer

CATATAN: HeaderFooter properti membutuhkan bahwa pemilihan akan terletak di header atau footer, atau kesalahan akan terjadi.
Sub HeaderFooterProperty()
   Dim MyText As String
   MyText = "<Replace this with your text>"
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   Selection.HeaderFooter.Range.Text = "MyText"
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
				
Contoh berikut perubahan teks kedua header utama dan utama footer untuk bagian pertama dari dokumen yang sedang aktif.
Sub HeaderFooterObject()
  Dim MyText As String
  MyHeaderText = "<Replace this with your text>"
  MyFooterText = "<Replace this with your text>"
  With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = MyHeaderText
    .Footers(wdHeaderFooterPrimary).Range.Text = MyFooterText
  End With
End Sub
				

Menggunakan berbagai atau seleksi objek untuk memasukkan tanggal menggunakan bidang Time

Contoh ini menyisipkan lapangan waktu untuk tanggal. Hasil mungkin mungkin "18 November 1996."
Sub InsertDateTimeMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
   InsertAsField:=True
   ' Range Example:
   MyRange.InsertDateTime DateTimeFormat:="MMM dd, yyyy", _
   InsertAsField:=True
End Sub
				

Menggunakan berbagai atau seleksi objek untuk memasukkan paragraf baru

Contoh ini menyisipkan paragraf baru di bawah posisi titik penyisipan saat ini.
Sub InsertParagraphMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertParagraph
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertParagraph
End Sub
				

Menggunakan berbagai atau seleksi objek untuk memasukkan simbol

Contoh ini menyisipkan berkepala dua panah pada titik penyisipan.
Sub InsertSymbolMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertSymbol CharacterNumber:=171, _
      Font:="Symbol", Unicode:=False
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertSymbol CharacterNumber:=171, _
      Font:="Symbol", Unicode:=False
End Sub
				

Menggunakan berbagai atau seleksi objek untuk paste dari clipboard

Contoh ini menyisipkan teks yang ditempatkan pada clipboard pada posisi saat ini titik penyisipan.
Sub PasteMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.Paste
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.Paste
End Sub
				

Untuk informasi lebih lanjut tentang menggunakan berbagai benda, di Editor Visual Basic, klik Microsoft Visual Basic bantuan pada Bantuan menu, jenis Berbagai objek di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik.

Untuk informasi lebih lanjut tentang menggunakan obyek pemilihan di Editor Visual Basic, klik Microsoft Visual Basic bantuan pada Bantuan menu, jenis Pemilihan obyek di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik.

Untuk informasi lebih lanjut tentang cara menggunakan kode contoh dalam artikel ini, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
212536OFF2000: Bagaimana untuk menjalankan kode contoh dari artikel Basis Pengetahuan

REFERENSI

Untuk informasi lebih lanjut tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
226118 OFF2000: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 212682 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Word 2000
Kata kunci: 
kbdtacode kbhowto kbmacroexample kbprogramming kbmt KB212682 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:212682

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com