Bir so'zli hujjatdan ikkinchisiga ikkita maxsus so'z orasidagi tarkibni qanday chiqarish mumkin

Ushbu maqolada biz sizga bir Word hujjatidan ikkinchisiga ikkita aniq so'z o'rtasidagi tarkibni olish yo'lini ko'rsatamiz.

Vaqti-vaqti bilan, ba'zi hollarda muayyan so'zlar orasidan tarkibni ajratib olishingiz kerak bo'ladi. Quyida siz duch kelishi mumkin bo'lgan 2 ta holat mavjud:

1. Birinchidan, Word jadvalida bir xil 2 so'z bilan boshlanuvchi va tugaydigan ustunning barcha kataklari uchun faqat boshqa o'rta qismini ajratib olishingiz kerak bo'lishi mumkin, masalan:   
2. Ikkinchidan, bir nechta yozuvlari bo'lgan ba'zi jurnal fayllarida, ehtimol, kerakli narsalarni ajratib olishingiz kerak bo'ladi. Keyin siz birinchi va oxirgi so'zni belgilashingiz va kerakli tarkibni olish uchun ushbu maqolaning I usulidan foydalanishingiz mumkin.

Bunday vazifani bajarish uchun biz Word makrosini ishga tushirishni afzal ko'ramiz. Shu qadamlarni bajaring.

Ikki so'z orasidagi tarkibni ajratib oling

1. Birinchi va asosiyost, Word dasturida VBA muharririni ochish uchun “Alt+ F11” tugmasini bosing.
2. Keyin chap ustundagi "Oddiy" loyihani bosing.
3. Keyin menyu panelidagi "Qo'shish" yorlig'ini bosing.
4. Ochilgan menyudan "Module" ni tanlang.
5. Yangi modulning kodlash maydonini kiritish uchun ikki marta bosing va u erga ushbu kodlarni joylashtiring:

Sub ExtractContentsBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  ' Initialize and create a new blank document.
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  ' Enter the first and last words.
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  ' Find and extract contents and insert them into the new document.
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .MatchWildcards = True
      .MatchWholeWord = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=Len(strFirstWord)
        Selection.MoveEnd Unit:=wdCharacter, Count:=-Len(strLastWord)
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

6. Keyin kodlarni bajarish uchun "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
7. "Birinchi so'z" kiritish maydoniga birinchi so'zni kiriting. Esda tutingki, makros katta-kichik harflarga sezgir. Shunday qilib, agar kerak bo'lsa, so'zni boshlang.
8. Keyin "Oxirgi so'z" oynasiga o'tish uchun "OK" tugmasini bosing.
9. Xuddi shunday, so'zni kiriting va "OK" tugmasini bosing. So'zni ishga tushirishning bir xil qoidasiga amal qilishni unutmang.

Yangi hujjat ochiladi va olingan barcha tarkiblar u erda paydo bo'ladi.

Qavslar ichidagi tarkibni ajratib oling

Yuqorida aytib o'tganimizdek, ba'zi tarkiblar qavs ichida. Keyin nima qilishingiz mumkin:

1. S gatarAgar makrosni o'rnatish va ishga tushirish uchun yuqoridagi amallarni bajarishingiz kerak.
2. Endi qavs turiga qarab, quyida mos keladigan makrosni tanlashingiz mumkin:

Qavslar uchun {}:

Sub ExtractContentsInBraces()
  Dim objDoc As Document
  Dim 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
      .Text = "\{(*)\}"
      .MatchWildcards = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=1
        Selection.MoveEnd Unit:=wdCharacter, Count:=-1
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

3. Kvadrat qavslar uchun [ ]:

Faqat ushbu kod qatorini almashtiring:

.Text = "\{(*)\}"

Bilan:

.Text =\[(*)\]

4. Keyin Qavslar uchun():

3-bosqichdagi bir xil kod qatorini quyidagi bilan almashtiring:

.Text = "\((*)\)"

5. Va burchakli qavslar uchun<>:

Buning o'rniga ushbu qatordan foydalaning:

.Text = "\<(*)\>"

Ma'lumotlar halokati bilan shug'ullaning

Bizniki kabi juda bog'langan Wordda ma'lumotlar xavfsizligini doimo yodda tutish juda muhimdir. Bundan tashqari, ma'lumotlar halokati paytida nima qilish kerakligini bilish kerak. Va sizning eng yaxshi tanlovingiz a olishdir docx ta'mirlash vositasi.

Muallif kirish:

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