Discussion :

[PLH81]

Bonjour,
Suite à la copie d'un pdf vers un fichier word, je souhaiterai faire une petite macro permettant de supprimer les retours de paragraphes qui sont en bout de ligne si le dernier caractère n'est pas un . ou ? ou !

j'ai donc écrit ceci :

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
 
Sub Suppression_Chariot()
    Dim bStop As Boolean  ' un . ou un ? ou ! est trouvé, j'arrête la macro
 
bStop = False
    Do While bStop = False
        Selection.EndKey Unit:=wdLine
        Selection.Find.Execute findtext:="^p"
        MsgBox ActiveDocument.Range(Selection.Range.Start - 1, Selection.Range.End - 0)
        If ActiveDocument.Range(Selection.Range.Start - 1, Selection.Range.End - 0) = "." And _
        ActiveDocument.Range(Selection.Range.Start - 1, Selection.Range.End - 0) = "?" And _
        ActiveDocument.Range(Selection.Range.Start - 1, Selection.Range.End - 0) = "!" Then
            bStop = True
        Else
           Selection = " "
        End If
    Loop
 
End Sub

Sauf que ça ne marche pas car même lorsqu'il y a un . ou ? ou ! il remplace le retour charriot par un espace. J'ai pourtant bien le dernier caractère de sélectionné, ce que semble montrer MsgBox
Quelqu'un peut-il me dire pourquoi ?
Merci.

[clementmarcotte]

Bonjour,

Apparemment, si tu ramasses une espace, c'est que ton If à rallonge est planté. Mets des espions sur tes expressions et tes valeurs et exécute au pas-à-pas.

C'est pour cela que, personnellement, j'aime mieux les blocs IF imbriqués

[PLH81]

Bonjour,
Je ne ramasse pas un espace, je change par un espace, si les conditions sont trouvées.
Je n'aime pas les if imbriqués, je préfère les case. Mais là n'ai pas le problème.
Ceci dit, j'ai trouvé d'où venait le problème.

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
Sub Suppression_Chariot()
    Dim CaractereT As String
    Dim bStop As Boolean
 
    bStop = False
    Do While bStop = False
        Selection.EndKey Unit:=wdLine
        Selection.Find.Execute findtext:="^p"
        CaractereT = ActiveDocument.Range(Selection.Range.Start - 1, Selection.Range.End - 1) ' la précédente version prenait deux caractères
        If CaractereT = "." Or _
        CaractereT = "?" Or _
        CaractereT = "!" Then 'pffff ... or et non and
            bStop = True
        Else
           Selection = " "
        End If
    Loop
 
End Sub