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

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

Енді және одан кейін, Word құжатында пішімдеу кезінде біз кейбір мәтіндерге қосымша назар аудару үшін қаріп түсін қолданатын шығармыз. Әдетте, бұл түрлі-түсті сөздер қайта қарауға лайық маңызды мазмұн болып табылады. Одан кейін оларды нақты тексеру үшін экспорттау және басқа жерге жинау туралы не деуге болады?

Осы сұранысқа назар аудара отырып, біз сізге шексіз кесу және қою әрекеттерінің орнына 2 жылдам пернелер тіркесімін ұсынамыз.

1-әдіс: «Табу» функциясын қолдану

1. Алдымен «Үй» қойындысын нұқыңыз.
2. Содан кейін «Іздеу» тобына өтіп, «Іздеу» жанындағы төңкерілген үшбұрыш түймесін басыңыз.
3. Әрі қарай тізімнен «Қосымша іздеуді» таңдаңыз.
4. «Іздеу және ауыстыру» тілқатысу терезесінде курсорды «Нені табу» мәтін жолағына қойыңыз және егер бар болса, сол жерде кез-келген мазмұнды өшіріңіз.
5. Әрі қарай «Қосымша» батырмасын басыңыз.
6. Енді «Пішім» батырмасын басып, «Қаріп» таңдаңыз.
7. «Қаріп табу» диалогтық терезесінде «Қаріп түсі» артындағы ашылмалы батырманы басып, мәтіндеріңізге нақты түс таңдайсыз.
8. «ОК» батырмасын басуды ұмытпаңыз.
9. Енді «Іздеу және ауыстыру» өрісіне оралып, «Іздеу» батырмасын басыңыз.
10. Соңында «Басты құжатты» таңдаңыз.

Содан кейін мақсатты түстегі барлық мәтіндер таңдалады. Енді оларды көшіріп, басқа жерге бірден қою үшін «Ctrl+C» пернелер тіркесімін басуға болады.

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

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

Sub ExtractColoredTexts()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate

  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Font.Color = wdColorRed
      .Text = ""
      .Execute
    End With
  Do While .Find.Found
    Set objRange = Selection.Range
    objDocAdd.Range.InsertAfter objRange & vbCr
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  End With
End Sub

7. Енді «Іске қосу» батырмасын басыңыз.

Барлық шығарылған мәтіндермен бірге жаңа құжат болады.

Ескерту: «.Font.Color = wdColorRed» кодтық жолында «wdColorRed» мәтіндеріңіздің нақты түсімен ауыстыруыңыз керек. Толығырақ ақпарат алу үшін мына параққа кіре аласыз: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Сөз проблемасы

Көпшілігіміз Word бағдарламасын жиі қолданамыз. Дегенмен, соған қарамастан, біз әлі де Word бағдарламасының істен шығуы сияқты кейбір күрделі мәселелерге тап болуымыз мүмкін. Бұл өте күрделі мәселе, себебі сіздің маңызды файлдарыңыз қауіп астында болуы мүмкін. Мұндай жағдайларда, ... алу ұсынылады. Word деректеріндегі қателерді жөндеу құралы ол Word деректерін бірнеше минут ішінде қалпына келтіреді.

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

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