Ajout de carctères au début/fin d'un paragraphe

bled pas trés connu ????
http://www.ville-thouars.fr/ville/bienvenue.htm
;-))))

NoSpam_JieL a écrit dans le message de
news:uSNQTIT5DHA.1632@TK2MSFTNGP12.phx.gbl...

JièL Super fète a toire (c'est un bled pas trés connu) ;-)))

Bonjoir(c) gee-dee-

Le 28/01/2004 22:40 vous nous disiez ceci :

bled pas trés connu ????
http://www.ville-thouars.fr/ville/bienvenue.htm
;-))))

;-))))))))))
c'est pas exactement le même, mais bon, on doit pouvoir y faire la fète
la aussi ;-)))

--
JièL Fait'heure

Bonjoir(c) Circé

Le 28/01/2004 10:35 vous nous disiez ceci :

Et pis, Serge a demandé une macro, alors... ;-)

"Heum, heum" dis-ai je ;-)))

--
JièL Dix heurts

Et ça marche parfaitement bien !
merci encore Circé !
Afin de ne prendre aucun risque, je voulais essayer la même vérification sur
le dernier caractère, j'ai donc naïvement essayé :

Set dernier_car = Selection.Paragraphs(1).Range.Characters.Last

mais ça ne marche pas
c'est possible ?
Serge

Sub sup_parenth()

Dim parenth1 As Range
Set premier_car = Selection.Paragraphs(1).Range.Characters.First

If premier_car = "(" Then
premier_car.Delete
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
End If
End Sub

Y a peut être plus élégant, mais bon, ça doit fonctionner !!! ;-)
Au risque de perdre ma carte des AMIS... :-D

Circé


|| Serge
||
||
||| Il faut que tu mettes une condition sur le premier caractère de ton
||| paragraphe.
||| Cela dit, si ça commence par autre chose, comme une tabulation... ,
||| ce sera faux.
|||
|||
||| Sub InsertionEntreParentheses()
||| If Selection.Paragraphs.First.Range.Characters.First <> "(" Then
||| Selection.Paragraphs.First.Range.InsertBefore "("
||| Selection.Paragraphs.First.Range.Characters.Last.InsertBefore ")"
||| End If
||| end sub()
|||
||| Serge Hipontoise wrote:
||||| Sub InsertionEntreParentheses()
||||| Selection.Paragraphs.First.Range.InsertBefore "("
||||| Selection.Paragraphs.First.Range.Characters.Last.InsertBefore
||||| ")" Selection.MoveRight Unit:=wdCharacter, Count:=2
||||| End Sub
|||||
||||| qui le fait très bien
|||||
||||| Mais comment pourrais-je faire pour déterminer si ce paragraphe en
||||| question n'est pas déjà entouré de parenthèses, afin d'éviter les
||||| répétitions possibles : ((Mon paragraphe)) ?
|||||
||||| Merci
|||||
||||| Serge
|||||
||||| (désolé pour la coupure et la répétition)

Et pis, Serge a demandé une macro, alors... ;-)

Absolument, merci Circé :o)

Bonjour !

'Serge Hipontoise' nous a écrit ...

Et ça marche parfaitement bien !
merci encore Circé !
Afin de ne prendre aucun risque, je voulais essayer la même vérification sur
le dernier caractère, j'ai donc naïvement essayé :
Set dernier_car = Selection.Paragraphs(1).Range.Characters.Last
mais ça ne marche pas

Ben non bien-sûr, le dernier caractère d'un paragraphe
c'est la marque de fin de paragraphe !
Donc il te faut tester les deux derniers caractères
If Right(Selection.Paragraphs(1).Range.Text,2) = ")" & vbcr Then

Anacoluthe
« L'art de la parenthèse est un des grands secrets de l'éloquence. »
- Nicolas de CHAMFORT

Ben non bien-sûr, le dernier caractère d'un paragraphe
c'est la marque de fin de paragraphe !
Donc il te faut tester les deux derniers caractères
If Right(Selection.Paragraphs(1).Range.Text,2) = ")" & vbcr Then

Anacoluthe

Of course, merci, je vais essayer ça !

« L'art de la parenthèse est un des grands secrets de l'éloquence. »

Bien vu ;o)

Serge