Бұл мақалада Word құжатындағы мәтіннің үлкен ауқымын сүйреп және жылжытпай таңдаудың 3 жылдам жолы бар.
Көбінесе құжаттан бірнеше бетке созылуы мүмкін үлкен мазмұн бөлігін таңдауымыз керек болады. Әрине, мұны істеудің әдеттегі жолы бар - тышқанды басып, таңдауды мақсатты мәтіндердің үстіне сүйреу. Дегенмен, бұл әдістің кемшілігі бар, себебі сіз кездейсоқ таңдауды оңай болдырмауыңыз мүмкін. Осы себепті біз сіздермен 3 жылдам және ақылды шешіммен бөліскіміз келеді.
1-әдіс: Құжаттың басынан белгілі бір нүктеге дейінгі мәтіндерді таңдаңыз
Біз білетіндей, «Ctrl+ A» бүкіл құжатты таңдайды. Бірақ құжаттың көп бөлігін, мысалы, соңғы абзацтан басқа негізгі бөлігін таңдауға тура келетін жағдайлар болады. Міне, пернелер тіркесімі.
- Біріншіден, кірістіру көрсеткішін таңдаудың тоқтау нүктесіне қойыңыз.
- Содан кейін «Ctrl + Shift + Home» түймесін басыңыз.
Содан кейін тоқтау нүктесіне дейінгі барлық нәрсе қазір таңдауда.
2-әдіс: Белгілі бір нүктеден құжаттың соңына дейінгі мәтіндерді таңдаңыз
- Сол сияқты, кірістіру көрсеткішін бастапқы позицияға қойыңыз.
- Содан кейін «Ctrl + Shift + End» түймесін басыңыз. Миссия орындалды.
3-әдіс: Құжаттағы екі кездейсоқ орын арасындағы мәтіндерді таңдаңыз
Енді құжаттың кез келген жерінде орналасқан мәтіндер ауқымын таңдау кең таралған сұраныс бар. Мұндай талапты қанағаттандыру үшін біз макро жолды қолданамыз.
- Ең алдымен, кірістіру көрсеткішін бастапқы нүктеге қойыңыз.
- Содан кейін VBA редакторын іске қосу үшін «Әзірлеуші» қойындысын, содан кейін «Visual Basic» пәрменін басыңыз. Немесе «Әзірлеуші» қойындысы қол жетімді болмаса, оның орнына «Alt+ F11» түймесін басыңыз.
- Содан кейін «Қалыпты» жобаны және келесі «Кірістіру» қойындысын басыңыз.
- Жаңасын жасау үшін «Модуль» таңдаңыз.
- Оң жақтағы өңдеу аймағын ашу үшін жаңа модульді екі рет басыңыз.
- Келесі кодтарды сол жерге қойыңыз:
Sub SelectARangeOfTexts()
Dim ObjSelectText As Range
Dim strText As String
strText = InputBox("Enter Marking word(s) here:", "Select a range of texts")
Set ObjSelectText = Selection.Range
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Text = strText
.MatchCase = True
.MatchWildcards = False
.Execute
End With
ObjSelectText.End = Selection.Range.End - Len(strText)
ObjSelectText.Select
End With
End Sub
- «Іске қосу» батырмасын басыңыз.
- Енді қорап пайда болады. Белгілеу сөздеріңізді енгізіңіз. Белгілеу сөздері таңдалмайтынын ескеріңіз. Соңында «OK» түймесін басыңыз.
Міне әсер:
Құжаттың күтпеген жоғалуымен күресу
Word бағдарламасы пайдаланушы қателері мен қателеріне байланысты құлауы мүмкін болғандықтан, маңызды деректерді жоғалту қаупі жоғары. Кейде мұндай мәселені айналып өту үшін құжаттардың сақтық көшірмесін жасау тиімді болуы мүмкін. Дегенмен, егер сақтық көшірме дұрыс өңделмесе, біз әлі де оның салдарын көтеруіміз керек docx сыбайлас жемқорлық. Сондықтан бізге қалпына келтіру құралының көмегі қажет болады.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com




