الكوكيز تساعدنا تقديم خدماتنا. باستخدام خدماتنا، فإنك توافق على استخدامنا لملفات تعريف الارتباط.
نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية البحث واستبدال عبر ملفات متعددة في كلمة؟

إذا كان لديك عدة عشرات من ملفات الكلمات التي تحتوي على نفس المحتوى (مثل رأس، تذييل، بعض الكلمات الخاصة أو رقم)، وتحتاج إلى استبدال نفس المحتوى عبر تلك الوثائق في ورد. كيف سيكون من الأسهل بالنسبة لك للحصول عليه القيام به بسرعة؟ بالتأكيد، يمكنك فتح تلك الملفات واحدا تلو الآخر لتحل محل نفس المحتوى، لكنه سيكون مضيعة للوقت ومزعجة. هذا البرنامج التعليمي سوف تظهر لك طريقة صعبة لتحل محل نفس المحتوى ضمن مستندات متعددة في ورد في وقت واحد.

يمكنك البحث عن النصوص واستبدالها عبر مستندات متعددة في نفس الوقت باستخدام شفرة VBA


ضم / دمج مستندات متعددة في واحدة بسهولة:

الفترة الزمنية الافتراضية دمج المستندات فائدة كوتولس للكلمة يمكن أن تساعدك على دمج وثائق متعددة في واحد بسرعة. تحتاج فقط إلى:

  • حدد الوثائق التي سوف تجمعها في واحدة.
  • حدد الفاصل بين كل مستند مدمج ؛
  • بدء الدمج. انظر لقطة للشاشة:

كوتولس للكلمة: مع أكثر من 100 مفيد الوظائف الإضافية في Word ، مجانا لمحاولة مع عدم وجود قيود في أيام 30. تحميل وتجريبية مجانية الآن!

كوتولس للكلمة: إضافة شنومك الميزات المتقدمة الجديدة إلى Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
تبويب أوفيس: تمكين تحرير كلفه وتصفحه في أوفيس، تماما مثل كروم، فايرفوكس، إي شنومكس / شنومكس / شنومكس.
القائمة الكلاسيكية للمكتب: جلب نظرة قديمة من مكتب شنومك الظهر إلى Office 2007 و 2010 و 2013 و 2016 و 2019.

يمكنك البحث عن النصوص واستبدالها عبر مستندات متعددة في نفس الوقت باستخدام شفرة VBA

1. صحافة قديم + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ التعليمات البرمجية لـ 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. في الاول كوتولس للكلمة في مربع الحوار ، أدخل النص الذي ستجده عبر المستندات في تجد ما مربع، ثم انقر فوق OK .

6. في الثانية كوتولس للكلمة مربع الحوار ، أدخل النص الذي سيتم استبداله ، وانقر فوق OK .

8. انقر فوق OK زر في القادم ميكروسوفت ورد مربع الحوار لإنهاء البحث واستبداله.

في هذه الحالة ، يتم استبدال كافة الكلمات "Word" في المستندات المحددة بـ "Excel" في نفس الوقت.


تبويب أوفيس - الاستعراض المبوب ، وتحرير ، وإدارة مستندات متعددة في Word:

يجلب Office Tab الواجهة المبوبة كما تظهر في متصفحات الويب مثل Google Chrome والإصدارات الجديدة من Internet Explorer و Firefox إلى Microsoft Word. هذا سوف أن يكون أداة لتوفير الوقت و irreplaceble في عملك. انظر أدناه العرض التوضيحي:

انقر على نسخة تجريبية مجانية من تبويب أوفيس!




كوتولس للكلمة

أكثر من 100 Advanced Functions لكل من Word 2003 و 2007 و 2010 و 2013 و 2016 و 2019

بالرصاص kutools-700-225-KTE

المزيد من الميزات | تحميل مجانا | فقط شنومكس $ لمئات من الوظائف

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.
    Merlin4099 · 3 years ago
    ' --- Beging body text replacemnt 3 ---
    With Selection.Find
    .Text = "leadership" ' Find What
    .Replacement.Text = "supervision" ' Replace With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ' --- End body text replacemnt 3 ---

    Application.Run macroname:="NEWMACROS"
    ActiveDocument.Save
    ActiveWindow.Close
    ' -------------------------------------------------------
    ' End of Body Updates
    ' -------------------------------------------------------
    Next

    Application.ScreenUpdating = True

    End With

    MsgBox "operation end, please view", vbInformation

    End Sub
    • To post as a guest, your comment is unpublished.
      Ravini · 2 years ago
      To Merlin4099
      Wonderful code - thank you!! worked perfectly in executing what I needed.
  • To post as a guest, your comment is unpublished.
    Merlin409 · 3 years ago
    ' --- Beging body text replacemnt 1 ---
    With Selection.Find
    .Text = "Body text 1" ' Find What
    .Replacement.Text = "BT1" ' Replace With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ' --- Beging body text replacemnt 1 ---

    ' --- Beging body text replacemnt 2 ---
    With Selection.Find
    .Text = "membership" ' Find What
    .Replacement.Text = "team members" ' Replace With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ' --- End body text replacemnt 2 ---
  • To post as a guest, your comment is unpublished.
    Merlin409 · 3 years ago
    ' --- Beging header text replacemnt 2 ---
    With Selection.Find
    .Text = "Header String 2" ' Find What
    .Replacement.Text = "HReplacement 2" ' Replace With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False

    If .Found = True Then
    ChangeMade = True
    End If

    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ' --- Beging header text replacemnt 2 ---

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ' ------------------------------------------------------
    ' End of Header Updates
    ' ------------------------------------------------------


    ' -------------------------------------------------------
    ' Beginning of Body Updates
    ' -------------------------------------------------------
    Windows(GetStr(j)).Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ' Delete additional body replacement blocks if
    ' not needed or copy/paste additional blocks if
    ‘ required.
    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  • To post as a guest, your comment is unpublished.
    Merlin409 · 3 years ago
    ' --- Beging header text replacemnt 1 ---
    With Selection.Find
    .Text = "Header String 1" ' Find What
    .Replacement.Text = "HReplacement 1" ' Replace With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False

    If .Found = True Then
    ChangeMade = True
    End If

    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ' --- End header text replacemnt 1 ---
  • To post as a guest, your comment is unpublished.
    Merlin409 · 3 years ago
    Sub Search_and_Replace()

    ' 500 files is the maximum applying this code
    Dim MyDialog As FileDialog, GetStr(1 To 500) As String

    On Error Resume Next

    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)

    ' ---------------------------------------------------------------
    ' *.doc? allows processing of *.doc and *.docx files.
    ' ---------------------------------------------------------------
    With MyDialog
    .Filters.Clear
    .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)

    ' -------------------------------------------------------
    ' Beginning Header Updates
    ' -------------------------------------------------------
    Windows(GetStr(j)).Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    If ActiveWindow.View.SplitSpecial wdPaneNone Then
    ActiveWindow.Panes(2).Close
    End If

    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
    End If

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting