نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

چطور جستجو و جایگزین کردن در چندین فایل در کلمه؟

اگر چندین فایل ده کلمه دارید که حاوی همان محتوای هستند (مانند سرصفحه، پاورقی، برخی از کلمات یا عدد خاص)، و شما باید همان محتوای را در آن اسناد در Word جایگزین کنید. چگونه می توان آن را به سرعت انجام داد؟ مطمئنا شما می توانید این فایل ها را یک به یک برای جایگزینی همان محتوای باز کنید، اما زمان و صرفه جویی خواهد بود. این آموزش یک راه حقه ای برای جایگزین محتوای مشابه در چندین اسناد در Word در یک بار نشان می دهد.

با استفاده از کد VBA، همزمان با استفاده از متدها و اسناد کلمه، متون را پیدا کنید و جایگزین کنید


ترکیب / ادغام اسناد متعدد به راحتی:

La ادغام اسناد سودمندی Kutools برای ورد می تواند به شما کمک کند تا چندین اسناد را به سرعت ترکیب کنید. شما فقط باید:

  • اسناد را انتخاب کنید که به یک ترکیب می کنید.
  • تعریف بین هر سند ترکیبی را مشخص کنید
  • شروع ادغام تصویر را ببینید:

Kutools برای ورد: با بیش از 100 افزونه های Word مفید، بدون هیچ محدودیتی در روزهای 30 آزاد کنید. دانلود و محاکمه آزاد اکنون!

Kutools برای ورد: اضافه کردن ویژگی های پیشرفته جدید 100 به ورد 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
دفتر تب: فعال کردن ویرایش و مرور Tabbed در دفتر، درست مانند Chrome، Firefox، IE 8 / 9 / 10.
منوی کلاسیک برای دفتر: نگاه قدیم دفتر 2003 Back را بیابید به دفتر 2007، 2010، 2013، 2016 و 2019.

با استفاده از کد VBA، همزمان با استفاده از متدها و اسناد کلمه، متون را پیدا کنید و جایگزین کنید

1 مطبوعات دگرساز + F11 برای باز کردن مایکروسافت ویژوال بیسیک برای برنامه پنجره.

2. در مایکروسافت ویژوال بیسیک برای برنامه پنجره، بر روی قرار دادن > ماژول ها، سپس کد VBA زیر را در پنجره Module کپی کنید.

VBA Code: جستجو و جایگزین محتوای مشابه در چندین اسناد در یک زمان

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 برای ورد کادر محاوره ای، متن را که در سراسر اسناد پیدا می کنید وارد کنید چه چیز را پیدا کنم جعبه، و سپس کلیک کنید OK را فشار دهید.

6 در دوم Kutools برای ورد کادر محاوره ای، متن را که جایگزین می کنید وارد کنید و روی آن کلیک کنید OK را فشار دهید.

8. کلیک کنید بر روی OK دکمه بعدی را بزنید مایکروسافت ورد کادر گفت و گو برای پیدا کردن و جایگزینی کردن.

در این مورد، تمام کلمات "کلمه" در اسناد انتخاب شده در همان زمان با "اکسل" جایگزین می شوند.


دفتر تب - نوارابزار مرور، ویرایش و مدیریت چندین اسناد در ورد:

دفترچه یادداشت رابط کاربری tabbed را در مرورگرهای وب مانند Google Chrome، نسخه های جدید اینترنت اکسپلورر و فایرفاکس به مایکروسافت ورد نشان می دهد. آی تی اراده یک ابزار صرفه جویی در زمان و غیر قابل تغییر در کار خود است. نسخه ی نمایشی زیر را ببینید:

برای آزمایش رایگان Office Tab کلیک کنید




Kutools برای ورد

بیش از توابع پیشرفته 100 برای ورد 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.
    Exis,LLC · 3 years ago
    You can use a program such as [url]www.officefindreplace.com[/url] to perform the same operation on multiple documents, or multiple operations on the same document. [url]www.officefindreplace.com[/url]
  • 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 ---