3 façons rapides de sélectionner la page actuelle dans votre document Word

Dans cet article, nous sommes ravis de vous présenter 3 façons rapides de sélectionner la page actuelle dans votre document Word.

Il vous arrivera sans doute de devoir sélectionner la page actuelle pour en copier ou en extraire le contenu. Normalement, on place le curseur en haut de la page et on maintient le clic gauche enfoncé pour sélectionner toute la page. Mais il faut bien avouer que cette méthode n'est pas toujours fiable, car des erreurs peuvent se produire. Bien que la procédure ne soit pas infaillible, vous pouvez gagner du temps en adoptant des méthodes plus rapides.

Voici nos 3 solutions.

Méthode 1 : Raccourcis clavier pour un document d'une page

Lorsqu'il n'y a qu'une seule page dans le document, ce que vous devez faire est de placer votre pointeur d'insertion n'importe où dans le document et d'appuyer sur "Ctrl + A".

Méthode 2 : Raccourcis clavier pour un document multipage

En parlant maintenant de document en plusieurs pages, vous pouvez suivre les étapes ci-dessous :

1. Tout d'abord, positionnez le pointeur d'insertion au début de la page cible.
2. Appuyez ensuite sur "Maj".
3. Ensuite, faites défiler vers le bas de cette page et cliquez à la fin de la page.

Méthode 3 : exécuter la macro Word

1. Avant toute chose, cliquez sur la page cible.
2. Cliquez ensuite sur l'onglet "Développeur".
3. Cliquez ensuite sur "Visual Basic" pour ouvrir l'éditeur VBA. Ou appuyez sur "Alt + F11" pour le faire.
4. Cliquez maintenant sur le projet "Normal" puis sur l'onglet "Insérer".
5. Sélectionnez "Module" dans le menu déroulant.
6. Double-cliquez ensuite sur le module nouvellement inséré pour ouvrir l'espace de codage.
7. Collez-y les codes suivants :

Sub SelectCurrentPage()
  Dim lCurrentPageStart As Long
  Dim lCurrentPageEnd As Long
  Dim objPageRange As Range
  Dim nCurrentPageNumber As Integer
  Dim nAllPageNumber As Integer
 
  nCurrentPageNumber = Selection.Information(wdActiveEndPageNumber)
  nAllPageNumber = Selection.Information(wdNumberOfPagesInDocument)
  '  Get the start position of current page.
  lCurrentPageStart = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber).Start
 
  '  Get the end position of current page.
  If nCurrentPageNumber = nAllPageNumber Then
    lCurrentPageEnd = ActiveDocument.Content.End
  Else
    lCurrentPageEnd = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber + 1).Start
  End If
 
  '  Select current page.
  Set objPageRange = ActiveDocument.Range(Start:=lCurrentPageStart, End:=lCurrentPageEnd)
 
  objPageRange.Select
End Sub

8. Enfin, cliquez sur "Exécuter" ou appuyez sur "F5". Tous les textes de cette page sont maintenant en sélection.

Récupérer des documents Word

Il serait si pénible de trouver vos documents Word corrompus, vous laissant inaccessible à vos informations. Certes, personne ne veut avoir un document corrompu. Pourtant, lorsqu'il se produit de manière inattendue, la seule option qui reste est de récupérer les données avec un outil intégré ou un outil tiers.

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