Nasıl yapılır: Aralık Oluştururken Program Aracılığıyla Paragraf İşaretlerini Hariç Tutma

Makale
02/26/2013

Bir paragrafa bağlı Range nesnesi oluşturduğunuzda, paragraf işaretleri gibi yazdırılamayan karakterler aralığa dahildir.Kaynak paragraftan hedef paragrafa metin eklemek isteyebilirsiniz.Eğer hedef paragrafı farklı paragraflara ayırmak istemiyorsanız, öncelikle paragraf işaretlerini kaynak paragraftan kaldırmalısınız. Buna ek olarak, paragraf biçimlendirme bilgileri paragraf işaretleri içinde saklandığı için, varolan paragrafa aralık eklediğinizde bunu dahil etmek istemeyebilirsiniz.

Uygulama alanı: Bu konudaki bilgiler Word 2013 ve Word 2010 uygulamalarının belge düzeyi projelerine ve uygulama düzeyi projelerine yöneliktir. Daha fazla bilgi için bkz. Office Uygulamalarında Kullanılabilir Özellikler ve Proje Türü.

Aşağıdaki örnek yordamda iki dize değişkenleri bildirilir, etkin belgedeki ilk ve ikinci paragrafın içeriği alınır ve içerikler karşılıklı değiştirilir.Örnekte sonra paragraf işaretçisini aralıktan MoveEnd yöntemi kullanılarak kaldırma ve paragrafın içine metin ekleme gösterilir.

Metin eklerken paragraf yapısını denetlemek

İlk ve ikinci paragraf için iki aralık değişkeni oluşturun ve Text özelliğini kullanarak içeriklerini alın.

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

Dim firstRange As Word.Range = Me.Paragraphs(1).Range
Dim secondRange As Word.Range = Me.Paragraphs(2).Range

Dim firstString As String = firstRange.Text
Dim secondString As String = secondRange.Text

Word.Range firstRange = this.Paragraphs[1].Range; 
Word.Range secondRange = this.Paragraphs[2].Range; 

string firstString = firstRange.Text; 
string secondString = secondRange.Text;

Aşağıdaki kod örneği uygulama düzeyi eklentilerinde kullanılabilir.Bu kodda etkin belge kullanılır.

Dim document As Word.Document = Me.Application.ActiveDocument
Dim firstRange As Word.Range = document.Paragraphs(1).Range
Dim secondRange As Word.Range = document.Paragraphs(2).Range

Dim firstString As String = firstRange.Text
Dim secondString As String = secondRange.Text

Word.Document document = this.Application.ActiveDocument;
Word.Range firstRange = document.Paragraphs[1].Range;
Word.Range secondRange = document.Paragraphs[2].Range;

string firstString = firstRange.Text;
string secondString = secondRange.Text;

İki paragraf arasında metni değiştiren Text özelliğini atayın.

firstRange.Text = secondString
secondRange.Text = firstString

firstRange.Text = secondString; 
secondRange.Text = firstString;

Her aralığı sırayla seçin ve sonuçları iletişim kutusunda görüntülemeyi durdurun.

firstRange.Select()
MessageBox.Show(firstRange.Text)
secondRange.Select()
MessageBox.Show(secondRange.Text)

firstRange.Select(); 
MessageBox.Show(firstRange.Text); 
secondRange.Select(); 
MessageBox.Show(secondRange.Text);

Paragraf işaretçisinin artık firstRange parçası olmaması için MoveEnd kullanarak firstRange'i ayarlayın.

firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=-1)

object charUnit = Word.WdUnits.wdCharacter;
object move = -1;  // move left 1

firstRange.MoveEnd(ref charUnit, ref move);

İlk paragraftaki geri kalan metni aralığın Text özelliğine yeni bir dize atayarak değiştirin.

firstRange.Text = "New content for paragraph 1."

firstRange.Text = "New content for paragraph 1.";

Paragraf işareti içeren secondRange içindeki metni değiştirin.

secondRange.Text = "New content for paragraph 2."

secondRange.Text = "New content for paragraph 2.";

firstRange seçin,sonuçları iletişim kutusunda görüntülemeyi durdurun ve sonra aynısını secondRange ile yapın.

firstRange paragraf işaretlerini dışlamak için yeniden tanımlandığından, paragrafın özgün biçimlendirmesi korunur.Fakat, ayrı paragraflar kaldırılarak bir cümle secondRange içindeki paragraf işaretlerine eklenir.
```
firstRange.Select()
MessageBox.Show(firstRange.Text)
secondRange.Select()
MessageBox.Show(secondRange.Text)
```
```
firstRange.Select(); 
MessageBox.Show(firstRange.Text); 
secondRange.Select(); 
MessageBox.Show(secondRange.Text); 
```
Her iki aralığın da özgün içeriği dize olarak kaydedilmiştir, böylece belgeyi onun özgün durumuna geri yükleyebilirsiniz.

Bir karakter konumu için MoveEnd yöntemini kullanarak paragraf işaretlerini dahil etme amacıyla firstRange'i yeniden ayarlayın.

firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=1)

move = 1;  // move right 1
firstRange.MoveEnd(ref charUnit, ref move);

