Тек мәтін кестесінен мәтін іздеудің 3 жылдам әдісі

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

Word бағдарламасында кіріктірілген «Іздеу және ауыстыру» функциясын қолдана отырып, сіз ұзақ мәтіннен нақты мәтінді іздеп табуға болады. Көріп отырғаныңыздай, бұл бүкіл құжатқа негізделген. Іздеу ауқымын тек Word кестелерімен шектесек қалай болады? Толығырақ көру үшін оқыңыз.

1-әдіс: Таңдау бойынша мәтінді табыңыз

1. Ең алдымен, құжаттағы бір немесе бірнеше кестені қолмен таңдаңыз.
2. Содан кейін «Үй» қойындысының астындағы «Табу» командасының жанындағы ашылмалы батырманы басыңыз.
3. «Іздеу және ауыстыру» диалогтық терезесін ашу үшін «Қосымша іздеу» тармағын таңдаңыз.
4. «Нені табу» мәтін жолына мәтінді табуды енгізіңіз.
5. «Табу» қойындысын нұқыңыз және «Ағымдағы таңдауды» таңдаңыз.  

Тек мәтін тек сіздің таңдауыңызда болады.

2-әдіс: кестеден мәтінді табыңыз

Әдеттегі тәсілден басқа, сіз көбірек теңшелген тапсырмаларды орындау үшін макросты іске қосуды таңдай аласыз.

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

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

7. Соңында «Іске қосу» түймесін басыңыз. Кіріс терезесіне мәтінді енгізіп, «OK» батырмасын басыңыз.

3-әдіс: Құжаттағы барлық кестелердегі мәтінді табу

1. Ең алдымен, макросты орнату және іске қосу үшін 2-әдістегі қадамдарды қайталаңыз.
2. Осы макросты келесіге ауыстырыңыз:

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. Сол сияқты, енгізу терезесінің ішіне іздеу мәтінін теріңіз. Әрі қарай жалғастыру үшін «OK» батырмасын басыңыз.

Деректеріңізді уақытында құтқарыңыз

Сізге зиян келтірілген деректерді алғаннан кейін, оларды қалпына келтіруге болатындығын ұмытпаңыз. Сондықтан тырысудан бұрын ешқашан бас тартпаңыз. Мұндай жағдайда сізге, егер бар болса, соңғы сақтық көшірмені тексеру қажет. Кейбір деректерді қайтарып алуға жақсы мүмкіндік бар. Сонымен қатар, сіз әрқашан жүгіне аласыз құжатты түзету деректерді қалпына келтіру құралы.

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

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