Postupy: Obnovení výběru po hledání prostřednictvím kódu programu

Článek
03/04/2013

Najít a nahradit text v dokumentu, můžete obnovit původní výběr uživatele po dokončení hledání.

Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni dokumentu i na úrovni aplikace v aplikacích Word 2013 a Word 2010. Další informace naleznete v tématu Funkce aplikace Office a typ projektu.

Kód v proceduře vzorku využívá dvou Range objekty.Jeden ukládá aktuální Selection, a jeden nastaví celý dokument jako rozsah hledání.

Obnovení původního výběru uživatele po hledání

Vytvořit Range objekty v dokumentu a aktuální výběr.

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

Provést hledání a nahrazování operace.

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

Vyberte počáteční rozsah obnovení původního výběru uživatele.
```
start.Select()
```
```
start.Select(); 
```

Následující příklad ukazuje kompletní metoda.

Příklad

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

Viz také

Úkoly

Postupy: Hledání a nahrazování textu v dokumentech prostřednictvím kódu programu

Postupy: Nastavování možností hledání v aplikaci Word prostřednictvím kódu programu

Postupy: Procházení nalezených položek v dokumentech prostřednictvím kódu programu

Koncepty

Volitelné parametry v Office Solutions

Sdílet prostřednictvím