Note: The other languages of the website are Google-translated. Back to English

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

Podróż Ruta de la Plata w liczbach 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.


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 ...
Sortuj komentarze według
Komentarze (21)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Toto jsem hledal, jen potřebuji pro hledaný tekst přidat nějaké formátování. Jak toho dosáhnu?
Ten komentarz został zminimalizowany przez moderatora na stronie
czy to zadziała w biurze Excel 365?
Ten komentarz został zminimalizowany przez moderatora na stronie
Jakiś sposób na rozróżnienie wielkości liter?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, to działa dobrze z angielskimi słowami. Teraz robię dokument, w którym tłumaczę z angielskiego na gudżarati. Tak więc, kiedy zastosuję to (Znajdź angielskie słowa) i (Zastąp słowami gudżarati), to się zmienia, ale wygląda jak „???”. Nie pokazuje słowa gudżarati, ale tylko znaki zapytania? Jakaś dalsza pomoc? Proszę.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Shailesh, w obliczu tego samego problemu. Czy znalazłeś na to rozwiązanie. Próbuję też dowiedzieć się, jak przejść z chińskiego na angielski.
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak znaleźć i wybrać wiele słów jednocześnie
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Po uruchomieniu kodu pojawi się okno dialogowe Kutools for Excel, wprowadź znalezione słowa kluczowe i oddziel je przecinkami.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, jak można zmienić to makro, aby zawierało więcej słów kluczowych? Mam około 170 słów, które chciałbym znaleźć i zastąpić
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć JM,
Po uruchomieniu kodu pojawi się okno dialogowe Kutools for Excel, wprowadź znalezione słowa kluczowe i oddziel je przecinkami.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć! Po pierwsze, gratulacje za twoją pracę: to makro jest bardzo przydatne i interesujące! Chciałbym jednak, żebyś mi pomógł w jednej rzeczy. Jestem korektorem i chciałbym, aby zamienniki były podświetlone na zielono lub czerwono. W jaki sposób mogę to zrobić? Czy istnieje linia kodu, której mogę użyć?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Funkcja Batch Find and Replace w Kutools for Word może doskonale rozwiązać Twój problem, możesz spróbować.
Ten komentarz został zminimalizowany przez moderatora na stronie
Po naciśnięciu Zamień po prostu przechodzi do podglądu i nie robi nic więcej.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Ajs, Wszystkie wymagane słowa zostały pomyślnie zastąpione od razu po naciśnięciu przycisku Zamień. Przechodzi do zakładki Podgląd, aby dowiedzieć się, ile słów zostało pomyślnie zastąpionych. Następnie zamknij okno dialogowe.
Ten komentarz został zminimalizowany przez moderatora na stronie
A jeśli próbuję zastąpić przecinki?
Ten komentarz został zminimalizowany przez moderatora na stronie
Kod VBA nie może pomóc w zastąpieniu przecinków. Możesz zastosować Kutools do osiągnięcia.
Ten komentarz został zminimalizowany przez moderatora na stronie
W pierwszej instrukcji (Znajdź i zamień wiele słów w tym samym czasie w programie Word z kodem VBA) nie znajduje przypadków, w których słowo, które ma zostać zastąpione, znajduje się w środku słowa (na przykład .com po nazwie witryny internetowej) . Czy można to zmodyfikować, aby to zrobić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za projekt, czy mógłbyś zrobić to tak, że możemy również zamienić litery w słowach. Na przykład, jeśli chcę zmienić dolara na DoLLar, to nie działa.
Ten komentarz został zminimalizowany przez moderatora na stronie
l bạn, CO cach nào thay czw ROT NHIỀU CAM từ bằng RẤT NHIỀU CAM từ khac (nhập Từng CAM từ szczur MOT Thoi gian) Bằng Cach m 2 Trop Một, 1 CAM TU đich được không? rất cam ơn bạn.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Nguyễn Phúc Lâm,
Polecam zastosować funkcję Batch Find and Replace Kutools for Word (druga metoda w tym poście), aby rozwiązać ten problem.
W oknie dialogowym Znajdowanie i zamienianie po utworzeniu dwóch potrzebnych kolumn możesz zapisać bieżące ustawienia jako scenariusz do wykorzystania w przyszłości.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Ten komentarz został zminimalizowany przez moderatora na stronie
Cám n Crystal, cach này Có czw ap dụng Voi MOT số Lung nhỏ các CAM TU, Nuu Voi se Lung các CAM từ Ln (hon 1000, hn 10000 .. khìm t Vậy CO CACH nào khác không zakazu? Cam ơn bạn đã trả lời
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Nguyễn Phúc Lâm,
Tymczasowo nie mogę poradzić sobie z tym problemem z kodem VBA, ponieważ jest on nieco złożony. Ta funkcja zostanie rozważona do uaktualnienia w następnej wersji. Przepraszam za niedogodności.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL