Word belgelerindeki aralıkları program aracılığıyla sıfırlama

Makale
01/13/2024

SetRange Microsoft Office Word belgesinde var olan bir aralığı yeniden boyutlandırmak için yöntemini kullanın.

Şunlar için geçerlidir: Bu konudaki bilgiler, Word için belge düzeyi projeler ve VSTO Eklenti projeleri için geçerlidir. Daha fazla bilgi için bkz. Office uygulaması ve proje türüne göre kullanılabilen özellikler.

Mevcut aralığı sıfırlamak için

Belgenin ilk yedi karakteriyle başlayan bir başlangıç aralığı ayarlayın.

Aşağıdaki kod örneği belge düzeyi özelleştirmesinde kullanılabilir.

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)

Aşağıdaki kod örneği bir VSTO Eklentisinde kullanılabilir. Bu kod etkin belgeyi kullanır.

Word.Range rng = this.Application.ActiveDocument.Range(0, 7);

Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)

Aralığı ikinci cümlede başlatmak ve beşinci cümlenin sonunda sonlandırmak için kullanın SetRange .

rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End);

rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)

Belge Düzeyi Özelleştirme Örneği

Belge düzeyi özelleştirmesinde var olan bir aralığı sıfırlamak için

Aşağıdaki örnek, belge düzeyinde özelleştirme için tam örneği gösterir. Bu kodu kullanmak için projenizdeki sınıfından ThisDocument çalıştırın.

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()

VSTO Eklentisi örneği

VSTO Eklentisinde var olan bir aralığı sıfırlamak için

Aşağıdaki örnekte VSTO Eklentisinin tam örneği gösterilmektedir. Bu kodu kullanmak için projenizdeki sınıfından ThisAddIn çalıştırın.

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()