4 Užitečné metody pro vyhledání a nahrazení textu v části dokumentu Word

V tomto dokumentu vám rádi ukážeme 4 užitečné způsoby, jak najít a nahradit text v části dokumentu Word.

Normálně, když ve Wordu provedeme „Najít a nahradit“, bude to mít globální dopad. Dnes vám tedy chceme nabídnout způsoby, jak najít a nahradit text v části dokumentu, například ve výběru, na jedné stránce nebo v konkrétní sekci.

Metoda 1: Využijte funkci „Najít a nahradit“ ve výběru

1. Nejprve vyberte tardostat text.
2. Poté stiskněte „Ctrl + H“ a otevřete pole „Najít a nahradit“.
3. Dále zadejte hledaný text do textového pole „Najít co“ a nahrazující text do pole „Nahradit“.
4. Poté klikněte na tlačítko „Nahradit vše“.
5. Otevře se okno s dotazem, zda chcete pokračovat v hledání ve zbytku dokumentu. Nezapomeňte kliknout na „Ne“.

Metoda 2: Spuštění kódů VBA k vyhledání a nahrazení textu ve výběru

1. Nejprve vyberte rozsah obsahu dokumentu.
2. Dále spusťte editor VBA stisknutím kláves „Alt + F11“.
3. Poté klikněte na „Normální“ a poté na „Vložit“.
4. V nabídce zvolte „Modul“.
5. Nyní modul otevřete dvojitým kliknutím.
6. Zkopírujte a vložte tam následující kódy:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. Dále stiskněte „F5“.
8. Zobrazí se dvě vstupní pole s výzvou. Do dvou polí zadejte vyhledávací a nahrazující text.
9. Pokračujte kliknutím na „OK“.

Dosáhnete přesně stejného efektu jako v metodě 1.

Metoda 3: Spuštění makra aplikace Word k vyhledání a nahrazení textu na určené stránce

Následující makro umožňuje vyhledat a nahradit text na konkrétní stránce.

1. Nejprve nainstalujte a spusťte makro podle pokynů v metodě 2.
2. Poté nahraďte toto makro tímto:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Po spuštění těchto kódů budou 3 vstupní pole. Do prvního pole zadejte číslo stránky a do druhého zadejte hledaný text a do třetího zadejte nahrazující text.
4. Nezapomeňte pokračovat kliknutím na „OK“.

Metoda 4: Spuštění makra aplikace Word k vyhledání a nahrazení textu v sekci

1. Podobně proveďte stejné kroky v metodě 2 k instalaci a spuštění makra.
2. Pouze tentokrát místo toho použijte toto makro:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Nezapomeňte do prvního pole zadat číslo sekce. A do následujících dvou polí zadejte vyhledávání a nahrazování textů.
4. Pokračujte kliknutím na „OK“.

Vyřešte problémy se slovy

Ve vašem dokumentu může nastat mnoho druhů problémů. Některé jsou snadno ovladatelné, zatímco jiné jsou závažnější, což může vést k Slovo korupce. V takovém scénáři musíte co nejdříve získat nástroj pro opravu, abyste mohli data zachránit.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava aplikace Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com