Үг тоолохоос хаалт, хаалтанд байгаа текстийг хасах 3 арга

Одоо хуваалцах:

Энэ нийтлэлд бид хаалтанд эсвэл хаалтанд байгаа текстүүдийг үгийн тооллоос хасах 3 үр дүнтэй аргыг танд өгөх болно.

Бид Word баримт бичгийг бичихдээ уншигчдад болон өөрсдөдөө өгүүллийг илүү сайн ойлгоход нь туслах үүднээс зарим тайлбарласан текстийг хаалтанд эсвэл хаалтанд оруулахыг хүсч байна. Гэсэн хэдий ч Word нь анхдагчаар бүгдийг нь тоолж байгаа нь сэтгэл түгшээсэн баримт юм. Заримдаа та хаалтанд эсвэл хаалтанд үгийн тоог оруулаад тоо авахын оронд хичнээн олон "үр дүнтэй" үг байгааг харахыг хүсч магадгүй юм.

Аз болоход энэ боломжгүй зүйл биш бөгөөд та энд ашиглаж болох 3 аргыг танилцуулж байна. Эхлээд 3 аргын 2 нь "Олох" функцээр дамжуулан хаалт эсвэл хаалтанд байгаа үгсийг олох арга юм. Тиймээс бид энэ даалгаврыг хийх алхмуудаас эхлэх болно.

Хаалтанд эсвэл хаалтанд үгс олоорой

  1. Нэгдүгээрт, "Нүүр хуудас" таб дээр дарна уу.
  2. Дараа нь “Find” дээрээс доошоо харсан гурвалжин товчийг дарна уу.
  3. Жагсаалтаас "Advanced Find" -ийг сонго."Нүүр" дээр дарна уу - "Хайх" дээр дарна уу -> "Нарийвчилсан хайлт" дээр дарна уу
  4. “Find and Replace” харилцах цонхонд “Find what” текст хайрцагт “\ (* \)” оруулна уу.
  5. Дараа нь илүү олон сонголтыг өргөжүүлэхийн тулд "Илүү" дээр дарна уу.
  6. Дараа нь "орлуулах тэмдэг ашиглах" хайрцгийг шалгана уу.
  7. "Find In" товчийг дараад "Үндсэн баримт бичиг" -ийг сонгоно уу."Find what" текстийн хайрцагт оруулна уу -> "Ашиглах тэмдэг" тэмдэглэгээг оруулна уу -> "Find" дээр дарна уу -> "Үндсэн баримт бичиг" дээр дарна уу
  8. Дараагийн харах зүйл бол хаалтанд байгаа бүх үгсийг сонгосон болно. Хэрэв та хаалтанд үг олохыг хүсвэл "Find what" текстийн нүдэнд "\ [* \]" оруулна уу.

Арга 1: Хуулбар дээр ажиллуулах

  1. Эхлээд баримт бичгийнхээ хуулбарыг хий.
  2. Хоёрдугаарт, хаалт эсвэл хаалтанд байгаа үгсийг олохын тулд дээрх алхмуудыг ашиглана уу. Зорилтот үгс сонгогдсон үед та "Олох ба солих" харилцах цонхыг хааж, "Устгах" товчийг дарж бүгдийг нь устгаж болно. Эсвэл та харилцах цонхыг нээлттэй орхиод "Орлуулах" таб дээр дарж болно.
  3. Дараа нь "Орлуулах" текст хайрцагт юу ч байхгүй эсэхийг шалгаарай.
  4. Дараа нь "Бүгдийг солих" дээр дарна уу. Үгийн тооллыг шалгана уу."Солих" -> "Бүгдийг солих" дээр дарна уу

Арга 2: Текстүүдийг нуух

Word нь далд текстийг тооцдоггүй тул хуулбарлахгүйгээр бүх зорилтот үгсийг хэсэг хугацаанд нуух нь сайн сонголт юм.

  1. Бүх үгсийг хаалт эсвэл хаалтанд олсны дараа "Нүүр" таб дээр дарна уу.
  2. Дараа нь "Фонт" бүлэгт байрлах доош сумтай товчлуур дээр дарж "Фонт" харилцах цонхыг нээнэ үү.
  3. "Effects" хэсэгт очоод "Hidden" хайрцгийг шалгана уу.
  4. Дараа нь "OK" дээр дарна уу."Нүүр" дээр дарна уу - "Далд" дээр дарна уу - "OK" дээр дарна уу

Энд нэг зүйлийг анхаарч үзэх хэрэгтэй. Текстүүдийг нуухаасаа өмнө санамсаргүй байдлаар "Print hidden text" сонголтыг асаагаагүй эсэхийг шалгаарай. Үгүй бол Word эдгээр үл үзэгдэх үгсийг үргэлжлүүлэн тоолох болно. Онцлогийг шалгахын тулд та "Файл", дараа нь "Сонголт" руу орж "Word Options" харилцах цонхыг нээж болно. Тэнд та "Display" табыг дараад "Printing options" хэсэг рүү ороод "Print hidden text" хайрцгийг сонгосон эсэхийг шалгана уу. Хэрэв тийм бол зүгээр л арилгаад "OK" дээр дарна уу."Нууц текст хэвлэх" хайрцгийг сонгоогүй эсэхийг шалгана уу

Арга 3: VBA код ашиглах

Таны Word баримт бичигт хаалт, хаалтанд үгс байж магадгүй юм. Ийм тохиолдолд хоёуланг нь олохын тулд та "Find" ажиллагааг дор хаяж хоёр удаа хийх ёстой гэсэн үг юм. Гэсэн хэдий ч VBA кодын тусламжтайгаар та бүгдийг нэг товшилтоор хялбар, хурдан олох боломжтой.

  1. Эхлээд эх файлынхаа хуулбарыг хий.
  2. Дараа нь VBA засварлагчийг нээхийн тулд “Alt + F11” товчийг дарна уу.
  3. Дараа нь кодыг засах талбар дээр буулгана уу:
'  Remove words both in brackets and parentheses.
Sub DeleteWordsInBracketsAndParentheses()
  Dim objMyRange As Range

  '  Initialization
  Set objMyRange = ActiveDocument.Content  

  '  Find and replace words in brackets and parentheses with "".
  With objMyRange.Find
    .Text = "\[*\]"
    .MatchWildcards = True
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
    .Text = "\(*\)"
    .MatchWildcards = True
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
  End With
End Sub
  1. "Run" дээр дарахаа бүү мартаарай.Кодыг буулгах -> "Ажиллуулах" дээр дарна уу

Нөөцлөлтийн ач холбогдол

Дээр дурдсанчлан, мэдээллийнхээ бүрэн бүтэн байдлыг баталгаажуулахын тулд файлуудаа ажиллуулахаасаа өмнө файлуудаа нөөцлөх хэрэгтэй. Бид санамсаргүйгээр буруу алхам эсвэл өөр зүйл хийж болзошгүй тул нөөцлөх нь үргэлж шаардлагатай байдаг. Гэсэн хэдий ч, хэрэв та нөөц зуршилтай болж чадахгүй бол та хандах хэрэгтэй болно Үг өгөгдлийг сэргээх хэрэгсэл файлууд гэмтсэн үед.

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

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

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.