Discussion :

[mouftie]

Bonjour,
je ne comprends pas pourquoi mon code ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DtEx
'Supprime la ligne
Dim pAra As Paragraph
'on revient au début du document
Selection.HomeKey Unit:=wdStory
For Each pAra In ActiveDocument.Paragraphs
    'condition : si fin de paragarphe = Toto
    If Right(pAra, 5) = " Toto" Then
        'on sélectionne la ligne
        Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.Delete Unit:=wdCharacter, Count:=1   ' Supp
    End If
Next pAra
End Sub

il ne se passe rien
Merci de votre aide

[Heureux-oli]

Salut,

Je te conseille de faire un debug.print sur le résultat de Left(pAra,5), je pense que tu devrais trouver pourquoi il ne se passe rien.

[mouftie]

Bonjour Heureux-oli,
Merci de ta réponse, j'ai fait ce que tu m'as conseillé, ma variable renvoie chaque paragagraphe, quelque soit le dernier mot.

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
Sub DtEx()
'Supprime la ligne
Dim pAra As Paragraph
'on revient au début du document
Selection.HomeKey Unit:=wdStory
For Each pAra In ActiveDocument.Paragraphs
    'condition : si fin de paragarphe = Toto
    If Right(pAra, 5) = " Toto" Then
        'on sélectionne la ligne
        Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.Delete Unit:=wdCharacter, Count:=1   ' Supp
    Else
        Debug.Print (pAra)
    End If
Next pAra
End Sub

Seule la partie Else est parcourrue ; Merci

[Heureux-oli]

Salut,

Ce que je voulais que tu trouves était que pour avoir les cinq derniers caractères, il faut un mid et pas un left.
Le saut de paragraphe est considéré comme un caractère du paragraphe.

Ce qui empêche le résultat de la comparaison avec Toto.

[Marc-L]

Bonjour,

ou bien Right(pAra, 5) Like "Toto?" (ou "Toto*") ou encore Left(Right(pAra, 5), 4) = "Toto" …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[mouftie]

Merci à Marc de se joindre à nous, car malgrès les efforts d'Heureux-oli, je ne vois pas comment utiliser mid...
Puis-je vous demander d'aller un peu plus loin, car je n'y arrive pas.
J'arrive à supprimer la 1ère occurence, mais pas les suivantes (je suppose que je perds le fil de mes selections, mais je n'y comprends rien avec les sélections dans Word)

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
Sub DtEx1()
'Supprime la ligne
Dim pAra As Paragraph
'on revient au début du document 
Selection.HomeKey Unit:=wdStory
For Each pAra In ActiveDocument.Paragraphs
    'condition : si fin de paragarphe = Toto
    If Right(pAra, 5) Like "Toto?" Then
        'on sélectionne la ligne        
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Delete    'on supprime
    Else    'sinon, on descend la sélection d'une ligne
        Selection.MoveDown Unit:=wdLine, Count:=1 ', Extend:=wdExtend
    End If
Next pAra
End Sub

je commence à m'en sortir avec VBA excel mais avec word, c'est un autre monde...
Merci

[Heureux-oli]

Salut,

L'idée de Marc n'est pas mauvaise et peut-être un peu plus simple.

Pour le mid, il faut connaître le nombre de caractères du paragraphe et partant de là on peut utiliser le Mid.

son idée est un peu plus facile, tu récupères 6 caractères avec un Right().
Et tu élimine le dernier avec un Left().
tu auras "Toto?".


Left(Right(pAra,6),5)Mais, il y a souvent un mais, il faut être certain de la structure.
Si c'est un mot précis que tu cherches et qu'il peut être entouré de ponctuation, InStr() irait un peu mieux.

[mouftie]

Merci de ta réponse,

mon pb, c'est de supprimer tous les paragraphes qui contiennent le mot toto en fin de paragraphe ; il s'agit bien d'un mot précis.

[Heureux-oli]

Salut,

Donc, ta première étape est de tester si tu trouves bien ton mot dans les paragraphes.
Essaie avec les astuces que nous t'avons données.

[mouftie]

Bonjour,
je te remercie d'avoir pris la peine de répondre, mais ça ne m'aide pas beaucoup, j'ai lu les réponses apportées.
Je trouve bien toto, mais je ne supprime que la ligne de la 1ère occurence pas les autres.

[Heureux-oli]

Salut,

Une étape à la fois, le but n'est pas de fournir un code complet, mais de t'aider à écrire ton code.

Pour quelles raisons passes-tu par des extend ?
Si c'est pour supprimer le paragraphe, il suffit de supprimer le contenu de l'objet dans ton code.

Voilà un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub SuppressionPara()
Dim oPar As Paragraph
 
For Each oPar In ActiveDocument.Paragraphs
If Left(Right(oPar.Range.Text, 7), 6) = "massa." Then
oPar.Range.Delete
End If
Next oPar
 
 
 
End Sub

[mouftie]

Bonjour,

Une étape à la fois

Je te rassure, j'ai beaucoup appris dans ce poste ;>

Pour quelles raisons passes-tu par des extend ?

Je pensais que c'etait obligatoire pour supprimer la ligne entière.

Le pb avec vba word c'est qu'on ne voit pas la valeur des variables comme avec Excel ; passer par des debug.print c'est un peu long.

En tout état de cause, j'ai beaucoup travaillé avec vos idées, je vous en remercie.
ta dernière proposition fonctionne très bien ; je t'en remercie beaucoup.
A bientôt