Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
WordWord - Supprimer les espaces entre les phrases
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Sub DelEmptyLine()
Set Mydoc = ActiveDocument.Content
Do Until Not Mydoc.Find.Execute( _
Findtext:="^p^p", _
ReplaceWith:="^p", _
Replace:=wdReplaceAll)
Loop
End Sub
Nota: seules les lignes réellement vides seront supprimées, pas celles contenant uniquement un ou plusieurs espaces
merci fanch j'ai procédé en utilisant recherche-remplacer "^p^p" par "^p" ça marchait j'ai réduit 7 pages en 3 , mais reste encore quelques lignes vides .
je ne sais pas pourquoi word ne les reconnait pas
ce sont les lignes avec uniquement des espaces qui restent.
Essayez le code ci-dessous :
VB:
Sub DelEmptyLine()
Set Mydoc = ActiveDocument.Content
Do Until Not Mydoc.Find.Execute( _
Findtext:=" ^p", _
ReplaceWith:="^p", _
Replace:=wdReplaceAll)
Loop
Do Until Not Mydoc.Find.Execute( _
Findtext:="^p^p", _
ReplaceWith:="^p", _
Replace:=wdReplaceAll)
Loop
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD