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
Połączenia Znajdź i zamień partii cechą Kutools dla Worda może pomóc w łatwym wyszukiwaniu i zastępowaniu różnych tekstów w dokumencie lub w wielu dokumentach jednocześnie.
Przed zastosowaniem tej funkcji poświęć kilka minut na pobierz i zainstaluj najpierw.
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...