secondRange'i silin.Bu üçüncü paragrafı özgün konumuna geri yükler.
```
secondRange.Delete()
```
```
secondRange.Delete(ref missing, ref missing); 
```

firstRange içindeki özgün paragraf metnini geri yükleyin.

firstRange.Text = firstString

firstRange.Text = firstString;

İkinci özgün paragraf içeriğini firstRange'den sonra eklemek için Range nesnesinin InsertAfter yöntemini kullanın ve sonra firstRange'i seçin.
```
firstRange.InsertAfter(secondString)
firstRange.Select()
```
```
firstRange.InsertAfter(secondString); 
firstRange.Select(); 
```

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

Belge düzeyi özelleştirmesine metin eklerken paragraf yapısını denetlemek

Aşağıdaki örnekte belge düzeyi özelleştirmesi için tüm yöntem gösterilir.Bu kodu kullanmak için projenizdeki ThisDocument sınıfından kodu çalıştırın.

Private Sub ReplaceParagraphText()

    Dim firstRange As Word.Range = Me.Paragraphs(1).Range
    Dim secondRange As Word.Range = Me.Paragraphs(2).Range

    Dim firstString As String = firstRange.Text
    Dim secondString As String = secondRange.Text

    firstRange.Text = secondString
    secondRange.Text = firstString

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=-1)

    firstRange.Text = "New content for paragraph 1."
    secondRange.Text = "New content for paragraph 2."

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=1)

    secondRange.Delete()

    firstRange.Text = firstString

    firstRange.InsertAfter(secondString)
    firstRange.Select()
End Sub

private void ReplaceParagraphText() 
{ 
    Word.Range firstRange = this.Paragraphs[1].Range; 
    Word.Range secondRange = this.Paragraphs[2].Range; 

    string firstString = firstRange.Text; 
    string secondString = secondRange.Text; 

    firstRange.Text = secondString; 
    secondRange.Text = firstString; 

    firstRange.Select(); 
    MessageBox.Show(firstRange.Text); 
    secondRange.Select(); 
    MessageBox.Show(secondRange.Text); 

    object charUnit = Word.WdUnits.wdCharacter;
    object move = -1;  // move left 1

    firstRange.MoveEnd(ref charUnit, ref move);

    firstRange.Text = "New content for paragraph 1.";
    secondRange.Text = "New content for paragraph 2.";

    firstRange.Select(); 
    MessageBox.Show(firstRange.Text); 
    secondRange.Select(); 
    MessageBox.Show(secondRange.Text); 

    move = 1;  // move right 1
    firstRange.MoveEnd(ref charUnit, ref move); 

    secondRange.Delete(ref missing, ref missing); 

    firstRange.Text = firstString; 

    firstRange.InsertAfter(secondString); 
    firstRange.Select(); 
}

Uygulama Düzeyi Eklentileri Örneği

Uygulama düzeyi eklentilerine metin eklerken paragraf yapısını denetlemek

Aşağıdaki örnekte uygulama düzeyi eklentisi için tüm yöntem gösterilir.Bu kodu kullanmak için projenizdeki ThisAddIn sınıfından kodu çalıştırın.

Private Sub ReplaceParagraphText()

    Dim document As Word.Document = Me.Application.ActiveDocument
    Dim firstRange As Word.Range = document.Paragraphs(1).Range
    Dim secondRange As Word.Range = document.Paragraphs(2).Range

    Dim firstString As String = firstRange.Text
    Dim secondString As String = secondRange.Text

    firstRange.Text = secondString
    secondRange.Text = firstString

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=-1)

    firstRange.Text = "New content for paragraph 1."
    secondRange.Text = "New content for paragraph 2."

    firstRange.Select()
    MessageBox.Show(firstRange.Text)
    secondRange.Select()
    MessageBox.Show(secondRange.Text)

    firstRange.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=1)

    secondRange.Delete()

    firstRange.Text = firstString

    firstRange.InsertAfter(secondString)
    firstRange.Select()
End Sub

private void ReplaceParagraphText()
{
    Word.Document document = this.Application.ActiveDocument;
    Word.Range firstRange = document.Paragraphs[1].Range;
    Word.Range secondRange = document.Paragraphs[2].Range;

    string firstString = firstRange.Text;
    string secondString = secondRange.Text;

    firstRange.Text = secondString;
    secondRange.Text = firstString;

    firstRange.Select();
    MessageBox.Show(firstRange.Text);
    secondRange.Select();
    MessageBox.Show(secondRange.Text);

    object charUnit = Word.WdUnits.wdCharacter;
    object move = -1;  // move left 1

    firstRange.MoveEnd(ref charUnit, ref move);

    firstRange.Text = "New content for paragraph 1.";
    secondRange.Text = "New content for paragraph 2.";

    firstRange.Select();
    MessageBox.Show(firstRange.Text);
    secondRange.Select();
    MessageBox.Show(secondRange.Text);

    move = 1;  // move right 1
    firstRange.MoveEnd(ref charUnit, ref move);

    secondRange.Delete(ref missing, ref missing);

    firstRange.Text = firstString;

    firstRange.InsertAfter(secondString);
    firstRange.Select();
}