Meerdere items in uw Word-document zoeken en vervangen

In het artikel van vandaag willen we u uitleggen hoe u meerdere items in uw Word-document kunt vinden en vervangen.

De ingebouwde functie in Word, "Zoeken en vervangen", stelt ons in staat om een ​​woord of een zin tegelijk te zoeken en te vervangen. Dit kan zeker niet voldoen aan onze behoefte aan batchverwerking.

In feite hebben we in een van onze vorige artikelen de functie uitgebreid om meerdere items in één keer te vinden. Voor meer details kunt u dit artikel raadplegen: 2 snelle manieren om meerdere items tegelijk in één Word-document te vinden

De bovenstaande link heeft besproken hoe u meerdere items tegelijkertijd kunt vinden. En dit artikel laat u ook zien hoe u elk item respectievelijk door een ander nieuw item kunt vervangen.

Voer Word VBA uit om meerdere items te zoeken en te vervangen

Macro is de enige manier om aangepaste en batchverwerkingstaken in Word uit te voeren. Volg gewoon de brullende stappen om uw missie te volbrengen.

1. Open allereerst het document dat u wilt bewerken.
2. Klik vervolgens op het tabblad "Ontwikkelaar" als het beschikbaar is in het lint.
3. En klik op "Visual Basic" naast om de VBA-editor in Word te openen. Of u kunt ervoor kiezen om in plaats daarvan op "Alt + F11" te drukken.
4. Klik vervolgens op "Normaal" in de linkerkolom.
5. En ga naar de menubalk om op "Invoegen" te klikken.
6. Kies "Module" in het vervolgkeuzemenu.
7. Dubbelklik vervolgens op de nieuwe module om deze te openen.
8. Plak de volgende codes op de module:

Sub FindAndReplaceMultiItems()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim nSplitItem As Long
   
  Application.ScreenUpdating = False

  ' Enter items to be replaces and new ones.
  strFindText = InputBox("Enter items to be found here,seperated by comma: ", "Items to be found")
  strReplaceText = InputBox("Enter new items here, seperated by comma: ", "New items")
  nSplitItem = UBound(Split(strFindText, ","))

  ' Find each item and replace it with new one respectively.
  For nSplitItem = 0 To nSplitItem
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Split(strFindText, ",")(nSplitItem)
        .Replacement.Text = Split(strReplaceText, ",")(nSplitItem)
        .Format = False
        .MatchWholeWord = False
      End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
Next nSplitItem

  Application.ScreenUpdating = True

End Sub

9. Druk op "F5" om de macro uit te voeren.
10. Nu zal er het eerste invoerveld zijn. Voer items in die u wilt vinden en gebruik een komma om ze te scheiden. Voer geen spatie in na een komma.
11. Klik vervolgens op "OK" om door te gaan.
12. Voer in het tweede invoervak ​​nieuwe items in en scheid ze met een komma.
13. Klik ten slotte op "OK".

In het licht van gegevensverlies

Het is moeilijk om opgewekt te zijn bij een gegevensramp die waardevolle informatie kan vernietigen. U hoeft echter niet in paniek te raken, aangezien u een Woordherstel nut door een klein bedrag weg te schieten.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel corruptie en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com