Insérer un saut de ligne
Résolu
RideauBlanc
Messages postés
27
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai cherché et je ne trouve pas comment remplacer toutes les fins de lignes dans un texte Word ou dans une sélection pour les remplacer par un saut de ligne Chr(11).
Je voudrais faire ce code pour l'ensemble du document
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Chr(11)
J'ai essayé comme ça, mais je ne voit pas comment lui dire TOUT pas juste 10 fois
Dim i
For i = 0 To 10
Selection.TypeText Text:=Chr(11)
Selection.MoveDown Unit:=wdLine, Count:=1
Next i
Pouvez-vous m'aidez s'il vous plaît? Ou me mettre sur une piste de solution.
Merci.
J'ai cherché et je ne trouve pas comment remplacer toutes les fins de lignes dans un texte Word ou dans une sélection pour les remplacer par un saut de ligne Chr(11).
Je voudrais faire ce code pour l'ensemble du document
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Chr(11)
J'ai essayé comme ça, mais je ne voit pas comment lui dire TOUT pas juste 10 fois
Dim i
For i = 0 To 10
Selection.TypeText Text:=Chr(11)
Selection.MoveDown Unit:=wdLine, Count:=1
Next i
Pouvez-vous m'aidez s'il vous plaît? Ou me mettre sur une piste de solution.
Merci.
A voir également:
- Insérer un saut de ligne
- Partage de photos en ligne - Guide
- Insérer video powerpoint - Guide
- Insérer signature word - Guide
- Comment supprimer une page sur word avec un saut de page ? - Guide
- Insérer liste déroulante excel - Guide
4 réponses
Bonjour,
ça fait des années que je n'ai pas fait de vba sous word ...
mais je pense qu'avec une instruction du genre
tu pourrais faire ta boucle de 1 à nblines
Par contre, si tu rajoutes un saut de ligne.. à chaque ligne ... je pense qu'il faudra boucler en partant de la fin
(pas certain de la syntaxe de la boucle.. (en tout cas, sous excel, c'est comme ça) )
ça fait des années que je n'ai pas fait de vba sous word ...
mais je pense qu'avec une instruction du genre
nblines = Selection.Range.ComputeStatistics(wdStatisticLines)
tu pourrais faire ta boucle de 1 à nblines
Par contre, si tu rajoutes un saut de ligne.. à chaque ligne ... je pense qu'il faudra boucler en partant de la fin
for nblines to 1 step -1 '... ton code.... next
(pas certain de la syntaxe de la boucle.. (en tout cas, sous excel, c'est comme ça) )
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
MoveDown retourne le nombre de lignes (dans ce cas) correspondant au mouvement réellement effectué.
il suffit probablement de boucler tant que le mouvement est possible:
ou
MoveDown retourne le nombre de lignes (dans ce cas) correspondant au mouvement réellement effectué.
il suffit probablement de boucler tant que le mouvement est possible:
Do
Selection.TypeText Text:=Chr(11)
Loop While Selection.MoveDown(wdLine, 1) > 0
ou
Do While Selection.MoveDown(wdLine, 1) > 0
Selection.TypeText Text:=Chr(11)
Loop
