4 Przydatne metody wyszukiwania i zastępowania tekstu w części dokumentu programu Word

W tym dokumencie z przyjemnością przedstawimy 4 przydatne metody wyszukiwania i zastępowania tekstu w części dokumentu programu Word.

Zwykle, gdy wykonujemy „Znajdź i zamień” w programie Word, efekt jest globalny. Dlatego dzisiaj chcemy zaoferować sposoby znajdowania i zastępowania tekstu w części dokumentu, na przykład w zaznaczeniu, pojedynczej stronie lub określonej sekcji.

Metoda 1: Wykorzystaj w zaznaczeniu funkcję „Znajdź i zamień”

1. Najpierw wybierz taruzyskać tekst.
2. Po drugie, naciśnij „Ctrl + H”, aby otworzyć okno „Znajdź i zamień”.
3. Następnie wprowadź szukany tekst w polu tekstowym „Znajdź” i zastępujący tekst w polu „Zamień na”.
4. Następnie kliknij przycisk „Zamień wszystko”.
5. Pojawi się okienko z pytaniem, czy chcesz kontynuować wyszukiwanie w pozostałej części dokumentu. Upewnij się, że kliknąłeś „Nie”.

Metoda 2: Uruchom kody VBA, aby znaleźć i zamienić tekst w zaznaczeniu

1. Przede wszystkim wybierz zakres treści dokumentu.
2. Następnie uruchom edytor VBA, naciskając „Alt + F11”.
3. Następnie kliknij „Normalne” i kliknij „Wstaw”.
4. Wybierz z menu „Moduł”.
5. Teraz otwórz moduł podwójnym kliknięciem.
6. Skopiuj i wklej tam następujące kody:

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. Następnie naciśnij „F5”.
8. Pojawią się dwa pola wprowadzania danych. Wpisz wynik i zamień tekst odpowiednio w dwóch polach.
9. Kliknij „OK”, aby kontynuować.

Osiągniesz dokładnie taki sam efekt, jak w metodzie 1.

Metoda 3: Uruchom makro programu Word, aby znaleźć i zamienić tekst na wyznaczonej stronie

Poniższe makro pozwala znaleźć i zamienić tekst na określonej stronie.

1. Najpierw zainstaluj i uruchom makro, wykonując czynności opisane w metodzie 2.
2. Następnie zamień to makro na to:

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 uruchomieniu tych kodów pojawią się 3 pola wprowadzania. Wprowadź numer strony w pierwszym polu, w drugim wpisz szukany tekst, a w trzecim wpisz tekst zastępujący.
4. Pamiętaj, aby kliknąć „OK”, aby kontynuować.

Metoda 4: Uruchom makro programu Word, aby znaleźć i zamienić tekst w sekcji

1. Podobnie wykonaj te same kroki w metodzie 2, aby zainstalować i uruchomić makro.
2. Tylko tym razem użyj tego makra:

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. Pamiętaj, aby w pierwszym polu wpisać numer sekcji. I wprowadź wyszukiwanie i zastępowanie tekstów w następujących dwóch polach.
4. Mimo to kliknij „OK”, aby kontynuować.

Radzenie sobie z problemami z Wordem

W dokumencie może występować wiele rodzajów problemów. Niektóre są łatwe w obsłudze, podczas gdy inne są bardziej dotkliwe, co może prowadzić do Zepsucie słów. W takim scenariuszu musisz jak najszybciej uzyskać narzędzie naprawcze, aby uratować dane.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Poprawka programu Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com