Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako vyhľadávať a nahrávať vo viacerých súboroch v slove?

Ak máte niekoľko desiatok súborov so súbormi, ktoré obsahujú rovnaký obsah (napríklad hlavička, päta, niektoré špeciálne slová alebo číslo) a musíte nahradiť ten istý obsah v týchto dokumentoch v programe Word. Ako by to bolo pre vás jednoduchšie, keby ste to urobili rýchlo? Samozrejme, môžete tieto súbory otvárať jeden po druhom, aby ste nahradili rovnaký obsah, ale bude to časovo náročné a nepríjemné. Tento výukový program vám ukáže, ako nahradiť rovnaký obsah vo viacerých dokumentoch v programe Word naraz.

Nájdite a nahraďte texty viacerými slovnými dokumentmi súčasne s kódom VBA


Jednoduché kombinovanie / zlúčenie viacerých dokumentov:

و Zlúčiť dokumenty užitočnosť Kutools pre Word vám môže pomôcť skombinovať viacero dokumentov do jedného. Stačí stačiť:

  • Vyberte dokumenty, ktoré budete kombinovať do jedného;
  • Zadajte prestávku medzi jednotlivými kombinovanými dokumentmi.
  • Začnite zlučovať. Pozri snímku obrazovky:

Kutools pre Word: s viac ako 100 užitočnými doplnkami programu Word, môžete skúsiť bez obmedzenia v dňoch 30. Stiahnite si bezplatnú skúšobnú verziu teraz!

Kutools pre Word: Pridať nové pokročilé funkcie 100 do programu Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Karta Office: Povoliť Úprava a prehliadanie v karte v kancelárii, Rovnako ako Chrome, Firefox, IE 8 / 9 / 10.
Klasická ponuka pre kanceláriu: Získajte starý vzhľad balíka Office 2003 do aplikácie Office 2007, 2010, 2013, 2016 a 2019.

Nájdite a nahraďte texty viacerými slovnými dokumentmi súčasne s kódom VBA

1. lis ostatné + F11 otvoriť Microsoft Visual Basic pre aplikácie okno.

2. V Microsoft Visual Basic pre aplikácie okno, kliknite na tlačidlo Vložiť > Moduly, potom skopírujte nasledujúci kód VBA do okna modulu.

Kód VBA: vyhľadávanie a nahradenie rovnakého obsahu vo viacerých dokumentoch naraz

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. Stlačte tlačidlo F5 kľúč na spustenie kódu.

4. V otvorení prezerať okno, nájdite a vyberte dokumenty, ktoré nájdete a nahraďte text vnútri a potom kliknite na tlačidlo OK Tlačidlo. Pozri snímku obrazovky:

5. V prvom Kutools pre Word dialógové okno zadajte text, ktorý nájdete medzi dokumentmi Nájsť to, čo a potom kliknite na tlačidlo OK tlačidlo.

6. V druhom Kutools pre Word dialógové okno zadajte text, ktorý chcete nahradiť, a kliknite na tlačidlo OK tlačidlo.

8. Kliknite na tlačidlo OK v ďalšom Microsoft Word dialógové okno dokončiť hľadanie a nahradiť.

V tomto prípade sú všetky slová "Word" vo vybratých dokumentoch nahradené súčasne "Excel".


Karta Office - Prehliadanie, editovanie a správa viacerých dokumentov v programe pomocou záložiek:

Karta Office prináša rozhranie s kartami, ako je vidieť vo webových prehliadačoch, ako sú prehliadače Google Chrome, nové verzie programu Internet Explorer a Firefox do aplikácie Microsoft Word. to vôľa je časovo úsporný nástroj a nenahraditeľný vo svojej práci. Pozrite si nižšie demo:

Kliknite na bezplatnú skúšobnú verziu aplikácie Office Tab!




Kutools pre Word

Viac ako rozšírené funkcie 100 pre aplikácie Word 2003, 2007, 2010, 2013, 2016 a 2019

Strela-Kutools-700-225, kt

Ďalšie funkcie | Bezplatné stiahnutie | Iba $ 39.00 pre stovky funkcií

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    martinadam · 2 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 3 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 4 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 11 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 1 years ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !