Зөвхөн үгийн хүснэгтээсээ текст хайх 3 хурдан арга

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

Word програмд ​​суулгасан "Ол, солих" функцийг ашигласнаар та урт баримтаас тодорхой текстийг хайж олох боломжтой. Таны харж байгаагаар энэ нь бүх баримт бичигт үндэслэсэн болно. Хайлтын хүрээг зөвхөн Word хүснэгтээр хязгаарлавал ямар вэ? Дэлгэрэнгүйг үзэхийн тулд уншина уу.

Арга 1: Сонголт доторх текстийг ол

1. Юуны өмнө баримтаас нэг буюу хэд хэдэн хүснэгтийг гараар сонгоно уу.
2. Дараа нь "Нүүр хуудас" табын доор байрлах "Find" командын хажууд доош унах товчийг дарна уу.
3. "Нарийвчилсан хайлт" гэснийг сонгоод "Олох ба солих" харилцах цонхыг нээнэ үү.
4. Олж буй текстийг "Юуг олох" текст талбарт оруулна уу.
5. "Find In" таб дээр товшоод "Одоогийн сонголт" -ыг сонгоно уу.  

Word зөвхөн таны сонголтоос текстийг олох болно.

Арга 2: Хүснэгтээс текстийг олох

Ердийн аргаас гадна та илүү тохируулсан ажлуудыг хийхийн тулд макро ажиллуулахаар сонгож болно.

1. Эхлээд курсороо текстийг олохыг хүссэн хүснэгтийн дотор байрлуул.
2. Дараа нь "Alt + F11" товчийг дарж VBA засварлагчийг нээнэ үү.
3. Зүүн баганад байгаа "Хэвийн" дээр дарна уу.
4. Дараа нь "Insert" дээр дарж "Module" -г сонгоно уу.
5. Дараа нь модуль дээр давхар товшоод нээнэ үү.
6. Дараах кодыг модульд буулгана уу:

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

7. Эцэст нь "Run" дээр дарна уу. Оролтын талбарт текст оруулаад "OK" дээр дарж үргэлжлүүлнэ үү.

Арга 3: Баримт бичгийн бүх хүснэгтээс текстийг олох

1. Юуны өмнө макро суулгаж, ажиллуулахын тулд 2-р аргын алхмуудыг давтана уу.
2. Дараа нь энэ макрог дараахаар солино:

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. Үүний нэгэн адил хайлтын текстийг оруулах талбарт бичнэ үү. Тэгээд үргэлжлүүлэхийн тулд "OK" дээр дарна уу.

Өгөгдлөө цаг тухайд нь аврах

Эвдэрсэн өгөгдлийг олж авсны дараа тэдгээрийг сэргээх боломжтой гэдгийг санаарай. Тиймээс оролдохоосоо өмнө хэзээ ч битгий бууж өг. Ийм нөхцөлд та хамгийн сүүлийн үеийн нөөц хуулбараа шалгах хэрэгтэй. Таны зарим өгөгдлийг буцааж авах сайхан боломж байна. Үүнээс гадна та үргэлж хандаж болно док засварлах өгөгдөл сэргээх хэрэгсэл.

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

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