Discussion :

[Heureux-oli]

Oui, mais tout est en espagnol lol

[camzo]

oui, ça complique mais en VB on parle que VB lol

en tout cas, l'informatcien du trbunal administratif de Montevideo ne s'y connait pas du tout en VB... dommage

[Heureux-oli]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub sautdeligne()
Dim para As Paragraph
Dim i As Integer
Dim y As Integer
 
i = 0
 
 
For Each para In ActiveDocument.Paragraphs
    i = i + 1
    para.Range.Select
 
    Debug.Print Len(Selection.Words(1)) & "  " & Selection.Words(1) & " Para " & i
    y = Len(Selection.Words(1))
    If y = 1 Then Selection.Delete
 
Next para
 
End Sub

Comme je l'ai expliqué.
Je teste le premier mot de chaque paragraphe, je mesure le nombre de caractère.
Si j'ai 1 caractère, je supprime la sélection.
Si j'ai plus de 1 caractère, je passe au suivant.

Je viens d'essayer et tout baigne, je garde les styles.

[camzo]

merci, c'est parfait de chez parfait !!!

je te citerai quand je donnerai des cours sur Béziers en doc !!!

encore merci