4 noderīgas metodes teksta atrašanai un aizstāšanai Word dokumenta daļā

Šajā dokumentā mēs esam priecīgi parādīt jums 4 noderīgas metodes teksta atrašanai un aizstāšanai Word dokumenta daļā.

Parasti, kad programmā Word veicam “Atrast un aizstāt”, efekts ir globāls. Tāpēc šodien mēs vēlamies piedāvāt jums veidus, kā atrast un aizstāt teksta daļu dokumenta, piemēram, atlasē, vienā lapā vai noteiktā sadaļā.

1. metode: atlasē izmantojiet funkciju “Atrast un aizstāt”

1. Pirmkārt, izvēlieties tarsaņemt tekstu.
2. Otrkārt, nospiediet “Ctrl+ H”, lai atvērtu lodziņu “Atrast un aizstāt”.
3. Tālāk tekstlodziņā “Atrast, ko” ievadiet meklēšanas tekstu, bet lodziņā “Aizstāt ar” - aizvietojošo tekstu.
4. Pēc tam noklikšķiniet uz pogas “Aizstāt visu”.
5. Parādīsies lodziņš, kurā tiks jautāts, vai vēlaties turpināt meklēšanu pārējā dokumentā. Noteikti noklikšķiniet uz “Nē”.

2. metode: palaidiet VBA kodus, lai atrastu un aizstātu tekstu atlasē

1. Vispirms izvēlieties dokumentu satura diapazonu.
2. Pēc tam aktivizējiet VBA redaktoru, nospiežot “Alt+ F11”.
3. Pēc tam noklikšķiniet uz “Normal” un noklikšķiniet uz “Insert”.
4. Izvēlnē izvēlieties “Module”.
5. Tagad atveriet moduli ar dubultklikšķi.
6. Kopējiet un ielīmējiet tur šādus kodus:

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. Nākamais nospiediet "F5".
8. Tiks parādīti divi ievades lodziņi. Ievadiet meklēšanas un aizstāšanas tekstu attiecīgi divos lodziņos.
9. Noklikšķiniet uz “OK”, lai turpinātu.

Jūs sasniegsit tieši tādu pašu efektu kā 1. metodē.

3. metode: palaidiet Word makro, lai atrastu un aizstātu tekstu norādītajā lapā

Sekojošais makro ļauj atrast un aizstāt tekstu noteiktā lapā.

1. Vispirms instalējiet un palaidiet makro, veicot 2. metodes darbības.
2. Pēc tam aizstājiet šo makro ar šo:

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. Pēc šo kodu palaišanas būs 3 ievades lodziņi. Pirmajā lodziņā ievadiet lapas numuru, otrajā ievadiet meklēšanas tekstu, bet trešajā ierakstiet aizstāšanas tekstu.
4. Lai turpinātu, neaizmirstiet noklikšķināt uz “Labi”.

4. metode: palaidiet Word makro, lai sadaļā atrastu un aizstātu tekstu

1. Līdzīgi veiciet tās pašas darbības 2. metodē, lai instalētu un palaistu makro.
2. Tikai šoreiz izmantojiet šo 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. Neaizmirstiet ievadīt sadaļas numuru pirmajā lodziņā. Un ievadiet teksta atrašanu un aizstāšanu šādos divos lodziņos.
4. Tomēr, lai turpinātu, noklikšķiniet uz “Labi”.

Cīņa ar vārdu jautājumiem

Dokumentā var rasties daudz dažādu problēmu. Daži no tiem ir viegli apstrādājami, bet citi ir smagāki, kas var izraisīt Vārdu korupcija. Šādā gadījumā jums pēc iespējas ātrāk jāsaņem remonta rīks, lai glābtu savus datus.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel labojums un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar