Бір нақты құжаттан екіншісіне нақты екі сөздің мазмұнын қалай шығаруға болады

Бұл мақалада біз сізге бір Word құжатынан екіншісіне нақты екі сөз арасындағы мазмұнды бөліп шығарудың жолын көрсетеміз.

Енді және одан кейін кейбір жағдайларда белгілі бір сөздер арасындағы мазмұнды шығаруға тура келеді. Төменде сіз мүмкін болатын екі жағдай бар:

1. Біріншіден, Word кестесінде бірдей және 2 сөзден басталатын бағандағы барлық ұяшықтар үшін сізге тек ортаңғы бөлігін бөліп алу қажет болуы мүмкін, мысалы:   
2. Екіншіден, бірнеше жазбалары бар кейбір журналдық файлдарда сізге қажетін ғана шығарып алу қажет болады. Содан кейін сіз бірінші және соңғы сөздерді көрсете аласыз және қажетті мазмұнды алу үшін осы мақаланы I әдісін қолдана аласыз.

Мұндай тапсырманы орындау үшін біз Word макросын іске қосуды жөн көреміз. Тек мына қадамдарды орындаңыз.

Екі сөздің мазмұнын бөліп алыңыз

1. Бірінші кезектеostWord бағдарламасында VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
2. Содан кейін сол жақ бағандағы «Қалыпты» жобаны басыңыз.
3. Содан кейін мәзір жолағындағы «Кірістіру» қойындысын нұқыңыз.
4. Ашылмалы мәзірден «Модуль» таңдаңыз.
5. Жаңа модульдің кодтау кеңістігін енгізу үшін екі рет басыңыз және осы кодтарды сол жерге қойыңыз:

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. Әрі қарай кодтарды орындау үшін «Іске қосу» батырмасын басыңыз немесе «F5» пернесін басыңыз.
7. «Бірінші сөз» енгізу өрісіне бірінші сөзді енгізіңіз. Макростың регистрге байланысты екенін ұмытпаңыз. Сондықтан қажет болса, сөзді инициализациялаңыз.
8. Содан кейін «Соңғы сөз» өрісіне өту үшін «OK» батырмасын басыңыз.
9. Сол сияқты, сөзді енгізіп, «ОК» батырмасын басыңыз. Сөзді инициализациялау ережесін сақтауды ұмытпаңыз.

Жаңа құжат ашылады және алынған барлық мазмұн сол жерде пайда болады.

Мазмұнды жақшаға алыңыз

Біз айтып өткендей, кейбір мазмұн жақшаның ішінде. Мұнда сіз не істей аласыз:

1. Кімгеtart өшіру үшін макросты орнату және іске қосу үшін жоғарыдағы қадамдарды орындау қажет.
2. Енді жақшаның түріне сәйкес төменде тиісті макросты таңдауға болады:

Брекеттер үшін {}:

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. Төрт жақшалар үшін []:

Тек осы код жолын ауыстырыңыз:

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

С:

.Text =\[(*)\]

4. Содан кейін жақшалар үшін ():

3-қадамдағы бірдей код жолын:

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

5. Ал бұрыштық жақшалар үшін <>:

Оның орнына мына жолды қолданыңыз:

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

Деректер апатымен күресу

Біз сияқты өте жоғары байланысты Word-та деректердің қауіпсіздігін үнемі есте ұстаған жөн. Сонымен қатар, деректер апаты кезінде не істеу керектігін білу керек. Сіздің ең жақсы таңдауыңыз - а docx жөндеу құрал.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com