Бұл мақалада біз сізбен Word құжатындағы барлық сызылған мәтіндерді іздеудің 2 жылдам тәсілімен бөліскіміз келеді.
Word құжатында астыңғы сызықтардың көп кездесуі әдеттен тыс емес. Сондықтан, асты сызылған сызықтарды қолдануға қатысты көптеген талаптар туындайды. Енді осындай өтініштерді қарастырайық.
- Асты сызылған бос орындарды табыңыз. Мүмкін сіз бірінші ойға батқаннан сезінесіз. Сонымен, сіз Word құжатындағы емтиханды толтырған кезде жауапсыз қалған сұрақ бар-жоғын білу үшін файлды іздеу керек деп ойлай аласыз.
- Мәтіндер арқылы соққы беру тәсілін өзгертіңіз. Сіз мәтіндердің астын сызып ерекшелендіре аласыз. Сонымен қатар, курсивті қаріп мәнеріндегі мәтіндерді қолдануды ұнататын басқа да құралдар бар.
- Асты сызылған түсін өзгертіңіз. Асты сызылған түсті көздің жауын алатындай етіп өзгертуге болады.
Жоғарыда айтылған талаптарды орындау үшін алдымен бір сызық іздеу керек. Міне, біздің 2 әдіс:
1-әдіс: «Қосымша іздеу» опциясын қолданыңыз
- Бастау үшін «Басты бет» қойындысын нұқыңыз.
- Содан кейін «Табу» артындағы төңкерілген үшбұрыш батырмасын басыңыз.
- Әрі қарай «Қосымша іздеуді» таңдаңыз.
- «Табу және ауыстыру» диалогтық терезесінде «Пішімдеу» батырмасын басыңыз.
- Содан кейін «Қаріпті» таңдаңыз.
- «Қаріпті табу» өрісінде құжатта сызылған стильді таңдап, «ОК» батырмасын басыңыз.
- Енді «Іздеуді», содан кейін «Негізгі құжатты» немесе «Әрі қарай табу» түймесін басуды таңдаңыз. Біріншісі құжаттағы барлық сызылған сызықтарды таңдайды, ал екіншісі сізді бірінен соң бірін сызып өтуге мәжбүр етеді.
Айтпақшы, егер сіз 4-6 қадамды өткізіп жібергіңіз келсе, сіз төте жолдарды пайдалана аласыз. «Ctrl + U»Деген бір сызыққа және«Ctrl + Shift + D»Деп қос сызықпен сызыңыз.
2-әдіс: Word макросын іске қосыңыз
- Алдымен VBA редакторы болу үшін «Әзірлеуші» қойындысын, содан кейін «Visual Basic» батырмасын басыңыз. Балама тәсілі - «Alt + F11» пернелерін басу.
- Содан кейін «Қалыпты» батырмасын басыңыз.
- Содан кейін «Кірістіру» қойындысын басып, «Модуль» таңдаңыз.
- Енді сіз «Қалыпты» жоба бойынша жаңа модуль енгіздіңіз. Өңдеу аймағын ашу үшін жаңа модульді екі рет басыңыз.
- Келесі кодтарды келесі жерге қойыңыз:
Sub FindUnderlineInDoc()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
objRange.Find.Font.Underline = wdUnderlineSingle
With Selection.Find
.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Execute
End With
End Sub
- Соңында, «Іске қосу» батырмасын басыңыз.
Ескерту:
Кодтық жол «objRange.Find.Font.Underline = wdUnderlineSingle»Деген мағынаны білдіреді, бұл макростың асты сызылған сызықты табады. Сондықтан астын сызуды басқа стильдермен табу үшін «wdUnderlineSingle»Басқа константалармен, мұнда көбірек білуге болады: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
Сөз қателерімен күресу
Есептеріңізді құрастыру кезінде сіз а бүлінген Word, осылайша сіз қазір жұмыс істеп жатқан файлды жоғалтып аласыз ба? Мұндай сценарий біз күткен ең аз нәрсе. Дегенмен, бұл орын алады және мансап үшін жойқын соққы болуы мүмкін. Сондықтан сіздің уақытыңыз бен мансапты үнемдеу үшін сізге Word бағдарламасын жөндейтін маман қажет.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com