Үгсийнхээ баримт бичгээс ижил өнгөөр ​​текст гаргах 2 хурдан арга

Өнөөдрийн бичлэгт бид Word баримтаас ижил өнгийн текстийг гаргаж авах 2 хурдан аргыг тантай хуваалцахад таатай байна.

Word баримт бичгийг форматлахдаа зарим текстэнд үсгийн өнгө хэрэглэж, илүү анхаарал хандуулах болно. Ихэнхдээ эдгээр өнгөт үгс нь дахин хянагдах ёстой чухал агуулга юм. Дараа нь экспортолж, дараа нь тодорхой шалгалт хийхээр өөр газар цуглуулбал ямар вэ?

Энэхүү эрэлт хэрэгцээнд анхаарлаа төвлөрүүлж, төгсгөлгүй огтлох, буулгах үйлдлүүдийн оронд 2 хурдан товчлолыг санал болгож байна.

Арга 1: "Хайх" онцлогийг ашиглах

1. Эхлээд "Нүүр хуудас" таб дээр дарна уу.
2. Дараа нь "Засах" бүлэгт очиж "Хайх" -ын хажууд байгаа гурвалжин товчийг дарна уу.
3. Дараа нь жагсаалтаас "Advanced Find" -ийг сонгоно уу.
4. “Find and Replace” харилцах цонхонд “Find what” текст хайрцагт курсороо байрлуулж, хэрэв байгаа бол агуулгыг нь устгана уу.
5. Дараа нь "Илүү" товчийг дарна уу.
6. Одоо "Format" товчийг дараад "Font" -ыг сонгоно уу.
7. “Find Font” харилцах цонхноос “Font color” -ын ард байрлах доош товчлуур дээр дарж текстүүддээ яг тохирсон өнгө сонгоно уу.
8. "OK" дээр дарахаа бүү мартаарай.
9. Одоо "Олоод солих" нүд рүү буцаж очоод "Хайх" дээр дарна уу.
10. Эцэст нь “Үндсэн баримт бичиг” -ийг сонгоно уу.

Дараа нь зорилтот өнгөний бүх текстийг сонгоно. Та одоо "Ctrl+ C" товчийг дарж хуулж аваад өөр газар нэг дор буулгаж болно.

Арга 2: Word макро ажиллуулах

1. Юуны өмнө "Хөгжүүлэгч" таб дээр дарна уу.
2. Дараа нь "Visual Basic" дээр дарж VBA засварлагчийг ажиллуулна уу.
3. Дараа нь "Normal" дээр дараад "Insert" дээр дарна уу.
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 өгөгдлийг сэргээх болно.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls өгөгдлийн асуудлыг засах хэрэгсэл болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com