Word Word - Supprimer les espaces entre les phrases

[ultra_v]

bonjour ,

j'ai beau cherché sur internet mais j'ai pas réussi à supprimer les espaces vides en une seule fois .
comment faire SVP ?
fichier en PJ
merci

 

[fanch55]

Bonjour,
Exécutez la macro ci-dessous :

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

 

[ultra_v]

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

 

[fanch55]

ce sont les lignes avec uniquement des espaces qui restent.
Essayez le code ci-dessous :

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

 

[fanch55]

Pas de retour ???

 

[ultra_v]

merci beaucoup