Discussion :

[ChristophePa]

Bonjour à tous,
C’est la première fois que je viens sur ce site pour solliciter votre aide. J’ai bon nombre de textes composés de plusieurs strophes, chacune contenant 4 lignes (il s’agit d’hymnes liturgiques). Après toute quatrième ligne, la suivante est numérotée (pour marquer les strophes). Hélas les espaces entre les strophes sont les mêmes qu’entre les lignes. Comment faire pour augmenter de 6 points les espacements entre les strophes. Je suis incapable de faire une macro adéquate c’est pourquoi je vous prie de m'aider.

Voici ce que j’ai :

1 Dans l'ombre a jailli la lumière,
Un chant joyeux s'est élevé ;
Voici que l'Amour se révèle
Au cœur du monde émerveillé.
2 La terre est remplie d'espérance,
Dieu fait germer le fruit de vie ;
La Vierge a donné la réponse,
S'offrant joyeuse en un seul « oui ».
3 Venez, car Jésus vient de naître,
Le Fils de Dieu, le Roi du ciel ;
Voyez dans les bras de sa mère
L'Enfant promis, l'Emmanuel.
4 Il dort, nouveau né dans ses langes,
Sauveur si faible et démuni ;
Le signe annoncé par les anges,
Devant nos yeux est accompli.
5 C'est lui dont parlaient les prophètes,
C'est lui qui fit tressaillir Jean ;
Il vient envoyé par le Père
Sauver la chair en l'assumant.

Et voici ce que je voudrais obtenir :

1 Dans l'ombre a jailli la lumière,
Un chant joyeux s'est élevé ;
Voici que l'Amour se révèle
Au cœur du monde émerveillé.

2 La terre est remplie d'espérance,
Dieu fait germer le fruit de vie ;
La Vierge a donné la réponse,
S'offrant joyeuse en un seul « oui ».

3 Venez, car Jésus vient de naître,
Le Fils de Dieu, le Roi du ciel ;
Voyez dans les bras de sa mère
L'Enfant promis, l'Emmanuel.

4 Il dort, nouveau né dans ses langes,
Sauveur si faible et démuni ;
Le signe annoncé par les anges,
Devant nos yeux est accompli.

5 C'est lui dont parlaient les prophètes,
C'est lui qui fit tressaillir Jean ;
Il vient envoyé par le Père
Sauver la chair en l'assumant.

Je remercie d’avance pour votre aide.
Amicalement. Christophe.

[kiki29]

Salut, version bestiale à tester

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
Option Explicit
 
Sub Tst()
Dim iNbLignes As Long
Dim i As Long, Pas As Long
 
    iNbLignes = ActiveDocument.Content.ComputeStatistics(wdStatisticLines)
 
    Selection.EndKey Unit:=wdStory
    Selection.HomeKey Unit:=wdStory
 
    Pas = 4
    For i = 1 To iNbLignes \ Pas
        Selection.MoveDown Unit:=wdLine, Count:=Pas
        Selection.TypeText Text:=Chr(13)
        'Selection.TypeParagraph
    Next i
 
End Sub

[Heureux-oli]

Salut,

Je pense qu'on aurait besoin du vrai texte pour être certain de la décision à donner.

Eet possible qu'une macro ne soit pas nécessaire dans certains cas.

[ChristophePa]

Le code ci-dessus ne fait pas ce que je voulais. Il ajoute un paragraphe supplémentaire entre les strophes et moi je ne voulais pas de paragraphe mais uniquement un espacement plus grand. Ensuite mon texte s'en trouve au milieu d'autres et je voudrais que la macro ne s'applique qu'à lui. Un peu compliqué, au moins pour moi qui ne connais pas VBA. Amicalement.

[Heureux-oli]

Salut,

C'était un peu le but de ma remarque.
Sans le document, on travaille à l'aveuglette.

[ChristophePa]

Et comment fournir le document?

[Heureux-oli]

Salut,

il y a une icône en forme de trombone qui permet d'accrocher un fichier à la discussion.