Menciutkan rentang atau pilihan secara terprogram dalam dokumen

Jika Anda bekerja dengan Range objek atau Selection , Anda mungkin ingin mengubah pilihan ke titik penyisipan sebelum menyisipkan teks, untuk menghindari penimpaan teks yang ada. Range Kedua objek dan Selection memiliki metode Ciutkan, yang menggunakan WdCollapseDirection nilai enumerasi:

• wdCollapseStart menciutkan pilihan ke awal pilihan. Ini adalah default jika Anda tidak menentukan nilai enumerasi.

• wdCollapseEnd menciutkan pilihan ke akhir pilihan.

  Berlaku untuk: Informasi dalam topik ini berlaku untuk proyek tingkat dokumen dan proyek Add-in VSTO untuk Word. Untuk informasi selengkapnya, lihat Fitur yang tersedia berdasarkan aplikasi Office likasi dan jenis proyek.

Untuk menciutkan rentang dan menyisipkan teks baru

1. Buat Range objek yang terdiri dari paragraf pertama dalam dokumen.

   Contoh kode berikut dapat digunakan dalam kustomisasi tingkat dokumen.

   C#

   Word.Range rng = this.Paragraphs[1].Range;
   

   VB

   Dim rng As Word.Range = Me.Paragraphs(1).Range
   

   Contoh kode berikut dapat digunakan dalam Add-in VSTO. Kode ini menggunakan dokumen aktif.

   C#

   Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
   

2. wdCollapseStart Gunakan nilai enumerasi untuk menciutkan rentang.

   C#

   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);
   

   VB

   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
   

3. Sisipkan teks baru.

   C#

   rng.Text = " New Text ";
   

   VB

   rng.Text = " New Text "
   

4. Pilih Range.

   C#

   rng.Select();
   

   VB

   rng.Select()
   

   Jika Anda menggunakan wdCollapseEnd nilai enumerasi, teks disisipkan di awal paragraf berikut.

   C#

   rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
   

   VB

   rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
   

---

Anda mungkin mengharapkan bahwa menyisipkan kalimat baru akan menyisipkannya sebelum penanda paragraf, tetapi itu tidak terjadi karena rentang asli menyertakan penanda paragraf.

Contoh kustomisasi tingkat dokumen

Untuk menciutkan rentang dalam kustomisasi tingkat dokumen

1. Contoh berikut menunjukkan metode lengkap untuk kustomisasi tingkat dokumen. Untuk menggunakan kode ini, jalankan dari ThisDocument kelas di proyek Anda.

   C#

   Word.Range rng = this.Paragraphs[1].Range; 
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 
   
   rng.Text = " New Text ";
   rng.Select();
   

   VB

   Dim rng As Word.Range = Me.Paragraphs(1).Range
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
   
   rng.Text = " New Text "
   rng.Select()
   

Contoh Add-in VSTO

Untuk menciutkan rentang dalam Add-in VSTO

1. Contoh berikut menunjukkan metode lengkap untuk Add-in VSTO. Untuk menggunakan kode ini, jalankan dari ThisAddIn kelas di proyek Anda.

   C#

   Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);
   
   rng.Text = " New Text ";
   rng.Select();
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
   
   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
   
   rng.Text = " New Text "
   rng.Select()
   

Konten terkait

• Cara: Menyisipkan teks secara terprogram ke dalam dokumen Word
• Cara: Menentukan dan memilih rentang secara terprogram dalam dokumen
• Cara: Mengambil karakter awal dan akhir secara terprogram dalam rentang
• Cara: Memperluas rentang dalam dokumen secara terprogram
• Cara: Mereset rentang secara terprogram di dokumen Word