Энэ нийтлэлд бид таны Word баримт бичигт доогуур зурсан бүх текстийг хайх 2 хурдан аргыг хуваалцахыг хүсч байна.
Word баримт бичигт доогуур зураас их гарах нь ердийн зүйл биш юм. Тиймээс доогуур зураастай холбоотой маш олон шаардлага гарч ирсээр байна. Одоо ийм хүсэлтийг авч үзье.
- Доогуур зурсан зайг олох. Анхны бодлоор танд алдагдал мэдрэгдэж магадгүй юм. Гэхдээ та Word баримт бичигт шалгалт бөглөхдөө хариултгүй асуулт үлдсэн эсэхийг файлыг хайж олох шаардлагатай болно гэж та ингэж бодож болно.
- Текстээр дамжуулан цохилт өгөх аргыг өөрчил. Та текстүүдийг доогуур нь зурж онцлох боломжтой. Гэсэн хэдий ч налуу үсгийн хэв маягаар текст оруулах гэх мэт өөр аргууд бас байдаг.
- Доод зураасны өнгийг өөрчлөх. Та доогуур зурсан өнгийг илүү анхаарал татахуйц болгож өөрчлөх боломжтой.
Дээрх шаардлагыг хангахын тулд эхлээд нэг доогуур зураас хайх хэрэгтэй. Энд бидний 2 арга байна.
Арга 1: "Advanced Find" сонголтыг ашиглана уу
- Эхлэхийн тулд "Нүүр хуудас" таб дээр дарна уу.
- Дараа нь “Хайх” -ын ард доошоо харсан гурвалжин товчийг дарна уу.
- Дараа нь "Advanced Find" -ийг сонгоно уу.
- "Find and Replace" харилцах цонхонд "Format" товчийг дарна уу.
- Дараа нь “Фонт” -ыг сонгоно уу.
- “Find Font” нүдэнд баримт бичигтээ ашигласан доогуур зургийн хэв маягийг сонгоод “OK” товчийг дарна уу.
- Одоо "Find In", дараа нь "Main Document" дээр дарах эсвэл "Next" товчийг дарж сонгоно уу. Эхнийх нь баримт бичгийн бүх доогуур зураасыг сонгох бол дараагийнх нь доогуур зураасаар нэг нэгээр нь гишгэхэд хүргэнэ.
Дашрамд хэлэхэд, хэрэв та 4-6 алхамыг алгасахыг хүсч байвал товчлол ашиглаж болно. "Ctrl + U”Гэсэн нь нэг доогуур зураас болон“Ctrl + Shift + D”Гэж давхар доогуур нь зур.
Арга 2: Word макро ажиллуулах
- Эхлээд VBA редакторыг авчрахын тулд "Developer" таб, дараа нь "Visual Basic" дээр дарна уу. Өөр арга бол “Alt + F11” товчийг дарах явдал юм.
- Дараа нь "Хэвийн" дээр дарна уу.
- Дараа нь "Insert" таб дээр дарж "Module" -г сонгоно уу.
- Одоо та "Хэвийн" төслийн хүрээнд шинэ модулийг амжилттай орууллаа. Шинэ модуль дээр давхар товшоод засварлах хэсгийг нээнэ үү.
- Дараа нь дараахь кодыг наана уу:
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 програмаа засахын тулд мэргэжлийн хүн шаардагдана.
Зохиогчийн танилцуулга:
Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com