Belgelerdeki aralıkları veya seçimleri program aracılığıyla daraltma

Makale
01/13/2024

Bir veya Selection nesnesiyle Range çalışıyorsanız, var olan metnin üzerine yazılmasını önlemek için, metin eklemeden önce seçimi ekleme noktasıyla değiştirmek isteyebilirsiniz. Range Hem hem de Selection nesneleri, numaralandırma değerlerini kullanan bir Daralt yöntemine WdCollapseDirection sahiptir:

wdCollapseStart seçimi seçimin başına daraltıyor. Sabit listesi değeri belirtmezseniz bu varsayılan değerdir.
wdCollapseEnd seçimi seçimin sonuna daraltıyor.

Ş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.

Aralığı daraltmak ve yeni metin eklemek için

Belgedeki ilk paragrafı içeren bir Range nesne oluşturun.

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

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

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

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

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

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

wdCollapseStart Aralığı daraltmak için numaralandırma değerini kullanın.

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

Yeni metni ekleyin.

rng.Text = " New Text ";

rng.Text = " New Text "

Range seçeneğini belirleyin.
- C#
- VB
```
rng.Select();
```
```
rng.Select()
```
Numaralandırma değerini kullanırsanız wdCollapseEnd , metin aşağıdaki paragrafın başına eklenir.
- C#
- VB
```
rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
```
```
rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
```

Yeni bir tümce eklenmesinin paragraf işaretçisinin önüne eklenmesini bekleyebilirsiniz, ancak özgün aralık paragraf işaretçisini içerdiğinden bu durum geçerli değildir.

Belge düzeyi özelleştirme örneği

Belge düzeyi özelleştirmesinde aralığı daraltmak için

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

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 

rng.Text = " New Text ";
rng.Select();

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

VSTO Eklentisi örneği

VSTO Eklentisindeki bir aralığı daraltmak için

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

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

rng.Text = " New Text ";
rng.Select();

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()