Sujet Précédent Sujet Suivant

Insérer un saut de ligne

Résolu/Fermé
RideauBlanc Messages postés 27 Date d'inscription lundi 11 janvier 2016 Statut Membre Dernière intervention 7 décembre 2021 - 14 janv. 2021 à 23:16
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 21 avril 2021 à 16:04
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.
A voir également:

4 réponses

Réponse 1 / 4
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
15 janv. 2021 à 00:26
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 
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) )
0
Réponse 2 / 4
RideauBlanc Messages postés 27 Date d'inscription lundi 11 janvier 2016 Statut Membre Dernière intervention 7 décembre 2021 2
20 avril 2021 à 21:13
Merci beaucoup, j'espère que je vous avait remercié. J'ai décroché un peu de ce problème.
0
Réponse 3 / 4
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
21 avril 2021 à 14:36
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: 
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
0
Réponse 4 / 4
RideauBlanc Messages postés 27 Date d'inscription lundi 11 janvier 2016 Statut Membre Dernière intervention 7 décembre 2021 2
21 avril 2021 à 15:39
Merci pour ça aussi, ça fonctionne bien et je serai en mesure de faire les ajustements. Merci pour tout et très bonne journée.
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
21 avril 2021 à 16:04
peux-tu alors marquer la discussion comme résolue?
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses
Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse
Remplacer espace par retour ligne sur txt ???
ABCLOVE -
Namzat -

11 réponses