Төмендегі мақалада біз сізге Word құжатында түсініксіз іздеу жүргізудің 2 пайдалы әдісін ұсынғымыз келеді.
Кейде сөзді дұрыс жазуды ұмытып кететін кездер болады, әсіресе ол ұзын болса. Көп жағдайда біз бастапқы әріптердің бірнешеуін ғана есімізде сақтаймыз. Бұл дәл іздеуді мүмкін емес етеді.
Біз үшін сәтті, бұлыңғыр-іздеудің жолдары бар. Сіз оларды Word құжатыңызда пайдалана аласыз.
1-әдіс: Word-та «Advanced Find» мүмкіндігін қолданыңыз
Біздің жағдайда біз «іздеймізDataNumen«Деректерден» басталатынын еске түсірейік.
- Біріншіден, «Үй» қойындысындағы «Өңдеу» тобында «Табу» командасының жанындағы ашылмалы батырманы басыңыз.
- Сол мәзірден «Қосымша іздеу» опциясын таңдаңыз.
- Содан кейін «Нені табыңыз» мәтін жолына кірістіру сілтемесін салыңыз және келесі таңбаларды қойыңыз:
- «Деректер» - мақсатты сөздің бастапқы әріптері. Оны нақты әріптермен ауыстыру керек. Бастапқы әріптерді ұмытып қалған жағдайда, оны бос қалдырыңыз және бос орын да қалдырмаңыз.
- Ал «n,m» бастапқы әріптерді қоспағанда, мақсатты сөздің қалған әріп ұзындығының санын білдіреді. Айталық, бұл жағдайда ол «5» саны. Сондықтан қойылмалы таңбалар келесідей көрінуі керек:
- Егер сіз әріптердің нақты ұзындығына сенімді болмасаңыз, онда сіз диапазонды көрсететін 2 сан енгізе аласыз, мысалы:
- Әріптің ұзындығы белгілі бір санға тең немесе үлкен екеніне сенімді болсаңыз, оны өрнекке дәл осылай енгізіңіз:
- Одан әрі қосымша опцияларды шығару үшін «Қосымша» батырмасын басыңыз.
- «Қойылмалы таңбаларды пайдалану» құсбелгісін қойыңыз.
- Содан кейін «Іздеу» батырмасын басып, «Негізгі құжатты» таңдаңыз.
Таңдау кезінде мақсатты сөздің барлық кездесулерін көресіз.
2-әдіс: Мәтін іздеу үшін VBA кодтарын іске қосыңыз
VBA кодтарын іске қосу сізді өрнекті жаттаудан сақтайды.
- Ең алдымен, Word бағдарламасында VBA редакторын шақыру үшін «Alt+F11» пернелер тіркесімін басыңыз.
- Әрі қарай «Қалыпты» жобасын басыңыз, содан кейін «Кірістіру» түймесін басыңыз.
- Мәзірден «Модуль» таңдаңыз.
- Төмендегі кодтарды ашып, қою үшін оны екі рет басыңыз:
Sub FindTheWordsByLength()
Dim objRange As Range
Dim strStartWord As String
Dim strLength As String
strStartWord = InputBox("Enter the beginning letters which you remember of target word ", "Beginning Letters of Word", "For example:Data")
strLength = InputBox("Enter the letter length of the rest part of target word which you don't remember", "Number of Letter Length", "For example:5,7")
With Selection
.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<" & strStartWord & "[a-zA-Z]{" & strLength & "}>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objRange.HighlightColorIndex = wdYellow
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- Содан кейін макросты іске қосу үшін «F5» батырмасын басыңыз.
- Пайда болған бірінші өрісте мақсатты сөздің бас әріптерін енгізіп, жалғастыру үшін «ОК» түймесін басыңыз.
- Екінші жолға әріптің ұзындығын енгізіп, «ОК» батырмасын басыңыз. Сандарды бөлу үшін үтірді қолданыңыз.
Соңында барлық табылған сөздер сары түспен белгіленеді.
Сөз мәселелерін түзету
Көбінесе Word-та әртүрлі мәселелер туындауы мүмкін. Кейбір ауырлары бағдарламалық жасақтаманың құлдырауына әкелуі мүмкін. Және а бұзылған сөз құнды деректердің жоғалуына әкелуі мүмкін. Сондықтан, проблема пайда болғаннан кейін шұғыл шаралар қабылдау қажет.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. сыбайластықты жеңу және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com