Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

Jak wyszukiwać i zamieniać wiele plików w słowie?

Jeśli masz kilkadziesiąt plików ze słowami, które zawierają tę samą zawartość (na przykład nagłówek, stopka, kilka specjalnych słów lub liczba) i musisz zamienić tę samą zawartość w tych dokumentach w programie Word. Jak byłoby ci łatwiej zrobić to szybko? Z pewnością możesz otwierać te pliki jeden po drugim, aby zastąpić tę samą zawartość, ale będzie to czasochłonne i kłopotliwe. Ten samouczek pokaże ci trudny sposób na zastąpienie tej samej treści w wielu dokumentach w programie Word jednocześnie.

Znajdź i zamień teksty w wielu dokumentach tekstowych w tym samym czasie za pomocą kodu VBA
Łatwo znajduj i zamieniaj różne teksty w wielu dokumentach w tym samym czasie za pomocą Kutools for Word


Znajdź i zamień teksty w wielu dokumentach tekstowych w tym samym czasie za pomocą kodu VBA

1. naciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawkaModuł, a następnie skopiuj następujący kod VBA do okna Module.

Kod VBA: wyszukiwanie i zastępowanie tej samej treści w wielu dokumentach jednocześnie

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. wciśnij F5 klucz do uruchomienia kodu.

4. W otwarciu Przeglądaj znajdź i wybierz dokumenty, które znajdziesz i zamień tekst w środku, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

5. W pierwszym Kutools dla Worda W oknie dialogowym wprowadź tekst, który znajdziesz w dokumentach do pliku Znajdź co a następnie kliknij OK przycisk.

6. W sekundę Kutools dla Worda wprowadź tekst, który chcesz zamienić, i kliknij OK przycisk.

8. Kliknij OK przycisk w następnym Microsoft Word okno dialogowe, aby zakończyć wyszukiwanie i zamianę.

W tym przypadku wszystkie słowa „Word” w wybranych dokumentach są jednocześnie zastępowane słowami „Excel”.


Łatwo znajduj i zamieniaj różne teksty w wielu dokumentach w tym samym czasie za pomocą Kutools for Word

Tutaj bardzo polecam Znajdź i zamień partii cechą Kutools dla Worda. Dzięki tej funkcji możesz łatwo znajdować i zastępować różne teksty w wielu dokumentach Word w tym samym czasie. Zobaczmy, jak zastosować tę funkcję, aby znaleźć i zamienić teksty w dokumentach.

Kutools dla Worda : z ponad 100 przydatnymi dodatkami do Worda, bezpłatnie wypróbować bez ograniczeń w ciągu 60 dni.

1. Proszę kliknąć Kutools Plus > Znajdź i zamień partii aby włączyć tę funkcję.

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

  • 2.1) Kliknij Dodaj wiersz przycisk pod Znajdowanie i zamienianie patka;
  • 2.2) W utworzonych polach wierszy:
A. Wprowadź tekst, który znajdziesz w polu tekstowym w Znajdź kolumna
B. Wpisz tekst, którym chcesz zastąpić, w polu tekstowym w zastąpić kolumna;
C. Określ typ wyszukiwania, gdzie znaleźć tekst i kolor, aby wyróżnić tekst według potrzeb. W tym przypadku wybieram Pełne dopasowanie słów, Główny dokument i określony kolor z Typ wyszukiwania, Znaleźć w i Atrakcja kolumny;
  • 2.3) Powtórz kroki 2.1 i 2.2, aby dodać więcej tekstów, które znajdziesz i zastąpisz;
  • 2.4) Kliknij  przycisk w Typ Pliku sekcja, aby dodać dokumenty Worda, w których znajdziesz i zamieniasz teksty;
  • 2.5) Kliknij zastąpić or Znajdź przycisk. Zobacz zrzut ekranu:

Uwagi:
1. Jeśli klikniesz Znajdź wszystkie wyniki wyszukiwania zostaną wyświetlone pod przyciskiem Wynik podglądu patka. Po przejrzeniu wyników, jeśli chcesz zamienić wszystkie teksty, kliknij Znajdowanie i zamienianie patka. W przeciwnym razie zamknij okno dialogowe.

2. Jeśli klikniesz zastąpić przycisk, wszystkie określone teksty zostaną natychmiast zastąpione nowymi, a wyniki będą również wyświetlane pod Wynik podglądu patka.

3. Jeśli określisz kolory podświetlenia w kroku 2, wszystkie zastąpione teksty zostaną wyróżnione określonymi kolorami i można je łatwo znaleźć na pierwszy rzut oka w dokumentach.

3. Zamknij Znajdź i zamień partii Okno dialogowe

Aby uzyskać więcej informacji na temat tej funkcji, proszę Kliknij tutaj....

Jeśli chcesz skorzystać z bezpłatnej wersji próbnej tego narzędzia, przejdź do bezpłatnie pobrać oprogramowanie najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.



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

 

Kutools For Word - więcej niż 100 zaawansowanych funkcji dla 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 ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jebidiah Springfield · 7 years ago
    Wow you are a saint for putting this macro together! I am listening to 'Epic Battle Music' on Songza because I am such an amatuer Macro-smith and it's the only way I can make it through the pain and agony of crafting programming spells.

    Anyway, my point I am going to make is a spent a lot of time on Friday troubleshooting the part where you actually put in the text you want to find and putting in the text you want to replace - I did not quite understand this part in terms of where I put my "find" word text and "replace" word text:

    [quote]Note:you can change the Text = "search”, Replacement.Text = "find” to specify the content to be searched and the content to be applied for replacement.
    [/quote]

    I read over this again today and I wish to respectfully clarify for other programming non-initiates - in the section of VBA where you have copied and pasted the original programming language, make sure you put an end ' after the [i]what [/i] and a ' after the [i]with[/i] (see example below) - in my example, I am looking for multiple documents to replace Pizza with Stromboli:

    .Text = "Pizza" 'Find What'
    .Replacement.Text = "Stromboli" 'Replace With'
  • To post as a guest, your comment is unpublished.
    James R · 7 years ago
    Could this VBA technique be adapted to work for Publisher files? For example by changing *.docx to *.pub ?
  • To post as a guest, your comment is unpublished.
    Patrick · 7 years ago
    When you run the macro, the "Open" window will open. Navigate to the folder that contains the files you need to make the change to, then click once on the first one, then, while holding down the "Ctrl" key, click on the other files also requiring the find/replace. If all files in the folder need the action, just press the "Ctrl" and "A" keys. Then click on "Open" or press the "Enter" key, and the macro will begin.

    I should warn you, as I've performed this dozens of times at work: The macro will result in the changes being made only to the *body* of the Word document; headers, footers, and title text/alt-text will be excluded. If you have text in the aforementioned portions that needs replacing, you will have to perform a standard find/replace across individual documents.
  • To post as a guest, your comment is unpublished.
    Alison Pepper · 7 years ago
    Yes I have the same question as i think this would be useful but want to tell it to only look in certain folders.
  • To post as a guest, your comment is unpublished.
    Bobette · 7 years ago
    Will it ask where the documents in question are located? Or do all the documents need to be open?
    • To post as a guest, your comment is unpublished.
      PatrickRsGhost · 6 years ago
      When you run it, by default it will open up the "Open File" dialogue window to "My Documents". Navigate to the folder that contains the Word files you wish to make the changes to. You can press "Ctrl" + "A" to select all files, or hold down the "Ctrl" key while selecting certain files. Click on "Open" or press "Enter" and watch the magic happen.