[VBA-WORD] Suppression de ligne

[Tsuna78]

Bonjour,

Je rencontre un petit problème : Je suis face à un fichier ayant du texte et des lignes vides. Je souhaite faire un petit module VB permettant de supprimer ces lignes vides, et je n'y arrive pas.

J'ai fait le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim I As Integer
 
    Documents.Open FileName:="D:\test.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto, XMLTransform:="", DocumentDirection:= _
        wdLeftToRight
 
    Selection.HomeKey Unit:=wdStory
 
For I = 1 To 30
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    If ((Selection.Text) = "") Then Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Next
Next

Seulement là, ça ne supprime rien.

Je pense que le problème est dans ma condition, seulement je n'arrive pas à le résoudre.

Si quelqu'un a une solution, merci de votre aide

Tsutsu

[Speedrman]

Salut,

Essayes avec ça, pour voir si change un truc

Code :

1
2
3
4
5
6
7
8
9
For I = 1 To 30
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    If ((Selection.Text) = Chr(13)) Then
        Selection.Delete Unit:=wdCharacter, Count:=1
    Else
        Selection.MoveDown wdLine, 1, wdMove
        Selection.HomeKey wdLine, wdMove
    End If
Next

[ouskel'n'or]

Essaie ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SupLignesVides()
Dim m As Range
    Selection.WholeStory
    For Each m In ActiveDocument.Characters
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = vbCr & vbCr
            .Replacement.Text = vbCr
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
End Sub

Supprime toutes les lignes vides

[Tsuna78]

Merci pour votre aide, cela fonctionne parfaitement (pour les deux codes)