Τα cookies μάς βοηθούν να παρέχουμε τις υπηρεσίες μας. Με τη χρήση των υπηρεσιών μας, συμφωνείτε με τη χρήση των cookies.
Συμβουλή: Άλλες γλώσσες μεταφράζονται από την 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.
    Pia · 4 years ago
    It only runs across selected files and files must be in one folder only. This is run as a macro in a word doc. It is run from clicking a button. It only updates word doc's Hope this helps.


    Private Sub CommandButton1_Click()
    Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
    On Error Resume Next
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
    .Filters.Clear
    '~~> Change this file extention to the relevant doc type.
    .Filters.Add "All WORD File ", "*.doc", 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
    For j = 1 To i Step 1
    Set doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
    Windows(GetStr(j)).Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    For i = 1 To doc.Hyperlinks.Count
    'If the hyperlink matches.
    If LCase(doc.Hyperlinks(i).Address) = "http://www.yahoo.co.uk/" Then
    'Change the links address.
    doc.Hyperlinks(i).Address = "https://www.google.co.uk"
    'Change the links display text if desired.
    doc.Hyperlinks(i).TextToDisplay = "www.google.co.uk"
    End If
    Next
    Application.Run macroname:="NEWMACROS"
    ActiveDocument.Save
    ActiveDocument.Close
    Next
    Application.ScreenUpdating = True
    End With
    MsgBox "operation end, please view", vbInformation
    End Sub
  • To post as a guest, your comment is unpublished.
    Pia Wilson · 4 years ago
    You then add one of the following two sections depending on if it is test or hyperlink to be replaced

    '~~> This section if uncommented will replace text - ONLY ONE OF TWO SECTIONS CAN BE UNCOMMENTED AT ONCE


    With Selection.Find
    .Text = "www.google.co.uk" 'Find What
    .Replacement.Text = "www.google.com" '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
    ActiveDocument.Close
    Next
    Application.ScreenUpdating = True
    End With
    MsgBox "operation end, please view", vbInformation


    '~~> This section if uncommented will replace hyperlinks
    'For i = 1 To doc.Hyperlinks.Count
    ' 'If the hyperlink matches.
    ' If LCase(doc.Hyperlinks(i).Address) = "http://www.google.co.uk/" Then
    ' 'Change the links address.
    ' doc.Hyperlinks(i).Address = "https://www.google.com"
    ' 'Change the links display text if desired.
    ' doc.Hyperlinks(i).TextToDisplay = "www.google.com"
    ' End If
    ' Next
    'Application.Run macroname:="NEWMACROS"
    'ActiveDocument.Save
    'ActiveDocument.Close
    'Next
    'Application.ScreenUpdating = True
    'End With
    'MsgBox "operation end, please view", vbInformation



    End Sub
    • To post as a guest, your comment is unpublished.
      segarn · 4 years ago
      Hi Pia,
      I am trying to run your script for replacing hyperlinks but am getting errors. Any chance you can post the script for replacing hyperlinks all in 1 piece? I must be messing something up when trying to patch your code together.
  • To post as a guest, your comment is unpublished.
    Pia Wilson · 4 years ago
    This is what finally worked for me. I hope it helps. I added this macro to a word file. It will run the replace any documents selected (you can select as many as you like) when the file dialoge is open. It wont work on sub folders so I did each folder in the file structure individually but it worked.It may not be the best fix but it works at least.


    Private Sub CommandButton1_Click()
    Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
    On Error Resume Next
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
    .Filters.Clear
    '~~> Change this file extention to the relevant doc type.
    .Filters.Add "All WORD File ", "*.doc", 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
    For j = 1 To i Step 1
    Set doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
    Windows(GetStr(j)).Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    'Section then either one or the other of sections of code to follow.
  • To post as a guest, your comment is unpublished.
    Greg Simonis · 4 years ago
    I still cannot get this to work on my PC running Windows 7.
    When I run it, I get an error msg at the line:
    -Windows(GetStr(j)).Activate
    The error msg. is:
    -Compile error:
    -Sub or Function not defined
    Any idea why? And how to fix it?
  • To post as a guest, your comment is unpublished.
    Muralisk · 4 years ago
    Worked like a charm and it did save a lot of time and effort for me. Thanks.