Үг бичих баримт бичгийн текст хайрцгаар үзэх 3 үр дүнтэй арга

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

Word дээр зөвхөн сонгосон объектуудаа үзэх боломжийг олгодог "Browse Browse Object" тушаал байдаг. Жишээлбэл, та хүснэгт эсвэл хуудсаар үзэх боломжтой. Харамсалтай нь текстийн хайрцгаар үзэх функц байхгүй байна. Тиймээс бид танд үүнийг хийх 3 аргыг өгөх болно.

Арга 1: "Tab" товчийг ашиглана уу

1. Эхлээд баримт бичгийн эхлэл рүү очихын тулд "Ctrl+Home" товчийг дарна уу.
2. Дараа нь эхний текст хайрцгийг олж товшино уу.
3. Дараагийн текст хайрцаг руу үсрэхийн тулд дараа нь "Tab" товчийг дарна уу.

Дашрамд хэлэхэд, энэ арга нь баримт бичигт байгаа дүрс, дүрсийг олох болно.

Арга 2: Нэг текстийн хайрцгаас нөгөө рүү шилжихийн тулд макро ажиллуул

1. Юуны өмнө, Word дээр VBA засварлагчийг ажиллуулахын тулд "Alt + F11" товчийг дарна уу.
2. Дараа нь "Хэвийн" дээр дарна уу.
3. Дараа нь "Insert" дээр дарж, түүний цэснээс "Module" -г сонгоно уу.
4. Шинэ модулийг хоёр товшоод нээнэ үү.
5. Одоо кодлох хэсэгт дараахь кодыг наана уу:

Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub

6. Кодыг ажиллуулахын тулд цэсийн "Ажиллуулах" товчийг дарна уу эсвэл "F5" дээр дарна уу.

Макро ажиллуулж эхэлмэгц доорх шиг мессежийн хайрцаг гарч ирнэ:

Хайрцаг дээр одоогийн сонгосон текст хайрцагт байгаа агуулгыг харуулна. Хэрэв та хүссэн текст хайрцаг байвал "Тийм" дээр дарж зогсооно уу. Үгүй бол "Үгүй" дээр дарж дараагийн текст хайрцаг руу орно уу.

Арга 3: Тодорхой текст хайрцгийг олох

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

1. Юуны өмнө макро суулгаж ажиллуулах 2-р алхам дээрх алхмуудыг үзнэ үү.
2. Дараа нь макрог дараахаар орлуулахаа санаарай.

Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub

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

Мэдээллийн алдагдлыг даван туулах

Word нь хамгийн их ашиглагддаг програм хангамжийн нэг тул Word хариу өгөхөө больсны дараа зарим нэг заль мэхийг мэдэх шаардлагатай. Чухал зүйл авлигач Doc, таны цорын ганц сонголт бол үүнийг сэргээх явдал юм. Үүнийг хийхийн тулд та итгэж болох гуравдагч этгээдийн хэрэгслийг сайтар сонгох хэрэгтэй.

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

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