Cookies bizim xidmətlər təqdim kömək edir. Bizim xidmətlərimizdən istifadə edərək, siz cookies bizim istifadə razıyam.
İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Axtarışda birdən çox fayl arasında axtarış və əvəz etmək necədir?

Eyni məzmunu olan (üstbilgi, altbilgi, bəzi xüsusi sözlər və ya nömrələr kimi) bir neçə düzəldilmiş sözlü fayllarınız varsa və Worddə olan həmin sənədlər arasında eyni məzmunu dəyişdirməlisiniz. Bunu tez bir zamanda almaq üçün necə asan olardı? Əlbəttə ki, eyni məzmunu əvəz etmək üçün həmin faylları tək-tək aça bilərsiniz, ancaq vaxt alıcı və çətin olacaq. Bu dərslik eyni anda birdən çox sənəddə eyni məzmunu əvəz etmək üçün çətin bir yol göstərəcəkdir.

VBA koduyla eyni anda birdən çox söz sənədləri arasında mətnləri tapın və dəyişdirin


Birdən çox sənədləri asanlıqla birləşdirin / birləşdirin:

The Sənədləri birləşdirin faydası Word üçün Kutools birdən çox sənədləri tez birləşdirməyə kömək edə bilər. Sadəcə olaraq:

  • Birinə birləşdirəcək sənədləri seçin;
  • Birləşdirilmiş hər bir sənəd arasında ara verməni göstərin;
  • Birləşməyə başlayın. Ekran görüntüsünə baxın:

Word üçün Kutools: 100-dən çox 30 lazımlı Word eklentisi ilə, XNUMX gün ərzində heç bir məhdudiyyət olmadan cəhd edin. İndi indir və pulsuz sınaq!

Word üçün Kutools: 100 Yeni Ətraflı Xüsusiyyətlər əlavə edin Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019-a qədər.
Office Tab: Enable Ofisdə sekmeli redaktə və tarama, Chrome kimi, Firefox, IE 8 / 9 / 10 kimi.
Office üçün Klassik Menyu: Office 2003 Geri köhnə görünüşünü gətirin Office 2007, 2010, 2013, 2016 və 2019.

VBA koduyla eyni anda birdən çox söz sənədləri arasında mətnləri tapın və dəyişdirin

1. Basın Dayandırmaq + F11 açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra aşağıdakı VBA kodu Module pəncərəsinə kopyalayın.

VBA Kodu: eyni məzmunu birdən çox sənəddə bir anda axtarış və dəyişdirmək

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

4. Açılışda İnsanlar pəncərəni tapmaq və tapacaq sənədləri seçin və mətnin içini əvəz edin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

5. Birincisi Word üçün Kutools informasiya qutusuna, sənədlər arasında tapacaq mətnə ​​daxil edin Nə tapın qutusuna basın və sonra basın OK düyməsini basın.

6. İkincisi Word üçün Kutools informasiya qutusunda, əvəzləyəcək mətni daxil edin və basın OK düyməsini basın.

8. Basın OK növbəti düyməsini basın Microsoft Word informasiya qutusunu tapmaq və əvəz etmək üçün.

Bu halda seçilmiş sənədlərdəki "Word" sözləri "Excel" ilə əvəz olunur.


Office Tab - Word'də birdən çox sənədin sekmeli tarama, redaktə edilməsi və idarə olunması:

Office Tab sekmeli interfeysi Google Chrome, Internet Explorer yeni versiyaları və Microsoft Word kimi Firefox kimi veb brauzerlərdə göründüyü kimi gətirir. O iradə bir zaman qənaət vasitədir və işinizdə əvəzolunmazdır. Demonun aşağıda bax:

Ofis Sekmesinin pulsuz sınaq üçün basın!




Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 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.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 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.
    blds · 10 months 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. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !