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.

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość  /  Przepisz tekst  /  Podsumowanie dokumentów  /  Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie...

✏ Edycja treści: Znajdź i zamień partii w wielu plikach  /  Zmień rozmiar wszystkich zdjęć  /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie  /  Podziały sekcji  /  Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

➕ Kreatywne wstawki: Wstawić Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀

Darmowe pobieranie     Czytaj więcej     Kup teraz