4 hyödyllistä tapaa etsiä ja korvata teksti Word-asiakirjan osasta

Tässä asiakirjassa on ilo näyttää sinulle 4 hyödyllistä tapaa löytää ja korvata teksti Word-asiakirjan osassa.

Normaalisti, kun teemme "Etsi ja korvaa" Wordin, vaikutus on maailmanlaajuinen. Joten tänään haluamme tarjota sinulle tapoja löytää ja korvata tekstiä osassa asiakirjaa, kuten valinnassa, yhdellä sivulla tai tietyssä osiossa.

Tapa 1: Käytä valinnan “Etsi ja korvaa” -ominaisuutta

1. Valitse ensin tarsaada tekstiä.
2. Toiseksi paina "Ctrl + H" avataksesi "Etsi ja korvaa" -ruudun.
3. Kirjoita seuraavaksi löytöteksti Etsi mitä -tekstiruutuun ja korvaava teksti Korvaa-ruutuun.
4. Napsauta sitten “Korvaa kaikki” -painiketta.
5. Näkyviin tulee ruutu, jossa kysytään, haluatko jatkaa hakua muun asiakirjan kohdalla. Varmista, että napsautat Ei.

Tapa 2: Suorita VBA-koodit tekstin löytämiseksi ja korvaamiseksi valinnassa

1. Ensinnäkin, valitse asiakirjan sisällön alue.
2. Käynnistä seuraava VBA-editori painamalla “Alt + F11”.
3. Napsauta sitten “Normal” ja napsauta “Insert”.
4. Valitse valikosta ”Moduuli”.
5. Avaa moduuli kaksoisnapsauttamalla.
6. Kopioi ja liitä seuraavat koodit sinne:

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. Seuraava osuma “F5”.
8. Tulostuskenttiä on kaksi. Kirjoita löytö ja korvaava teksti kahteen ruutuun.
9. Napsauta "OK" jatkaaksesi.

Sinun on saavutettava täsmälleen sama vaikutus kuin menetelmässä 1.

Tapa 3: Suorita Word-makro etsimään ja korvaamaan tekstiä määrätyltä sivulta

Seuraavan makron avulla voit etsiä ja korvata tietyn sivun tekstin.

1. Asenna ja suorita ensin makro menetelmän 2 vaiheiden mukaisesti.
2. Korvaa sitten makro tällä:

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. Näiden koodien suorittamisen jälkeen on 3 syöttöruutua. Kirjoita sivunumero ensimmäiseen ruutuun ja syötä etsintäteksti toiseen ja kirjoita korvaava teksti kolmanteen.
4. Muista napsauttaa “OK” jatkaaksesi.

Tapa 4: Suorita Word-makro etsimään ja korvaamaan osan teksti

1. Tee vastaavasti samat vaiheet menetelmässä 2 makron asentamiseksi ja suorittamiseksi.
2. Käytä vain tällä kertaa tätä makroa:

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. Muista kirjoittaa osan numero ensimmäiseen ruutuun. Ja syötteen löytäminen ja tekstien korvaaminen seuraavissa kahdessa laatikossa.
4. Napsauta silti "OK" jatkaaksesi.

Selviytyminen sanakysymyksistä

Asiakirjassa voi esiintyä monenlaisia ​​ongelmia. Jotkut ovat helppoja käsitellä, kun taas toiset ovat vakavampia, mikä voi johtaa Sanan korruptio. Tällaisessa tilanteessa sinun on hankittava korjaustyökalu mahdollisimman pian tietojen pelastamiseksi.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com