İki xüsusi söz arasında məzmunu bir söz sənədindən digərinə necə çıxarmaq olar

Bu yazıda sizə iki xüsusi söz arasında məzmunu bir Word sənədindən digərinə çıxarmağın yolunu göstərəcəyik.

İndi və sonra, bəzi hallarda xüsusi sözlər arasında məzmun çıxarmalı olacaqsınız. Aşağıda rastlaşa biləcəyiniz 2 mümkün hal var:

1. Birincisi, Word cədvəlində eyni 2 sözlə başlayan və bitən sütunun bütün xanaları üçün yalnız fərqli orta hissəni çıxarmaq lazım ola bilər, məsələn, aşağıdakı:   
2. İkincisi, çoxlu girişləri olan bəzi log fayllarında, yəqin ki, sizə lazım olanları çıxarmalı olacaqsınız. Sonra ilk və son sözü təyin edə və lazım olan məzmunu əldə etmək üçün bu məqalənin I metodundan istifadə edə bilərsiniz.

Belə bir tapşırığı yerinə yetirmək üçün biz Word makrosunu işə salmağa üstünlük veririk. Sadəcə bu addımları izləyin.

İki söz arasında məzmunu çıxarın

1. Birincisi və birincisiost, Word-də VBA redaktorunu açmaq üçün “Alt+ F11” düyməsini basın.
2. Sonra sol sütunda "Normal" layihəsinə klikləyin.
3. Sonra menyu çubuğunda "Daxil et" sekmesini vurun.
4. Açılan menyudan "Modul" seçin.
5. Yeni modulun kodlaşdırma sahəsinə daxil olmaq üçün iki dəfə klikləyin və bu kodları ora yapışdırın:

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. Sonra kodları yerinə yetirmək üçün "Çalış" düyməsini basın və ya "F5" düyməsini basın.
7. "Birinci söz" giriş qutusuna ilk sözü daxil edin. Unutmayın ki, makro böyük hərflərə həssasdır. Odur ki, lazım gələrsə, sözü işə salın.
8. Sonra "Son söz" qutusuna getmək üçün "OK" düyməsini basın.
9. Eynilə, sözü daxil edin və "OK" düyməsini basın. Sözün başlanğıcına uyğun olaraq eyni qaydaya əməl etməyi unutmayın.

Yeni sənəd açıq olacaq və oradan çıxarılan bütün məzmunlar görünəcək.

Mötərizədə məzmunu çıxarın

Qeyd etdiyimiz kimi, bəzi məzmunlar mötərizədə verilmişdir. Sonra nə edə bilərsiniz:

1. Starsöndükdə, makronu quraşdırmaq və işə salmaq üçün yuxarıdakı addımları yerinə yetirməlisiniz.
2. İndi mötərizənin növünə uyğun olaraq, aşağıda müvafiq makro seçə bilərsiniz:

Mötərizələr üçün {}:

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 mötərizələr üçün [ ]:

Sadəcə bu kod xəttini dəyişdirin:

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

Ilə:

.Text =\[(*)\]

4. Sonra Mötərizələr üçün():

3-cü addımda eyni kod xəttini aşağıdakılarla əvəz edin:

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

5. Və bucaqlı mötərizələr<> üçün:

Bunun əvəzinə bu xətti istifadə edin:

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

Məlumat fəlakətini idarə edin

Bizim kimi çox əlaqəli Word-də məlumatların təhlükəsizliyini hər zaman nəzərə almaq çox vacibdir. Üstəlik, bir məlumat fəlakəti zamanı nə edəcəyini bilməlidir. Və ən yaxşı seçiminiz a almaqdır docx təmiri aracı.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls bərpası və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com