Word құжатындағы мәтін жолағына шолу жасаудың 3 тиімді әдісі

Бұл мақалада біз сізге Word құжатындағы мәтін жолағы бойынша шолудың 3 тиімді әдісін көрсетуге қуаныштымыз.

Word бағдарламасында тек таңдалған нысандарды шолуға мүмкіндік беретін «Шолу нысанын таңдау» пәрмені бар. Мысалы, кесте немесе бет бойынша шолуды таңдауға болады. Өкінішке орай, мәтін жолағы арқылы шолу үшін кірістірілген функция жоқ. Сондықтан біз сізге мұны істеудің 3 әдісін ұсынамыз.

1-әдіс: «Tab» пернесін пайдаланыңыз

1. Алдымен құжаттың басына өту үшін «Ctrl+Home» пернелер тіркесімін басыңыз.
2. Содан кейін бірінші мәтін жолағын тауып, басыңыз.
3. Келесі мәтін жолағына өту үшін «Tab» түймесін басыңыз.

Айтпақшы, осылайша құжаттағы пішіндер мен кескіндерді де таба аласыз.

2-әдіс: Бір мәтін ұясынан екіншісіне өту үшін макросты іске қосыңыз

1. Ең алдымен, Word бағдарламасында VBA редакторын іске қосу үшін «Alt+F11» пернелер тіркесімін басыңыз.
2. Әрі қарай «Қалыпты» батырмасын басыңыз.
3. Содан кейін «Кірістіру» түймесін басып, ашылмалы мәзірден «Модуль» тармағын таңдаңыз.
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. Келесі жолы пайда болған енгізу өрісіне табылатын мәтін өрісінің тақырыбын енгізіп, жалғастыру үшін «ОК» түймесін басыңыз. Таңдау кезінде мақсатты мәтін өрісін табасыз.

Деректер жоғалуымен күресу

Word бағдарламасы ең көп қолданылатын бағдарламалық жасақтамалардың бірі болғандықтан, Word жауап беруді тоқтатқаннан кейін кейбір амалдарды білу қажет. Маңыздысы үшін сыбайлас құжат, сіздің жалғыз таңдауыңыз - оны қалпына келтіру. Мұны істеу үшін сізге сенуге болатын үшінші тарап құралын мұқият таңдау керек.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жемқор xlsx және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com