Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako poiskati in zamenjati več datotek v besedilu?

Če imate več ducat besednih datotek, ki vsebujejo enako vsebino (na primer Glava, noga, nekatere posebne besede ali številko), morate v te dokumente v Wordu zamenjati isto vsebino. Kako bi bilo lažje, če bi ga hitro naredili? Seveda lahko te datoteke odprete eno za drugo, da zamenjate isto vsebino, vendar je zamudno in težavno. Ta vadnica vam bo pokazala zapleten način zamenjati isto vsebino v več dokumentih v Wordu hkrati.

Poiščite in zamenjajte besedila v več dokumentih hkrati s kodo VBA


Združite / združite več dokumentov v eno preprosto:

O Spoji dokumente uporabnost Kutools for Word vam lahko pomaga združiti več dokumentov v eno hitro. Morate samo:

  • Izberite dokumente, ki jih boste združili v eno;
  • Določite prelom med vsakim kombiniranim dokumentom;
  • Začnite združevati. Prikaz slike:

Kutools for Word: z več kot 100 priročnimi dodatki za Word, lahko brezplačno poskusite brez omejitev v 30 dneh. Prenesite in brezplačno preizkusite zdaj!

Kutools for Word: Dodaj nove napredne funkcije 100 v Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Omogoči Urejanje kartic in brskanje v Officeu, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Klasični meni za Office: Prinesi stari videz Office 2003 Nazaj v Office 2007, 2010, 2013, 2016 in 2019.

Poiščite in zamenjajte besedila v več dokumentih hkrati s kodo VBA

1. Pritisnite druga + F11 da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, potem v okno Modul kopirajte naslednjo kodo VBA.

VBA koda: iskanje in zamenjava iste vsebine v več dokumentih hkrati

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. Pritisnite F5 ključ za zagon kode.

4. V odprtju Brskanje okno, poiščite in izberite dokumente, ki jih boste našli, in zamenjate besedilo znotraj, nato pa kliknite OK gumb. Prikaz slike:

5. V prvem Kutools for Word V pogovornem oknu vnesite besedilo, ki ga najdete v dokumentih Našli kaj polje in nato kliknite OK gumb.

6. V drugem Kutools for Word V pogovornem oknu vnesite besedilo, ki ga boste zamenjali, in kliknite OK gumb.

8. Kliknite OK gumb v naslednjem Microsoft Word pogovorno okno za dokončanje iskanja in zamenjave.

V tem primeru so vse besede "Word" v izbranih dokumentih istočasno zamenjane z "Excel".


Office Tab - Brskanje, urejanje in upravljanje z več dokumenti v Wordu:

Office Tab prikaže vmesnik z zavihki, kot ga vidite v spletnih brskalnikih, kot so Google Chrome, nove različice programa Internet Explorer in Firefox v Microsoft Word. To bo biti varčevalno orodje in neupoštevanje vašega dela. Glej spodaj predstavitev:

Kliknite brezplačno preskusno različico Office Tab!




Kutools for Word

Več kot 100 napredne funkcije za Word 2003, 2007, 2010, 2013, 2016 in 2019

shot-kutools-700-225-kte

Več funkcij | Brezplačen prenos | Samo $ 39.00 za stotine funkcij

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.
    Nick · 2 years ago
    I am trying to add an entire section to a document that has three lines, bolding, and bullet points. Is there a way to keep that formatting when running the macro?
  • To post as a guest, your comment is unpublished.
    Tali1953 · 2 years ago
    To Merlin4099
    You have just saved my life (... time...) with you code !
    THANK YOU !!!
  • To post as a guest, your comment is unpublished.
    Jelena · 3 years ago
    Is it possible to change code and search and replace photo in multiply files?
  • To post as a guest, your comment is unpublished.
    fatma · 3 years ago
    this was sooo helpful, thank you very much! I have just changed the contents in 90 word files. This is amazing! Just one more tip: at the beginning close all open word documents but one of your file to be change.
  • To post as a guest, your comment is unpublished.
    Exis,LLC · 3 years ago
    You can use a program such as [url]www.officefindreplace.com[/url] to perform the same operation on multiple documents, or multiple operations on the same document. [url]www.officefindreplace.com[/url]