2 façons d'accéder rapidement à un paragraphe spécifique dans votre document Word

Dans ce post, nous sommes ravis de vous montrer 2 façons d'accéder rapidement à un paragraphe spécifique de votre document Word.

Il existe la fonction "Aller à" dans Word, avec laquelle nous pouvons accéder rapidement à une page, une section, un signet, etc. spécifique. Mais il est tellement dommage que la fonctionnalité intégrée ne puisse pas nous amener à un paragraphe désigné en un clic. Cela étant dit, nous nous sentons obligés de vous présenter quelques solutions de contournement.

Méthode 1 : Accéder à un paragraphe spécifique dans un document sans numéro de paragraphe

1. Premier et premierost, appuyez sur "Alt + F11" pour appeler l'éditeur VBA dans Word.
2. Cliquez ensuite sur "Normal" dans la colonne de gauche.
3. Cliquez ensuite sur "Insérer" et choisissez "Module" dans son menu déroulant.
4. Maintenant, double-cliquez sur le nouveau module pour l'ouvrir. Collez-y les codes suivants :

Sub RemoveBlankParagraphs()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^p^p"
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
  If Selection.Find.Found = False Then
    MsgBox ("There is no blank paragraph in the document.")
    Call GoToASpecificParagraph
  End If
End Sub

Sub GoToASpecificParagraph()
  Dim strParaNum As String
  Dim objDoc As Document
  Dim nParaNum As Integer
 
  Set objDoc = ActiveDocument
  strParaNum = InputBox("Enter a number representing the paragraph you need to go to: ", "Paragraph Number")
 
  nParaNum = objDoc.ComputeStatistics(wdStatisticParagraphs)
 
  If strParaNum <= "0" Or strParaNum > nParaNum Then
    MsgBox ("This is not a valid number. Please enter a number between 1 and " & nParaNum & ".")
  End If
 
  objDoc.Paragraphs(strParaNum).Range.Select
 
End Sub

5. Cliquez sur «Exécuter».
6. Exécutez la macro plusieurs fois jusqu'à ce que vous obteniez la boîte de message suivante.

Cliquez ensuite sur "OK". La raison pour laquelle nous cliquons plusieurs fois sur le bouton "Exécuter" est de supprimer tous les paragraphes vides du document. Par défaut, Word les considère comme des paragraphes normaux. Ainsi, le résultat final peut ne pas être le paragraphe exact auquel nous voulons accéder.

7. Ensuite, dans la prochaine case ouverte, entrez un nombre, représentant le paragraphe que vous devez visiter.
8. Et cliquez sur "OK".

Vous verrez le tarobtenir le paragraphe est en sélection.

Méthode 2 : Accéder à un paragraphe spécifique dans un document avec des numéros de paragraphe

1. Tout d'abord, appuyez sur "Ctrl + A" pour sélectionner tous les textes du document.
2. Cliquez ensuite sur "Numérotation" sous l'onglet "Accueil".
3. Suivez ensuite les mêmes étapes que dans la méthode 1 pour installer et exécuter une macro.
4. Seulement cette fois, remplacez la macro par celle ci-dessous :

Sub GoTOParaInDocWithParaNum()
  Dim strParaNum As String
  Dim objPara As Paragraph
  Dim objDoc As Document
  Dim nParaNum As Integer
 
  Set objDoc = ActiveDocument
 
  strParaNum = InputBox("Enter a paragraph number following with a period:", "Paragraph Number")
 
  nParaNum = objDoc.ComputeStatistics(wdStatisticParagraphs)
 
  If strParaNum <= "0" Or strParaNum > nParaNum Then
    MsgBox ("This is not a valid number. Please enter a number between 1 and " & nParaNum & ".")
  End If
 
  For Each objPara In objDoc.Paragraphs
    If strParaNum = objPara.Range.ListFormat.ListString Then
      objPara.Range.Select
    End If
  Next
End Sub

5. Cliquez ensuite sur "Exécuter" ou appuyez sur "F5".
6. Dans la boîte ouverte, entrez un numéro de paragraphe suivi d'un point dans la zone de texte.
7. Cliquez sur "OK" pour continuer.

De même, le tarobtenir le paragraphe doit être dans la sélection maintenant.

Réparer les documents endommagés

Une fois que vous avez trouvé votre document corrompu, vous ne pouviez pas ne pas tenter votre chance dans l'espoir qu'il reviendra la prochaine fois que vous l'ouvrirez. Au lieu de cela, vous devez saisir le temps d'obtenir un outil prééminent pour doc dommage réparer, car chaque minute compte dans le processus de réparation.

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 réparer xlsx et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com