Macro Word remplacer retour chariot

Question

Bonjour,

J'ai un fichier en Word rerprennant les données suivantes

B1647
TM012345
F654321

Etc ...
Chaque donnée est terminée par un retour chariot.
Le nombre de caractères des données est variable.

J'aimerais beaucoup avoir une macro qui donne ceci avec les données :
B1647;TM012345;F654321  etc ...

Donc chaque retour chariot doit être remplacé par un point-virgule et les données doivent être accolées l'une à l'autre.

Etant débutant dans le domaine, merci de bien vouloir écrire la macro complète.

Merci d'avance pour votre intervention.
Cordialement,

Galagrenat

Galagrenat · Answer

Bon, j'ai un début de piste

Sub Macro1()
'
' Macro1 Macro
'
    Selection.EndKey Unit:=wdLine
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=";"
    
End Sub

Mais comment faire pour qu'il parcoure tout le document et s'arrête à la fin ?

Macro Word remplacer retour chariot

1 réponse

Votre réponse

Newsletters