نصيحة: اللغات الأخرى مترجمة من قبل 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.
    Alison Pepper · 5 years ago
    Yes I have the same question as i think this would be useful but want to tell it to only look in certain folders.
  • To post as a guest, your comment is unpublished.
    Bobette · 5 years ago
    Will it ask where the documents in question are located? Or do all the documents need to be open?
    • To post as a guest, your comment is unpublished.
      PatrickRsGhost · 4 years ago
      When you run it, by default it will open up the "Open File" dialogue window to "My Documents". Navigate to the folder that contains the Word files you wish to make the changes to. You can press "Ctrl" + "A" to select all files, or hold down the "Ctrl" key while selecting certain files. Click on "Open" or press "Enter" and watch the magic happen.