Таны үгийн баримт бичигт текст хайрцгаас текст гаргаж авах 2 хурдан арга

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

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

Мэдээжийн хэрэг, текстийг хуулж аваад өөр газар буулгаснаар нэг текстийн хайрцаг доторх үгсийг хурдан олж авах боломжтой. Гэсэн хэдий ч, тэдний хэдэн зуун талаар ярих юм бол бид ажлаа дуусгах зарим хурдан зөвлөмжийг сурсан нь дээр.

Арга 1: "Сонгох самбар"-ыг ашиглана уу

1. Юуны өмнө "Нүүр хуудас" таб дээр дарна уу.
2. Дараа нь "Засварлах" бүлгийн "Сонгох" дүрс дээр дарна уу.
3. Дараа нь унадаг цэснээс "Сонголтын самбар" -ыг сонгоно уу.
4. Одоо дэлгэцийн баруун талд, та самбар дээр харагдах бүх текстийн хайрцгийг харж болно.
5. "Ctrl" товчийг дараад самбар дээрх текстийн хайрцгийн нэрийг нэг нэгээр нь товшоод бүгдийг нь сонгоно уу.
6. Мөн курсорыг хайрцагны нэг мөрөнд байрлуулж баруун товчийг дарна уу.
7. Жагсаалтын сонголтоос "Хуулбарлах" дээр дарна уу. Хэрэв танд эдгээр хайрцагнууд хэрэггүй бол "Устгах" дээр дарна уу.
8. Дараа нь Windows цэсийг харахын тулд "Эхлүүлэх" товчийг дарна уу.
9. "WordPad" -ийг сонгоод нээнэ үү.
10. Дараа нь "Буулгах" дээр дарж бүх текстийг текстийн нүднүүдээс авна уу.
11. Дараа нь бүх текстийг сонгоод баруун товчийг дарж "Хуулбарлах" гэснийг сонгоно уу.
12. Одоо шинэ Word баримтыг нээгээд, текстийг авахын тулд "Зөвхөн Текстийг хадгалах" гэснийг сонгохын тулд баруун товчийг дарна уу.

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

Таны харж байгаагаар эхний аргыг хэрэглэсэн ч гэсэн та бүх текстийн хайрцгийг сонгохоос зайлсхийж чадахгүй. Хэрэв та нарын зарим нь ийм хөдөлмөрийн ажлыг зүгээр л үзэн яддаг бол бид танд макро ажиллуулах аргыг санал болгож байна. 2-р аргын тусламжтайгаар та бүх текстийг нэг дор задалж, текстийн нүдийг устгаж болно.

1. Нэгдүгээрт, VBA редакторыг нээхийн тулд “Alt + F11” товчийг дарна уу.
2. Хоёрдугаарт, "Хэвийн", дараа нь "Оруулах" дээр дарна уу.
3. Дараа нь шинээр оруулахын тулд “Модуль” -г сонгоно уу.
4. Дараа нь модулийн нэр дээр давхар товшоод засварлах хэсгийг нээнэ үү.
5. Дараах кодыг оруулаад "Run" дээр дарна уу.

Sub DeleteTextBoxesAndExtractTheText()
  Dim nNumber As Integer
  Dim strText As String

  '  Delete all textboxes and extract the text from them
  With ActiveDocument
    For nNumber = .Shapes.Count To 1 Step -1
    If .Shapes(nNumber).Type = msoTextBox Then
      strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
      .Shapes(nNumber).Delete
    End If
  Next
  End With

  '  Open a new document to paste the text from textboxes.
  If strText <> "" Then
    Documents.Add Template:="Normal"
    ActiveDocument.Range.Text = strText
  Else
    MsgBox ("There is no textbox.")
  End If
End Sub

Таны авах магадлалтай зүйл энд байна:

Эвдэрсэн Word файлуудыг даван туулах

Үг нь алдаа гаргах хандлагатай байдаг тул байнга авлигын хохирогч болдог. Тиймээс та бичиг баримтаа эвдрэлээс хамгаалахын тулд зохих журмын дагуу ажиллах ёстой. Нэгэнт эвдэрсэн тохиолдолд та тэднийг бүрмөсөн алдах эрсдэлтэй тулгарах болно. Дараа нь та ашиглах хэрэгтэй болно гэмтсэн Word мэдээлэл сэргээх хэрэгсэл.

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

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