4 Metode utile pentru a găsi și înlocui textul într-o parte a unui document Word

În acest document, suntem bucuroși să vă arătăm 4 metode utile pentru a găsi și înlocui textul într-o parte a unui document Word.

În mod normal, când facem „Găsiți și înlocuiți” în Word, efectul este global. Așadar, astăzi dorim să vă oferim modalități de a găsi și înlocui textul într-o parte a unui document, cum ar fi o selecție, o singură pagină sau o anumită secțiune.

Metoda 1: Utilizați funcția „Găsiți și înlocuiți” într-o selecție

1. În primul rând, selectați tarprimi text.
2. În al doilea rând, apăsați „Ctrl + H” pentru a deschide caseta „Găsiți și înlocuiți”.
3. Apoi introduceți textul de căutare în caseta de text „Găsiți ce” și textul de înlocuire în caseta „Înlocuiți cu”.
4. Apoi faceți clic pe butonul „Înlocuiește tot”.
5. Va apărea o casetă care vă va întreba dacă doriți să continuați căutarea în restul unui document. Asigurați-vă că faceți clic pe „Nu”.

Metoda 2: Rulați coduri VBA pentru a găsi și înlocui textul într-o selecție

1. În primul rând, selectați o gamă de conținut de document.
2. Următorul declanșează editorul VBA apăsând „Alt+ F11”.
3. Apoi faceți clic pe „Normal” și faceți clic pe „Inserare”.
4. Alegeți „Modul” din meniu.
5. Acum deschideți modulul cu dublu clic.
6. Copiați și inserați următoarele coduri acolo:

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. Apoi apăsați „F5”.
8. Vor apărea două casete de introducere. Introduceți textul de găsire și respectiv de înlocuire în două casete.
9. Faceți clic pe „OK” pentru a continua.

Veți obține exact același efect ca în metoda 1.

Metoda 3: Rulați Word Macro pentru a găsi și înlocui textul pe o pagină desemnată

Următoarea macrocomandă vă permite să găsiți și să înlocuiți text pe o anumită pagină.

1. Mai întâi, instalați și rulați o macrocomandă urmând pașii din metoda 2.
2. Apoi înlocuiți macrocomanda cu aceasta:

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. După rularea acestor coduri, vor exista 3 casete de introducere. Introduceți un număr de pagină în prima casetă și introduceți textul de căutare în a doua și introduceți textul de înlocuire în a treia.
4. Nu uitați să faceți clic pe „OK” pentru a continua.

Metoda 4: Rulați Word Macro pentru a găsi și înlocui textul într-o secțiune

1. În mod similar, faceți aceiași pași în metoda 2 pentru a instala și rula o macrocomandă.
2. Numai că de data aceasta folosește această macrocomandă:

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. Nu uitați să introduceți numărul secțiunii în prima casetă. Și introduceți găsirea și înlocuirea textelor în următoarele două casete.
4. Totuși, faceți clic pe „OK” pentru a continua.

Faceți față problemelor cu cuvintele

În documentul dvs. pot apărea multe tipuri de probleme. Unele sunt ușor de manevrat, în timp ce altele sunt mai severe, ceea ce poate duce la Coruperea cuvintelor. Într-un astfel de scenariu, trebuie să obțineți un instrument de reparare cât mai curând posibil pentru a vă salva datele.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Remediere Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com