Microsoft Word Page Sources
Microsoft Word Page SourcesConsultez toutes les sources
Nombre d'auteurs : 5, nombre de sources : 7, création le 1er octobre 2007
Sommaire→Paragraphes
Deux alternatives pour supprimer les lignes vides d'un document.
Ce premier code tient compte du style du paragraphe suivant
Sélectionnez
Sub SupprimerLesLignesVides()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.Range.Text = vbCr Then para.Range.Delete
Next para
End Sub
Ce second code supprime simplement les paragraphes vides
Sélectionnez
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 SubExplication du code
| Code | Résultat |
|---|---|
| For Each para in ActiveDocument.Paragraphs....Next para | Boucle pour parcourir tous les paragraphes du document |
| i = i + 1 | Incrémentation de i de 1 lors de chaque boucle |
| para.Range.Select | Sélection du paragraphe courant |
| Debug.print | Vérification des données |
| Y = Len(Selection.Words(1)) | Mesure de la longueur du premier mot du paragraphe |
| If y = 1 Then | Condition d'exécution |