OVH Cloud OVH Cloud

Apostrophes

7 réponses
Avatar
Barsalou
Bonjour

Peut-on remplacer automatiquement les apostrophes françaises par des
apostrophes anglaises ?
Il semble que la compilation de fichiers d'aide avec Help Workshop à partir
de fichiers RTF créés dans Word se plante sinon.
La fonction "remplacer" ne marche pas.

Merci à tous

7 réponses

Avatar
AB
Bonjour,
Heu...apostrophes ou guillemets ?
AB

"Barsalou" a écrit dans le message de news:
%
Bonjour

Peut-on remplacer automatiquement les apostrophes françaises par des
apostrophes anglaises ?
Il semble que la compilation de fichiers d'aide avec Help Workshop à
partir de fichiers RTF créés dans Word se plante sinon.
La fonction "remplacer" ne marche pas.

Merci à tous



Avatar
Circé
Bonjour,

Heu... apostrophes ou guillemets, même combat !!! :-)))

Il s'agit d'un package en fonction de la langue et se gère par le menu
Outils, options de corrections automatiques, Lors de la frappe,
guillemets par guillemets.

Donc, quand tu tapes en français, tu as le choix entre :
- guillemets français (les chevrons) + apostrophes typo + espaces avant
les double ponctuations
- guillemets + apostrophes dactylographiques, et pas d'espaces auto avec
les double ponctuations...

Pour les guillemets anglais, faut choisir l'anglais comme langue.

Circé
http://faqword.free.fr


Bonjour,
Heu...apostrophes ou guillemets ?
AB

"Barsalou" a écrit dans le message de news:
%

Bonjour

Peut-on remplacer automatiquement les apostrophes françaises par des
apostrophes anglaises ?
Il semble que la compilation de fichiers d'aide avec Help Workshop à
partir de fichiers RTF créés dans Word se plante sinon.
La fonction "remplacer" ne marche pas.

Merci à tous








Avatar
Lasperches Denis
Bonsoir Circé
Bonjour,

Heu... apostrophes ou guillemets, même combat !!! :-)))

Il s'agit d'un package en fonction de la langue et se gère par le menu
Outils, options de corrections automatiques, Lors de la frappe,
guillemets par guillemets.

Donc, quand tu tapes en français, tu as le choix entre :
- guillemets français (les chevrons) + apostrophes typo + espaces
avant les double ponctuations
- guillemets + apostrophes dactylographiques, et pas d'espaces auto
avec les double ponctuations...

Pour les guillemets anglais, faut choisir l'anglais comme langue.

Tu m'avais à l'époque bien dépanné avec cette ch'tite macro mais ton compte

AMIS ???

[copie début]
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 fin ]

--
Petit Denis

Avatar
Circé
Merci Petit Denis,

Je vais la mettre de côté !!! :-))
Peut être même qu'elle ferait bien dans un bouquin de trucs et astuces,
non ?... mdr !

Circé



Bonsoir Circé

Bonjour,

Heu... apostrophes ou guillemets, même combat !!! :-)))

Il s'agit d'un package en fonction de la langue et se gère par le menu
Outils, options de corrections automatiques, Lors de la frappe,
guillemets par guillemets.

Donc, quand tu tapes en français, tu as le choix entre :
- guillemets français (les chevrons) + apostrophes typo + espaces
avant les double ponctuations
- guillemets + apostrophes dactylographiques, et pas d'espaces auto
avec les double ponctuations...

Pour les guillemets anglais, faut choisir l'anglais comme langue.



Tu m'avais à l'époque bien dépanné avec cette ch'tite macro mais ton compte
AMIS ???

[copie début]
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 fin ]




Avatar
Barsalou
Merci de l'information. L'aide parle des guillemets mais pas des
apostrophes.
Avatar
Circé

Merci de l'information. L'aide parle des guillemets mais pas des
apostrophes.


Normal, c'est pas moi qui ai fait l'aide !!!


Allez je plaisante ! :-))))))))

Circé

Avatar
Barsalou
Finalement grâce à vous j'ai rédigé la macro ci-dessous qui marche.

Merci

Sub Apostrophes()
'
' Apostrophes Macro
' Macro enregistrée le 05/10/2004 par Barsalou
'
Options.AutoFormatAsYouTypeReplaceQuotes = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Chr$(146)
.Replacement.Text = Chr$(39)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub