Discussion :

[rico63]

Bonjour,
J'aimerais créer une macro qui réalise la suppression de l'action de la touche "entrer" à la fin d'une ligne. J’ai beaucoup de mal à l'expliquer alors je vous donne un exemple :

Texte : Bonjour, je
soulicite votre aide
pour une macro.

Texte après l'exécution de la macro :
Bonjour, je soulicite votre aide pour une macro.

J'espère avoir éclairé ma demande par cet exemple et qu'il existe une solution car j'ai 400 pages et plus dans les documents que je dois remettre en forme.
Merci pour votre aide.

[Heureux-oli]

Ce doit être possible, si tu pouvais mettre sur le forum une feuille de ton document.
Je pense qu'il serait intéressant de vérifier que le dernier caractère de la ligne soit un point pour ne pas enlever le retour à la ligne.

Mais avec le document, on peut mieux y réfléchir.

[Heureux-oli]

essaie avec ce code.
Il faut que la dernière ligne du paragraphe soit terminée par un point.

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
20
21
22
23
24
25
26
27
 
Sub eleverPara()
Dim para As Paragraph
Dim oDoc As Document
Dim i As Integer, j As Integer
 
 
Set oDoc = Application.ActiveDocument
 
For Each para In oDoc.Paragraphs
    para.Range.Select
 
 
    i = Selection.Range.Words.Count
    j = Len(Selection)
 
 
    If Mid(Selection, j - 1, 1) = "." Then
 
    Else
        Selection.Words(i).Delete
        Selection.InsertAfter " "
 
 
    End If
 
Next para