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)
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)) ?
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)
Circé
Bonjour 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)
Bonjour 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)
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)
Serge Hipontoise
C'est exactement ça ! Merci beaucoup, Circé :)
"Circé" <circé@aea.gr> a écrit dans le message de news:
Bonjour 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)
C'est exactement ça ! Merci beaucoup, Circé :)
"Circé" <circé@aea.gr> a écrit dans le message de
news:e0xP9yM5DHA.2580@TK2MSFTNGP11.phx.gbl...
Bonjour 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)
"Circé" <circé@aea.gr> a écrit dans le message de news:
Bonjour 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)
Serge Hipontoise
Et pourrais-je abuser et te demander comment supprimer ces parenthèses ? ;o) Merci 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 pourrais-je abuser et te demander comment supprimer ces parenthèses ? ;o)
Merci
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 pourrais-je abuser et te demander comment supprimer ces parenthèses ? ;o) Merci 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)
Circé
Re...
Serge Hipontoise wrote: || Et pourrais-je abuser et te demander comment supprimer ces || parenthèses ? ;o) Merci
Euh... je suis pas sûre d'avoir bien compris. Si tu veux supprimer les parenthèse de début et de fin, tu peux faire ça :
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)
Re...
Serge Hipontoise wrote:
|| Et pourrais-je abuser et te demander comment supprimer ces
|| parenthèses ? ;o) Merci
Euh... je suis pas sûre d'avoir bien compris. Si tu veux supprimer les
parenthèse de début et de fin, tu peux faire ça :
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)
Serge Hipontoise wrote: || Et pourrais-je abuser et te demander comment supprimer ces || parenthèses ? ;o) Merci
Euh... je suis pas sûre d'avoir bien compris. Si tu veux supprimer les parenthèse de début et de fin, tu peux faire ça :
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)
Geo
Bonjour Circé,
Re...
Serge Hipontoise wrote:
Et pourrais-je abuser et te demander comment supprimer ces parenthèses ? ;o) Merci
Euh... je suis pas sûre d'avoir bien compris. Si tu veux supprimer les
parenthèse de début et de fin, tu peux faire ça :
Sub sup_parenth()
[...)
Au risque de perdre ma carte des AMIS... :-D
Vu qu'un simple Edition remplacer fait ça tu prends effectivement des risques.
--
A+
Bonjour Circé,
Re...
Serge Hipontoise wrote:
Et pourrais-je abuser et te demander comment supprimer ces
parenthèses ? ;o) Merci
Euh... je suis pas sûre d'avoir bien compris. Si tu veux supprimer
les
parenthèse de début et de fin, tu peux faire ça :
Sub sup_parenth()
[...)
Au risque de perdre ma carte des AMIS... :-D
Vu qu'un simple Edition remplacer fait ça
tu prends effectivement des risques.
Vu qu'un simple Edition remplacer fait ça tu prends effectivement des risques.
Hop, un point de plus... continue Geo, tu va l'avoir la tienne ;-)))
-- JièL Super fète a toire (c'est un bled pas trés connu) ;-)))
Circé
JièL Goubert wrote: || Bonjoir(c) Circé || || Le 27/01/2004 15:11 vous nous disiez ceci : ||| Au risque de perdre ma carte des AMIS... :-D || || Heum, heum...
Bon, si Serge fait ça régulièrement et ponctuellement, c'est quand même plus rapide que d'aller à chaque fois taper les deux parenthèses, à condition d'avoir associer la macro à une touche ou un bouton. Le RR n'a pas d'intêrêt pour des paragraphes isolés...
Et pis, Serge a demandé une macro, alors... ;-)
Circé
JièL Goubert wrote:
|| Bonjoir(c) Circé
||
|| Le 27/01/2004 15:11 vous nous disiez ceci :
||| Au risque de perdre ma carte des AMIS... :-D
||
|| Heum, heum...
Bon, si Serge fait ça régulièrement et ponctuellement, c'est quand même plus
rapide que d'aller à chaque fois taper les deux parenthèses, à condition
d'avoir associer la macro à une touche ou un bouton.
Le RR n'a pas d'intêrêt pour des paragraphes isolés...
JièL Goubert wrote: || Bonjoir(c) Circé || || Le 27/01/2004 15:11 vous nous disiez ceci : ||| Au risque de perdre ma carte des AMIS... :-D || || Heum, heum...
Bon, si Serge fait ça régulièrement et ponctuellement, c'est quand même plus rapide que d'aller à chaque fois taper les deux parenthèses, à condition d'avoir associer la macro à une touche ou un bouton. Le RR n'a pas d'intêrêt pour des paragraphes isolés...
