טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד לחפש ולהחליף על פני מספר קבצים במילה?

אם יש לך כמה עשרות קבצי Word המכילים את אותו תוכן (כגון כותרת, כותרת תחתונה, מספר מילים או מספר מיוחד), ועליך להחליף את אותו תוכן במסמכים אלה ב- Word. איך יהיה לך קל יותר לעשות את זה במהירות? אין ספק, אתה יכול לפתוח את הקבצים אחד אחד כדי להחליף את אותו תוכן, אבל זה יהיה זמן רב מטריד. הדרכה זו תציג לך דרך מסובכת להחליף את אותו תוכן בתוך מסמכים מרובים ב- Word בבת אחת.

מצא והחלף טקסטים במסמכי Word מרובים בו-זמנית עם קוד VBA


לשלב / למזג מספר מסמכים לתוך אחד בקלות:

ה מיזוג מסמכים השירות של Kutools עבור Word יכול לעזור לך לשלב מסמכים מרובים לתוך אחד במהירות. אתה רק צריך:

  • בחר את המסמכים תוכלו לשלב לתוך אחד;
  • ציין את ההפסקה בין כל מסמך משולב;
  • התחל להתמזג. ראה צילום מסך:

Kutools עבור Word: עם יותר מ 100 שימושי Word תוספות, ללא תשלום כדי לנסות ללא הגבלה 30 ימים. הורד ניסיון ללא תשלום עכשיו!

Kutools עבור Word: הוסף 100 תכונות מתקדמות חדשות Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
הכרטיסייה 'משרד': הפעל עריכת לשוניות וגלישה ב- Office, בדיוק כמו Chrome, Firefox, IE 8 / 9 / 10.
תפריט קלאסי עבור Office: להביא מבט ישן של Office 2003 בחזרה אל 2007, 2010, 2013, 2016 ו- 2019.

מצא והחלף טקסטים במסמכי Word מרובים בו-זמנית עם קוד 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" באותו זמן.


הכרטיסייה 'משרד' - גלישה באמצעות כרטיסיות, עריכה וניהול של מסמכים מרובים ב- Word:

הכרטיסייה 'משרד' מביאה את הממשק עם לשוניות כמו בדפדפני אינטרנט כגון Google Chrome, גרסאות חדשות של Internet Explorer ו- Firefox ל- Microsoft Word. זה רצון להיות כלי חסכון בזמן ו חסר תחליף בעבודה שלך. ראה להלן הדגמה:

לחץ על ניסיון ללא תשלום של הכרטיסייה Office!




Kutools עבור Word

יותר מ- 100 פונקציות מתקדמות עבור Word 2003, 2007, 2010, 2013, 2016 ו- 2019

shot-kutools-700-225-kte

תכונות נוספות | הורדה חינמית | רק 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. :(