Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Πώς να αναζητήσετε και να αντικαταστήσετε σε πολλά αρχεία με λέξεις;

Αν έχετε αρκετές δεκάδες αρχεία λέξεων που περιέχουν το ίδιο περιεχόμενο (όπως Κεφαλίδα, υποσέλιδο, μερικές ειδικές λέξεις ή αριθμοί) και πρέπει να αντικαταστήσετε το ίδιο περιεχόμενο σε αυτά τα έγγραφα στο Word. Πώς θα ήταν πιο εύκολο για εσάς να το κάνετε γρήγορα; Βεβαίως, μπορείτε να ανοίξετε αυτά τα αρχεία μία προς μία για να αντικαταστήσετε το ίδιο περιεχόμενο, αλλά θα χρονοβόρα και ενοχλητικά. Αυτό το σεμινάριο θα σας δείξει έναν δύσκολο τρόπο να αντικαταστήσετε το ίδιο περιεχόμενο σε πολλά έγγραφα στο Word ταυτόχρονα.

Βρείτε και αντικαταστήστε κείμενα σε έγγραφα πολλών λέξεων ταυτόχρονα με τον κώδικα VBA


Συνδυασμός / συγχώνευση πολλών εγγράφων σε ένα εύκολα:

ο Συγχώνευση εγγράφων χρησιμότητα του Kutools για το Word μπορεί να σας βοηθήσει να συνδυάσετε γρήγορα πολλά έγγραφα σε ένα. Απλά πρέπει να:

  • Επιλέξτε τα έγγραφα που θα συνδυάσετε σε ένα.
  • Καθορίστε το διάλειμμα μεταξύ κάθε συνδυασμένου εγγράφου.
  • Ξεκινήστε τη συγχώνευση. Δείτε το στιγμιότυπο οθόνης:

Kutools για το Word: με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν να δοκιμάσετε χωρίς περιορισμό σε 30 ημέρες. Λήψη και δοκιμή δωρεάν τώρα!

Kutools για το Word: Προσθέστε τις νέες προηγμένες λειτουργίες 100 στο Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Καρτέλα Office: Επιτρέπω Επεξεργασία με καρτέλες και περιήγηση στο Office, Ακριβώς όπως Chrome, Firefox, IE 8 / 9 / 10.
Κλασικό μενού για το Office: Φέρτε παλιά εμφάνιση του Office 2003 Πίσω σε Office 2007, 2010, 2013, 2016 και 2019.

Βρείτε και αντικαταστήστε κείμενα σε έγγραφα πολλών λέξεων ταυτόχρονα με τον κώδικα VBA

1. Τύπος άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο της ενότητας.

Κωδικός VBA: Αναζήτηση και αντικατάσταση ίδιου περιεχομένου σε πολλά έγγραφα ταυτόχρονα

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. Πάτα το F5 για να εκτελέσετε τον κώδικα.

4. Στο άνοιγμα Αναζήτηση παράθυρο, βρείτε και επιλέξτε τα έγγραφα που θα βρείτε και αντικαταστήστε το κείμενο μέσα και στη συνέχεια κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

5. Κατά την πρώτη Kutools για το Word , εισαγάγετε το κείμενο που θα βρείτε στα έγγραφα μέσα στο βρείτε αυτό , και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί.

6. Στο δεύτερο Kutools για το Word , εισαγάγετε το κείμενο που θα αντικαταστήσετε και κάντε κλικ στο OK κουμπί.

8. Κάντε κλικ στο κουμπί OK στο επόμενο κουμπί Το Microsoft Word για να ολοκληρώσετε το εύρημα και να αντικαταστήσετε.

Σε αυτή την περίπτωση, όλες οι λέξεις "Word" σε επιλεγμένα έγγραφα αντικαθίστανται ταυτόχρονα με το "Excel".


Καρτέλα Office - Περιήγηση με καρτέλες, επεξεργασία και διαχείριση πολλών εγγράφων στο Word:

Το Tab του Office φέρνει τη διεπαφή με καρτέλες όπως φαίνεται στα προγράμματα περιήγησης ιστού, όπως το Google Chrome, οι νέες εκδόσεις του Internet Explorer και το Firefox στο Microsoft Word. Το θα να είναι ένα εργαλείο εξοικονόμησης χρόνου και αναντικατάστατο στην εργασία σας. Δείτε παρακάτω demo:

Κάντε κλικ για δωρεάν δοκιμή του Tab του Office!




Kutools για το Word

Περισσότερες από τις προχωρημένες λειτουργίες 100 για Word 2003, 2007, 2010, 2013, 2016 και 2019

shot-kutools-700-225-ud

περισσότερα Χαρακτηριστικά | Δωρεάν κατέβασμα | Μόνο $ 39.00 για εκατοντάδες λειτουργίες

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.
    Tiago · 23 days ago
    Is it possible to replace in the headers of the word doc?
    • To post as a guest, your comment is unpublished.
      crystal · 20 days ago
      Hi Tiago,
      Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.

      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"
      If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
      ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      End If
      ActiveDocument.Save
      ActiveWindow.Close
      Next
      Application.ScreenUpdating = True
      End With
      MsgBox "Operation end, please view", vbInformation
      End Sub
  • To post as a guest, your comment is unpublished.
    dsadasd · 23 days ago
    Is that possible to replace in the header of the word doc?
  • To post as a guest, your comment is unpublished.
    martinadam · 3 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    nathalie · 5 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.
      crystal · 20 days ago
      Hi,
      Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.

      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"
      If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
      ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
      Selection.Find.Execute Replace:=wdReplaceAll
      Application.Run macroname:="NEWMACROS"
      End If
      ActiveDocument.Save
      ActiveWindow.Close
      Next
      Application.ScreenUpdating = True
      End With
      MsgBox "Operation end, please view", vbInformation
      End Sub
  • To post as a guest, your comment is unpublished.
    blds · 1 years 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. :(