Word hujjatining bir qismidagi matnni topish va almashtirishning 4 ta foydali usullari

Ushbu hujjatda biz sizga Word hujjatining bir qismidagi matnni topish va almashtirishning 4 ta foydali usulini ko'rsatishdan mamnunmiz.

Odatda, biz Word-da "Topish va almashtirish" ni bajarganimizda, ta'sir global bo'ladi. Shunday qilib, bugun biz sizga hujjatning bir qismida, masalan, tanlov, bitta sahifa yoki ma'lum bir bo'limdagi matnni topish va almashtirish usullarini taklif qilmoqchimiz.

1-usul: Tanlovda “Topish va almashtirish” funksiyasidan foydalaning

1. Birinchidan, tanlang tarmatnni oling.
2. Ikkinchidan, "Topish va almashtirish" oynasini ochish uchun "Ctrl + H" tugmasini bosing.
3. Keyinchalik, "Nimani toping" matn maydoniga topilgan matnni va "Almashtirish" maydoniga almashtirilgan matnni kiriting.
4. Keyin "Hammasini almashtirish" tugmasini bosing.
5. Hujjatning qolgan qismida qidirishni davom ettirishni xohlaysizmi, degan so'rov oynasi ochiladi. "Yo'q" tugmasini bosganingizga ishonch hosil qiling.

2-usul: Tanlangan matnni topish va almashtirish uchun VBA kodlarini ishga tushiring

1. Avvalo, bir qator hujjat mazmunini tanlang.
2. "Alt + F11" tugmachalarini bosib, VBA muharririni ishga tushiring.
3. Keyin "Oddiy" tugmasini bosing va "Qo'shish" tugmasini bosing.
4. Menyuda "Modul" ni tanlang.
5. Endi modulni ikki marta bosish bilan oching.
6. U erda quyidagi kodlarni nusxalash va joylashtirish:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. Keyin "F5" tugmasini bosing.
8. Ikkita kiritish oynasi so'raladi. Ikki qutiga mos ravishda topilgan va almashtiriladigan matnni kiriting.
9. Davom etish uchun “OK” tugmasini bosing.

Siz 1-usuldagi kabi ta'sirga erishasiz.

3-usul: Belgilangan sahifadagi matnni topish va almashtirish uchun Word makrosini ishga tushiring

Quyidagi makros sizga ma'lum bir sahifadagi matnni topish va almashtirish imkonini beradi.

1. Birinchidan, 2-usuldagi amallarni bajarib, so'lni o'rnating va ishga tushiring.
2. Keyin ushbu makrosni bu bilan almashtiring:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Ushbu kodlarni ishga tushirgandan so'ng, 3 ta kirish qutisi bo'ladi. Birinchi qatorga sahifa raqamini kiriting, ikkinchisiga esa topilgan matnni kiriting va uchinchi qatorga o'rnini bosuvchi matnni kiriting.
4. Davom etish uchun “OK” tugmasini bosishni unutmang.

4-usul: Bo'limdagi matnni topish va almashtirish uchun Word makrosini ishga tushiring

1. Xuddi shunday, makrosni o'rnatish va ishga tushirish uchun 2-usuldagi bir xil amallarni bajaring.
2. Faqat bu safar o'rniga ushbu makrosdan foydalaning:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Birinchi qatorga bo'lim raqamini kiritishni unutmang. Quyidagi ikkita katakchaga matnlarni topish va almashtirishni kiriting.
4. Shunga qaramay, davom etish uchun "OK" tugmasini bosing.

Word bilan bog'liq muammolarni hal qiling

Hujjatingizda turli xil muammolar yuzaga kelishi mumkin. Ba'zilarini davolash oson, boshqalari esa jiddiyroq, bu esa olib kelishi mumkin So'zning buzilishi. Bunday stsenariyda ma'lumotlaringizni qutqarish uchun imkon qadar tezroq ta'mirlash vositasini olishingiz kerak.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excel tuzatish va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com