کوکی ها به ما کمک خدمات ما ارائه کرده است. با استفاده از خدمات ما، شما را به استفاده ما از کوکی ها است.
نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از 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.
    Pia Wilson · 4 years ago
    What I am trying to replace is a web address on our standard documents. I tried just doing finding the web address within the hyperlink but its not working as although this text has changed the view when not toggled to see the field code is still showing the old address.

    [b]EG[/b]
    With Selection.Find
    .Text = "HYPERLINK ""http://www.testsite.co.uk"" " 'Find What
    .Replacement.Text = "HYPERLINK ""http://www.testtwo.co.uk"" " 'Replace With
  • To post as a guest, your comment is unpublished.
    Greg Simonis · 4 years ago
    When I run it, it gets hung up and stops at:
    Application.Run macroname:="NEWMACROS"
    and when I step into it, it tells me I have a Compile error: Named argument not found.
    Now what?
  • To post as a guest, your comment is unpublished.
    Jebidiah Springfield · 4 years ago
    Wow you are a saint for putting this macro together! I am listening to 'Epic Battle Music' on Songza because I am such an amatuer Macro-smith and it's the only way I can make it through the pain and agony of crafting programming spells.

    Anyway, my point I am going to make is a spent a lot of time on Friday troubleshooting the part where you actually put in the text you want to find and putting in the text you want to replace - I did not quite understand this part in terms of where I put my "find" word text and "replace" word text:

    [quote]Note:you can change the Text = "search”, Replacement.Text = "find” to specify the content to be searched and the content to be applied for replacement.
    [/quote]

    I read over this again today and I wish to respectfully clarify for other programming non-initiates - in the section of VBA where you have copied and pasted the original programming language, make sure you put an end ' after the [i]what [/i] and a ' after the [i]with[/i] (see example below) - in my example, I am looking for multiple documents to replace Pizza with Stromboli:

    .Text = "Pizza" 'Find What'
    .Replacement.Text = "Stromboli" 'Replace With'
  • To post as a guest, your comment is unpublished.
    James R · 4 years ago
    Could this VBA technique be adapted to work for Publisher files? For example by changing *.docx to *.pub ?
  • To post as a guest, your comment is unpublished.
    Patrick · 5 years ago
    When you run the macro, the "Open" window will open. Navigate to the folder that contains the files you need to make the change to, then click once on the first one, then, while holding down the "Ctrl" key, click on the other files also requiring the find/replace. If all files in the folder need the action, just press the "Ctrl" and "A" keys. Then click on "Open" or press the "Enter" key, and the macro will begin.

    I should warn you, as I've performed this dozens of times at work: The macro will result in the changes being made only to the *body* of the Word document; headers, footers, and title text/alt-text will be excluded. If you have text in the aforementioned portions that needs replacing, you will have to perform a standard find/replace across individual documents.