Hur du hittar och ersätter flera objekt i ditt Word-dokument

I dagens artikel vill vi förklara för dig hur du hittar och ersätter flera objekt i ditt Word-dokument.

Den inbyggda funktionen i Word, "Hitta och ersätt", gör att vi kan hitta och ersätta ett ord eller en fras åt gången. Detta kan verkligen inte tillgodose vårt behov av batchbehandling.

I själva verket har vi utökat funktionen för att hitta flera objekt på en gång i en av vår tidigare artikel. Mer information finns i den här artikeln: Två snabba sätt att hitta flera objekt i ett Word-dokument samtidigt

Ovanstående länk diskuterade hur man hittar flera objekt samtidigt. Och den här artikeln visar dig också hur du byter ut varje artikel med en ny.

Kör Word VBA för att hitta och ersätta flera objekt

Makro är det enda sättet kvar att göra skräddarsydda och batch-bearbetningsuppgifter i Word. Följ bara böljande steg för att utföra ditt uppdrag.

1. Först och föremost, öppna din tarfå dokument.
2. Klicka sedan på fliken "Utvecklare" om den finns i menyfliksområdet.
3. Och klicka på “Visual Basic” bredvid för att öppna VBA-redigeraren i Word. Eller så kan du välja att trycka på "Alt + F11" istället.
4. Klicka sedan på “Normal” i den vänstra kolumnen.
5. Och gå till menyraden för att klicka på "Infoga".
6. Välj "Modul" på rullgardinsmenyn.
7. Dubbelklicka sedan på den nya modulen för att öppna den.
8. Klistra in följande koder på modulen:

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. Tryck på “F5” för att köra makrot.
10. Nu kommer det att finnas den första inmatningsrutan. Ange objekt som ska hittas och använd komma för att separera. Ange inte ett mellanslag efter komma.
11. Klicka sedan på “OK” för att fortsätta.
12. I den andra inmatningsrutan anger du nya objekt och separerar dem med komma.
13. Klicka slutligen på “OK”.

Inför dataförlust

Det är svårt att vara glad inför en datakatastrof som kan förstöra värdefull information. Det finns dock inget behov av panik eftersom du kan få en Ordreparation genom att beskjuta en liten summa pengar.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive utmärker korruption och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com