3 effektive måder at gennemse efter tekstfelt i dit Word-dokument

I denne artikel er vi glade for at vise dig 3 effektive måder at gennemse efter tekstfelt i dit Word-dokument.

Der er kommandoen "Vælg gennemsøgningsobjekt" i Word, der giver dig mulighed for kun at gennemse de objekter, du valgte. For eksempel kan du vælge at gennemse efter tabel eller side. Desværre er der ingen indbygget funktion til browsing efter tekstfelt. Derfor giver vi dig 3 måder at gøre det på.

Metode 1: Brug “Tab” -tasten

1. Først skal du trykke på "Ctrl + Home" for at gå til starten af ​​et dokument.
2. Find og klik derefter på det første tekstfelt.
3. Tryk derefter på “Tab” for at springe til næste tekstfelt.

Forresten finder denne måde dig også figurer og billeder i dokumentet.

Metode 2: Kør makro for at hoppe fra et tekstfelt til et andet

1. Først og fremmest skal du trykke på “Alt+F11” for at aktivere VBA-editoren i Word.
2. Klik derefter på “Normal”.
3. Klik derefter på "Indsæt" og vælg "Modul" i rullemenuen.
4. Åbn det nye modul ved at dobbeltklikke.
5. Nu skal du indsætte følgende koder i kodningsområdet:

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. Klik på knappen "Kør" på menulinjen, eller tryk på "F5" for at udføre koderne.

Når du starter makroen, vil der dukke en meddelelsesboks op, som f.eks. nedenfor:

På feltet viser indholdet i det aktuelle valgte tekstfelt. Du kan klikke på “Ja” for at stoppe ved det, hvis det er det ønskede tekstfelt. Ellers skal du klikke på “Nej” for at gå til næste tekstfelt.

Metode 3: Find et specifikt tekstfelt

Hvis du indstiller titel til tekstfelt i dokument, kan du bruge den i kombination med den bølgende makro til at finde den med det samme.

1. Først og fremmest henvises til trin i metode 2 for at installere og køre en makro.
2. Husk derefter at udskifte makro med denne:

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. Indtast derefter titlen på den tekstboks, der skal findes, i det viste inputfelt, og klik på "OK" for at fortsætte. Du vil finde den ønskede tekstboks i valgfeltet.

Håndter datatab

I betragtning af at Word er en af ​​de mest anvendte programmer, er det nødvendigt at kende nogle tricks, når Word holder op med at reagere. Af vigtige årsager korrupt dok, dit eneste valg er at gendanne det. Og for at gøre dette skal du omhyggeligt vælge et tredjepartsværktøj, du kan stole på.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupt xlsx og pdf produkter til reparation af software. For mere information besøg www.datanumen.com