Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak vyhledávat a nahrazovat více souborů ve slově?

Pokud máte několik desítek slovních souborů, které obsahují stejný obsah (například záhlaví, zápatí, nějaká speciální slova nebo číslo) a je třeba nahradit stejný obsah v těchto dokumentech v aplikaci Word. Jak by bylo pro vás snadnější to udělat rychle? Samozřejmě můžete tyto soubory otevírat jeden po druhém, abyste nahradili stejný obsah, ale bude to časově náročné a obtížné. Tento tutoriál vám ukáže choulostivý způsob, jak nahradit stejný obsah ve více dokumentech v aplikaci Word najednou.

Najděte a nahraďte texty více slovních dokumentů najednou pomocí kódu VBA


Jednoduché kombinování / sloučení několika dokumentů do jednoho:

Společnost Sloučit dokumenty užitečnost Kutools pro Word vám může pomoci rychle kombinovat více dokumentů do jednoho. Musíte pouze:

  • Vyberte dokumenty, které budete kombinovat do jednoho;
  • Zadejte přerušení mezi jednotlivými kombinovanými dokumenty;
  • Začněte sloučit. Zobrazit screenshot:

Kutools pro Word: s více než 100 praktickými doplňky ve Word, můžete zkusit bez omezení v 30 dnech. Stáhněte si bezplatnou zkušební verzi teď!

Kutools pro Word: Přidat nové pokročilé funkce 100 do aplikace Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Karta Office: Povolit Úpravy a prohlížení v okně Office, Stejně jako Chrome, Firefox, IE 8 / 9 / 10.
Klasická nabídka pro kancelář: Přineste starý pohled na Office 2003 Zpět na sady Office 2007, 2010, 2013, 2016 a 2019.

Najděte a nahraďte texty více slovních dokumentů najednou pomocí kódu VBA

1. lis Další + F11 k otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, zkopírujte následující kód VBA do okna Modul.

Kód VBA: Vyhledávání a nahrazování stejného obsahu ve více dokumentech najednou

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. zmáčkni F5 pro spuštění kódu.

4. V úvodu Procházet okno, vyhledejte a vyberte dokumenty, které najdete a nahraďte text uvnitř, a potom klepněte na tlačítko OK tlačítko. Zobrazit screenshot:

5. Zaprvé Kutools pro Word do textového pole zadejte text, který naleznete v dokumentech Najít to, co a potom klepněte na tlačítko OK tlačítko.

6. Ve druhé Kutools pro Word dialogové okno, zadejte text, který chcete nahradit, a klepněte na tlačítko OK tlačítko.

8. Klepněte na tlačítko OK v dalším Microsoft Word dialogové okno dokončete hledání a vyměňte.

V tomto případě jsou všechna slova "Word" ve vybraných dokumentech nahrazena současně "Excel".


Karta Office - Prohlížení v kartě, úpravy a správa více dokumentů v aplikaci Word:

Záložka Office přináší rozhraní s kartami, jak je vidět na webových prohlížečích, jako je Google Chrome, nová verze aplikace Internet Explorer a Firefox do aplikace Microsoft Word. To vůle být časově úsporný nástroj a nenahraditelný ve vaší práci. Pod demo:

Klikněte na bezplatné zkušební verzi aplikace Office Tab!




Kutools pro Word

Více než rozšířené funkce 100 pro aplikace Word 2003, 2007, 2010, 2013, 2016 a 2019

shot-kutools-700-225-kte

Více funkcí | Stažení zdarma | Pouze $ 39.00 pro stovky funkcí

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 !