Comment supprimer une page de texte vierge dans VBA

Instructions

1. Appuyez "Alt" et "F11" ensemble dans le document Word que vous voulez supprimer les blancs de pour ouvrir l'éditeur Visual Basic (VBE).

2. Cliquez "Insérer" puis cliquez sur "Module" pour insérer une fenêtre de module vide.

3. Coupez et collez le code suivant dans la fenêtre de module vide:

   Public Sub DeleteBlankPage ()

   Selection.GoTo Quoi: = wdGoToBookmark, Nom: =" la page"

   Si isBlankSelection Puis

   
   
   
   

   Selection.Delete

   Fin si

   End Sub

   
   
   
   
   

   Fonction publique BlankPageSelection ()

   Pour chaque c Dans Selection.Characters

   Si (c lt; gt; vbCr et C lt; gt; vbTab et C lt; gt; vbFormFeed et C lt; gt; " ") Alors

   BlankPageSelection = False

   Exit Function

   Fin si

   Suivant

   BlankPageSelection = True

   End Function

4. Appuyez "F5" pour exécuter la routine et supprimer les pages blanches de votre document.