OVH Cloud OVH Cloud

Les guillemets sous word 2003

3 réponses
Avatar
Ian Himself
Salut à tous!

J'ai une question, bête, mais qui m'empoisonne l'existence (toutes
proportions gardées).
Dans mes textes word, j'aime employer des guillemets ronds quand je fais des
citations (et pas les guillemets tout moches et tout droits " , ni guillemets
français qui prennent trop de place selon moi).
Sur Word 2002, il me suffisait de faire CTRL+SHIFT+ I (deux fois) pour
obtenir le guillemet de début de citation, et CTRL +SHIFT+ O +I pour obtenir
le joli guillemet de fin de citation.
Mais ça marche pu sur 2003!! snif!

Comment faire??

En vous remerkiant...

3 réponses

Avatar
Bernard Cordier
Ian Himself wrote:
Salut à tous!

J'ai une question, bête, mais qui m'empoisonne l'existence (toutes
proportions gardées).
Dans mes textes word, j'aime employer des guillemets ronds quand je
fais des citations (et pas les guillemets tout moches et tout droits
" , ni guillemets français qui prennent trop de place selon moi).
Sur Word 2002, il me suffisait de faire CTRL+SHIFT+ I (deux fois) pour
obtenir le guillemet de début de citation, et CTRL +SHIFT+ O +I pour
obtenir le joli guillemet de fin de citation.
Mais ça marche pu sur 2003!! snif!

Comment faire??

En vous remerkiant...


Et bien c'est indiqué dans Insertion + Caractères spéciaux, avec le
raccourci clavier correspondant.

--
Bernard Cordier
Ressources STG : http://perso.wanadoo.fr/bernard.cordier

Avatar
Petit Denis
Salut
Ian Himself wrote:
Salut à tous!

J'ai une question, bête, mais qui m'empoisonne l'existence (toutes
proportions gardées).
Dans mes textes word, j'aime employer des guillemets ronds quand je
fais des citations (et pas les guillemets tout moches et tout droits
" , ni guillemets français qui prennent trop de place selon moi).


Par guillemets ronds, tu entends “et ” ?
J'use de la macro qu m'a concocté une magicienne :

[copie]
Sub guillemet()
' Guillemet Macro
' Réalisée par

Options.AutoFormatAsYouTypeReplaceQuotes = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """^s"
.Replacement.Text = ChrW(8220)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^s"""
.Replacement.Text = ChrW(8221)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub

[/copie]

C'est magique ou presque...

--
Petit Denis

Avatar
Ian Himself
Merci beaucoup à tout les deux!