Nasıl Yapılır: Arama Yaptıktan Sonra Seçimleri Geri Yükleme

Makale
08/01/2011

Bir belgede metni bulup değiştirirseniz, arama tamamlandıktan sonra kullanıcının önceki seçimini geri yüklemek isteyebilirsiniz.

Uygulama alanı: Bu konudaki bilgiler Word 2007 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ü.

Örnek yordamdaki kod iki Range nesnesinden yararlanır. Biri şimdiki Selection'ı saklar ve diğeri bütün belgenin bir arama aralığı olarak kullanılmasını ayarlar.

Arama yaptıktan sonra kullanıcının önceki seçimini geri yükleme

Belge ve şu anki seçim için Range nesnesini yaratın.

Dim start As Word.Range = Application.Selection.Range
Dim searchArea As Word.Range = Application.ActiveDocument.Range

Word.Range start = Application.Selection.Range; 
Word.Range searchArea = Application.ActiveDocument.Range(ref missing, ref missing);

Bul ve değiştir işlemini uygulayın.

searchArea.Find.ClearFormatting()
searchArea.Find.Text = "find me"

searchArea.Find.Replacement.ClearFormatting()
searchArea.Find.Replacement.Text = "Found"

searchArea.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)

searchArea.Find.ClearFormatting(); 
searchArea.Find.Text = "find me"; 

searchArea.Find.Replacement.ClearFormatting(); 
searchArea.Find.Replacement.Text = "Found"; 

object replaceAll = Word.WdReplace.wdReplaceAll; 

searchArea.Find.Execute(
    ref missing, ref missing, ref missing, ref missing, ref missing,
    ref missing, ref missing, ref missing, ref missing, ref missing,
    ref replaceAll, ref missing, ref missing, ref missing, ref missing);

Kullanıcının önceki seçimini geri yüklemek için başlangıç aralığını seçin.
```
start.Select()
```
```
start.Select(); 
```

Aşağıdaki örnekte tamamlanmış yöntem gösterilmektedir.

Örnek

Friend Sub ReplaceRestoreSelection()
    Dim start As Word.Range = Application.Selection.Range
    Dim searchArea As Word.Range = Application.ActiveDocument.Range

    searchArea.Find.ClearFormatting()
    searchArea.Find.Text = "find me"

    searchArea.Find.Replacement.ClearFormatting()
    searchArea.Find.Replacement.Text = "Found"

    searchArea.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)

    start.Select()
End Sub

internal void ReplaceRestoreSelection() 
{ 
    Word.Range start = Application.Selection.Range; 
    Word.Range searchArea = Application.ActiveDocument.Range(ref missing, ref missing); 

    searchArea.Find.ClearFormatting(); 
    searchArea.Find.Text = "find me"; 

    searchArea.Find.Replacement.ClearFormatting(); 
    searchArea.Find.Replacement.Text = "Found"; 

    object replaceAll = Word.WdReplace.wdReplaceAll; 

    searchArea.Find.Execute(
        ref missing, ref missing, ref missing, ref missing, ref missing,
        ref missing, ref missing, ref missing, ref missing, ref missing,
        ref replaceAll, ref missing, ref missing, ref missing, ref missing);

    start.Select(); 
}

Ayrıca bkz.

Görevler

Nasıl Yapılır: Belgelerde Metin Arama ve Değiştirme

Nasıl Yapılır: Belgelerde Metin Arama

Nasıl Yapılır: Word'de Arama Seçeneklerini Ayarlama

Nasıl Yapılır: Belgelerde Bulunan Öğeler Arasında Döngü Gerçekleştirme

Kavramlar

Office Çözümlerinde İsteğe Bağlı Parametreler

Aracılığıyla paylaş