Бір сөздегі құжатта бірнеше заттарды бір уақытта табудың жылдам тәсілдері

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

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

Мұнда 2 шешім бар:

1-әдіс: сөздерді алып тастау сөздігіне импорттау

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

Шығарылған сөздікке сөздерді қосудың егжей-тегжейлі қадамдары мына мақалада берілген: Сөздердің емлесі мен грамматикасын тексеруге арналған 4 пайдалы кеңестер

2-әдіс: Word макросын қолданыңыз

1. Ең алдымен, іздегіңіз келетін барлық сөздерді бір құжатқа салыңыз. Әрбір сөз немесе сөз тіркесі бір абзацтан тұруы керек. Мұнда оны «тізім құжаты» деп атайық. Құжатты сақтаңыз.
2. Екіншіден, «Әзірлеуші» қойындысын нұқыңыз.
3. Содан кейін VBA редакторын ашу үшін «Visual Basic» батырмасын басыңыз. Балама тәсілі - «Alt + F11» пернелерін басу.
4. Әрі қарай «Қалыпты», содан кейін «Кірістіру» қойындысын нұқыңыз.
5. Мәзірден «Модуль» таңдаңыз.
6. Өңдеу аймағын шығару үшін жаңа модульді екі рет басыңыз және келесі макросты сол жерге қойыңыз:

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

7. Соңында «Іске қосу» түймесін басыңыз.
8. Енді қорап бар. Жаңа ғана сақтаған тізім құжатының жолын және атауын енгізіңіз. Содан кейін «OK» батырмасын басыңыз.

Келесі нәрсе - барлық табылған сөздер бөлектеуде.

Сөз құжаттарын қорғаңыз

Word құжаттарыңыздың бұзылуына жол бермеудің ең танымал шараларының бірі - сақтық көшірмелерін жасау. Олар сізге ... болған кезде тыныштық сыйлай алады. бүлінген докс. Сондықтан дәл қазір маңызды файлдардың сақтық көшірмесін жасауға уақыт бөліңіз.

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

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