Mereset rentang secara terprogram di dokumen Word
Artikel 01/13/2024
11 kontributor
Saran dan Komentar
Dalam artikel ini
SetRange Gunakan metode untuk mengubah ukuran rentang yang sudah ada dalam dokumen Microsoft Office Word.
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 mengatur ulang rentang yang ada
Atur rentang awal yang dimulai dengan tujuh karakter pertama dalam dokumen.
Contoh kode berikut dapat digunakan dalam kustomisasi tingkat dokumen.
object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start,ref end);
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
Contoh kode berikut dapat digunakan dalam Add-in VSTO. Kode ini menggunakan dokumen aktif.
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
Gunakan SetRange untuk memulai rentang pada kalimat kedua dan akhiri di akhir kalimat kelima.
rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End);
rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
Contoh Kustomisasi Tingkat Dokumen
Untuk mengatur ulang rentang yang ada dalam kustomisasi tingkat dokumen
Contoh berikut menunjukkan contoh lengkap untuk kustomisasi tingkat dokumen. Untuk menggunakan kode ini, jalankan dari ThisDocument
kelas di proyek Anda.
object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start,ref end);
// Reset the existing Range.
rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End);
rng.Select();
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
' Reset the existing Range.
rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
rng.Select()
Contoh Add-in VSTO
Untuk mengatur ulang rentang yang ada dalam Add-in VSTO
Contoh berikut menunjukkan contoh lengkap untuk Add-in VSTO. Untuk menggunakan kode ini, jalankan dari ThisAddIn
kelas di proyek Anda.
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
// Reset the existing Range.
rng.SetRange(this.Application.ActiveDocument.Sentences[2].Start,
this.Application.ActiveDocument.Sentences[5].End);
rng.Select();
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
' Reset the existing Range.
rng.SetRange(Start:=Me.Application.ActiveDocument.Sentences(2).Start, _
End:=Me.Application.ActiveDocument.Sentences(5).End)
rng.Select()
Konten terkait