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

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

Әдепкі бойынша, Word-та сызылған түс «Автоматты» болып орнатылады. Бірақ бұл кейде монотонды болуы мүмкін. Сонымен, сіздің құжатыңыздағы түстер жиынтығын әртараптандыру үшін де, маңызды мазмұнмен ерекшелену үшін де астын сызудың түсін өзгерту керек.

Жасамас бұрын асты сызылған түсін өзгерту оңай. Сондықтан келесі мазмұндарда біз қолданыстағы сызықтардың түсін өзгертуге баса назар аударғымыз келеді.

1-әдіс: «Кеңейтілген іздеу» функциясын қолдану

Ең алдымен, ағымдағы құжаттағы асты сызылған барлық даналарды табуыңыз керек. Ол үшін біздің алдыңғы мақаламызды қараңыз: Word құжатындағы сызылған мәтіндерді іздеудің 2 жылдам әдісі

Барлық астын сызып алғаннан кейін, сіз келесі қадамдарды жасайсыз:

1. Сіз «Үй» қойындысының астындағы сызылған белгішенің артындағы төңкерілген үшбұрышты батырманы басасыз.
2. Содан кейін «Асты сызылған түс» кеңейтілген мәзірінен өзіңізге ұнаған түсті таңдаңыз.

Міне, біздің видео көрсетілім:

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

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

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

Sub ChangeUnderlineColor()
  Dim objDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objRange = objDoc.Range
 
  objRange.Find.ClearFormatting
  With objRange.Find
    .Font.Underline = wdUnderlineSingle
    .text = ""
    .Replacement.text = ""
    .Replacement.Font.UnderlineColor = wdColorBlue
    .Execute Format:=True, Replace:=wdReplaceAll
  End With
End Sub

8. Соңғысы, бірақ ең азы емес, «Іске қосу» батырмасын басыңыз.

Ескертулер:

1. Біріншіден, «.Font.Underline = wdUnderlineSingle» кодтық сызығы бұл макростың тек бір сызылған сызықты табатынын білдіреді. Сіз «wdUnderlineSingle» -ді «wdUnderlineDouble», «wdUnderlineThick» және басқаларына өзгерте аласыз, егер астыңғы сызылған тұрақты мәндері үшін мына сілтемеге кіре аласыз: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
2. Екіншіден, «.Replacement.Font.UnderlineColor = wdColorBlue» код сызығы макро асты сызылған түсін көкке өзгертетінін білдіреді. Қосымша түсті константалар үшін келесі сілтемелерге кіре аласыз: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Келтірілген Word деректерін шығарып алыңыз

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

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

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