Jak znaleźć i zamienić wiele słów w tym samym czasie w dokumencie programu Word?

Program Word udostępnia funkcję Znajdź i zamień, która umożliwia znajdowanie wszystkich wystąpień słowa lub frazy i jednoczesne zastępowanie ich nowym słowem. Ale jeśli chcesz znaleźć i zamienić różne słowa w tym samym czasie, ta wbudowana funkcja nie pomoże. W tym artykule mówimy o metodzie VBA do znajdowania i zastępowania wielu różnych słów w tym samym czasie w dokumencie programu Word.

Znajdź i zamień wiele słów jednocześnie w programie Word za pomocą kodu VBA
Łatwo znajduj i zamieniaj wiele słów w tym samym czasie w programie Word dzięki niesamowitej funkcji

Znajdź i zamień wiele słów jednocześnie w programie Word za pomocą kodu VBA

Wykonaj następujące czynności, aby znaleźć i zamienić wiele słów w tym samym czasie w dokumencie programu Word.

1. Otwórz dokument programu Word, który chcesz znaleźć i zamień wiele słów jednocześnie, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna modułu.

Kod VBA: znajdź i zamień wiele słów w tym samym czasie w programie Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. wciśnij F5 klucz do uruchomienia kodu.

4. W pierwszym Kutools dla Worda W oknie dialogowym wprowadź wiele znalezionych słów i zamień je w polu tekstowym, oddziel je przecinkami, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

5. W sekundę Kutools dla Worda w oknie dialogowym wprowadź nowe słowa, które chcesz zastąpić (te słowa również muszą być oddzielone przecinkami), a następnie kliknij przycisk OK przycisk.

Uwaga: W tym przypadku wszystko „KTE” w tym dokumencie zostaną zastąpione "Nowy", i „KTO” i „KTW” zostanie zastąpiony przez "Test" i "Koniec". Zmień je zgodnie ze swoimi potrzebami.

Łatwo znajduj i zamieniaj wiele słów w tym samym czasie w programie Word dzięki niesamowitej funkcji

1. Uruchom aplikację Microsoft Word, kliknij Kutools Plus > Znajdź i zamień partii.

2. w Znajdź i zamień partii skonfiguruj w następujący sposób.

• 2.1 kliknij plik przycisk> Dodaj plik or Dodaj folder aby dodać jeden lub więcej dokumentów, w których znajdziesz i zastąpisz wiele słów.
  
• 2.2 Kliknij Dodaj wiersz aby wstawić pola wyszukiwania i zamieniania. Jeśli chcesz znaleźć i zamienić trzy różne teksty w tym samym czasie, utwórz trzy wiersze.
• 2.3 W każdym wierszu wprowadź istniejące słowa, które zastąpisz nowymi w Znajdź kolumnę, a następnie wprowadź nowe słowa do zastąpić Kolumna.
• 2.4 Określ plik Typ wyszukiwania dla każdego rzędu.
• 2.5 W Znaleźć w wybierz, gdzie zastosować wyszukiwanie i zamianę. Obejmuje Główny dokument, Nagłówek i Footer w tej sekcji. Możesz wybrać jeden z nich, dwa lub wszystkie w zależności od potrzeb.
• 2.6. Kliknij zastąpić przycisk, aby rozpocząć operację. Zobacz zrzut ekranu:

Następnie w wybranych dokumentach następuje jednoczesna zamiana określonych słów.

Wskazówka: Możesz wyróżnić wynik kolorem tła, określając określony kolor w Atrakcja kolumna za wiersz.

  Jeśli chcesz mieć bezpłatną wersję próbną (60 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

---

Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu

• Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
• Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
• Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
• Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
• Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...

Przeczytaj więcej Pobierz teraz Zakup