İ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

Word sənədində eyni anda birdən çox söz tapmaq və dəyişdirmək necədir?

Word bir söz və ya sözün bütün nümunələrini tapmaq və eyni zamanda yeni bir söz ilə əvəz etmək üçün tap və dəyişdirmək funksiyasını təmin edir. Ancaq eyni zamanda müxtəlif sözləri tapmaq və əvəz etmək istəyirsinizsə, bu quruluş funksiyası kömək edə bilməz. Bu yazıda Word sənədində eyni anda birdən çox müxtəlif söz tapmaq və əvəz etmək üçün bir VBA metodu haqqında danışırıq.

VBA koduyla Word-də eyni anda birdən çox söz tapın və əvəz edin


VBA koduyla Word-də eyni anda birdən çox söz tapın və əvəz edin

Bir Word sənədində eyni anda birdən çox sözü tapmaq və əvəz etmək üçün xahiş edirik.

1. Eyni zamanda birdən çox söz tapmaq və dəyişdirmək istədiyiniz Word sənədini açın, sonra isə basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modul. Sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu: Word-də eyni anda birdən çox söz tapın və dəyişdirin

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

4. Birincisi Word üçün Kutools informasiya qutusuna, bulacağınız və mətn qutusuna dəyişdirən çox sayda sözü daxil edin və onları virgülle ayırın və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

5. İkincisi Word üçün Kutools dialoq qutusunda, əvəz edəcəyiniz yeni sözləri daxil edin (bu sözləri virgülle ayırmaq lazımdır) və sonra basın OK düyməsini basın.

Qeyd: Bu vəziyyətdə hamısı "TEC" bu sənəddə əvəz ediləcək "Yeni","KTO""KTW" əvəz olunacaq "Test""Finish". Xahiş edirik onları ehtiyaclarınıza dəyişdirin.



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.

Be the first to comment.