Word hujjatingizdan bir xil rangdagi matnlarni chiqarishning 2 ta tezkor usuli

Bugungi postda biz siz bilan Word hujjatingizdan bir xil rangdagi matnlarni ajratib olishning 2 ta tezkor usulini baham ko'rishdan mamnunmiz.

Vaqti-vaqti bilan, Word hujjatida formatlashda, biz ba'zi matnlarga qo'shimcha e'tibor berish uchun shrift rangini qo'llashimiz mumkin. Odatda, bu rangli so'zlar sizning qayta ko'rib chiqishingizga loyiq bo'lgan muhim tarkibdir. Keyinchalik aniq tekshirish uchun ularni eksport qilish va boshqa joyga yig'ish haqida nima deyish mumkin?

Ushbu talabga e'tibor qaratgan holda, cheksiz kesish va joylashtirish harakatlari o'rniga 2 ta tezkor yorliqlarni taklif qilamiz.

1-usul: "Topish" xususiyatidan foydalaning

1. Birinchidan, "Uy" yorlig'ini bosing.
2. Keyin "Tahrirlash" guruhiga o'ting va "Topish" yonidagi teskari uchburchak tugmasini bosing.
3. Keyin ro'yxatda "Kengaytirilgan qidiruv" ni tanlang.
4. "Topish va almashtirish" dialog oynasida kursorni "Nimani toping" matn maydoniga qo'ying va agar mavjud bo'lsa, u yerdagi barcha tarkibni o'chiring.
5. Keyin "Ko'proq" tugmasini bosing.
6. Endi "Format" tugmasini bosing va "Shrift" ni tanlang.
7. Matnlaringizga aniq belgilagan rangni tanlash uchun “Shriftni topish” muloqot oynasida “Shrift rangi” orqasidagi ochiladigan tugmani bosing.
8. "OK" tugmasini bosishni unutmang.
9. Endi "Topish va almashtirish" oynasiga qayting va "Topish" tugmasini bosing.
10. Nihoyat, "Asosiy hujjat" ni tanlang.

Keyin maqsadli rangdagi barcha matnlar tanlanadi. Endi ularni nusxalash va keyin bir marta boshqa joyga joylashtirish uchun "Ctrl+C" tugmalarini bosishingiz mumkin.

2-usul: Word makrosini ishga tushiring

1. Avvalo, "Dasturchi" yorlig'ini bosing.
2. Keyin VBA muharririni ishga tushirish uchun "Visual Basic" tugmasini bosing.
3. Keyin "Oddiy" va keyin "Qo'shish" tugmasini bosing.
4. Menyuda "Modul" ni tanlang.
5. Keyin kodlash maydonini faollashtirish uchun modul ustiga ikki marta bosing.
6. Keyingi joylashtirish kodlari:

Sub ExtractColoredTexts()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate

  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Font.Color = wdColorRed
      .Text = ""
      .Execute
    End With
  Do While .Find.Found
    Set objRange = Selection.Range
    objDocAdd.Range.InsertAfter objRange & vbCr
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  End With
End Sub

7. Endi "Ishga tushirish" tugmasini bosing.

Barcha chiqarilgan matnlar bilan yangi hujjat ochiladi.

Eslatma: “.Font.Color = wdColorRed” kod satrida “wdColorRed”ni matnlaringizning haqiqiy rangi bilan almashtirishingiz kerak. Batafsil ma'lumot uchun ushbu sahifaga tashrif buyurishingiz mumkin: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Word muammosini hal qilish

Ko'pchiligimiz allaqachon Word dasturidan tez-tez foydalanamiz. Shunga qaramay, biz hali ham Word dasturining ishdan chiqishi kabi ba'zi qiyin muammolarga duch kelishimiz mumkin. Bu, albatta, juda jiddiy muammo, chunki sizning muhim fayllaringiz xavf ostida bo'lishi mumkin. Bunday hollarda, olish tavsiya etiladi Word ma'lumotlari xatosini tuzatish vositasi Bu Word ma'lumotlarini bir necha daqiqada tiklaydi.

Muallif kirish:

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