3 façons efficaces de parcourir par zone de texte dans votre document Word

Dans cet article, nous sommes heureux de vous montrer 3 façons efficaces de naviguer par zone de texte dans votre document Word.

Il existe la commande "Sélectionner l'objet de navigation" dans Word qui vous permet de parcourir uniquement les objets que vous avez sélectionnés. Par exemple, vous pouvez choisir de naviguer par tableau ou par page. Malheureusement, il n'y a pas de fonction intégrée pour la navigation par zone de texte. Par conséquent, nous vous fournirons 3 façons de le faire.

Méthode 1 : Utilisez la touche "Tabulation"

1. Tout d'abord, appuyez sur « Ctrl + Début » pour accéder au début d'un document.
2. Ensuite, recherchez et cliquez sur la première zone de texte.
3. Ensuite, appuyez sur "Tab" pour passer à la zone de texte suivante.

Au fait, cette méthode vous permettra également de trouver des formes et des images dans le document.

Méthode 2 : exécuter une macro pour passer d'une zone de texte à une autre

1. Avant toute chose, appuyez sur « Alt+F11 » pour lancer l'éditeur VBA dans Word.
2. Cliquez ensuite sur "Normal".
3. Cliquez ensuite sur "Insérer" et sélectionnez "Module" dans son menu déroulant.
4. Ouvrez le nouveau module par double-clic.
5. Maintenant dans la zone de codage, collez les codes suivants :

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. Cliquez sur le bouton "Exécuter" dans la barre de menu ou appuyez sur "F5" pour exécuter les codes.

Une fois la macro lancée, une boîte de dialogue s'affichera, comme ci-dessous :

Sur la zone affiche le contenu de la zone de texte actuellement sélectionnée. Vous pouvez cliquer sur "Oui" pour vous arrêter dessus s'il s'agit de la zone de texte souhaitée. Sinon, cliquez sur "Non" pour passer à la zone de texte suivante.

Méthode 3 : Rechercher une zone de texte spécifique

Si vous définissez le titre de la zone de texte dans le document, vous pouvez l'utiliser en combinaison avec la macro ci-dessous pour le localiser immédiatement.

1. Tout d'abord, reportez-vous aux étapes de la méthode 2 pour installer et exécuter une macro.
2. Pensez ensuite à remplacer macro par celle-ci :

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. Dans la zone de saisie qui s'affiche, entrez le titre de la zone de texte à rechercher, puis cliquez sur « OK » pour continuer. La zone de texte cible apparaîtra alors dans la sélection.

Faire face à la perte de données

Étant donné que Word est l'un des logiciels les plus utilisés, il est nécessaire de connaître quelques astuces lorsqu'il cesse de répondre. document corrompu, votre seul choix est de le récupérer. Et pour ce faire, vous devez choisir avec soin un outil tiers auquel vous pouvez faire confiance.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris xlsx corrompu et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com