Macro dans Word: changement de l'apparence du texte

Anonyme
2016-08-29T19:49:00+00:00

Bonjour,

J'ai un logiciel qui me créer un document directement dans Word (facture, lettre, etc.). Par contre, selon les norms du pays, l'apparence du numéro de telephone et les esapcements ne sont pas les memes. Donc, ce que je cherche à faire, c'est une macro dans Word pour chaque langue avec les standards appropriés.

Cette macro doit se refaire dans plusieurs documents et pas nécessairement à la meme page, à la meme emplacement. Ce que je cherche, c'est de m'ajouter un bouton sur ma barre d'outils et que lorsque je sélectionne une ligne de texte, peut importe ce qui est écrit, le texte se prend la mise en forme désirée.

Voici un exemple:

Tél: (123) 456-7890

J'aimerais obtenir ceci:

Tél. 123-456-7890

Le numéro de telephone ne sera jamais le meme.

Je ne sais pas comment m'y prendre.

Merci de votre aide.

Marc

Microsoft 365 et Office | Word | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2016-09-01T09:12:47+00:00

Vous m'avez mis sur la bonne piste avec le Rechercher/remplacer

Voici la macro :

Sub Tel_3_3_4()

Dim doc As Document

Set doc = ActiveDocument

Selection.HomeKey

Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "(Tél): ?([0-9]{3})? ([0-9]{3})-([0-9]{4})"

        .Replacement.Text = "\1. \2-\3-\4"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchAllWordForms = False

        .MatchSoundsLike = False

        .MatchWildcards = True

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Cette réponse a-t-elle été utile ?

0 commentaires

22 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2016-08-31T13:40:27+00:00

    Bonjour

    Désolé du délai, j'étais absent du bureau hier.

    Pas de souci. Il arrive que les questions soient posées sur plusieurs sites.

    merci pour vos réponses.

    Donc je vous propose d'utiliser l'enregistreur de macros Word qui va vous faire ce que vous attendez.
    D'abord il faut l'onglet développeur soit affiché , si ce n'est pas fait, ça se fait dans les options personnaliser le ruban.

    Cliquez sur "enregistrer une macro" donnez lui un nom explicite par exemple numéro_3_3_4
    OK, vous êtes revenu dans dans votre document.
    Placez le point d'insertion (curseur) avant le :
    et faites les opérations de correction avec le clavier, les opérations faites à la souris ne sont pas enregistrées.
    Donc touche Suppr (efface le ":" )
    Touche .
    Flèche droite autant de fois que nécessaire pour arriver à la parenthèse.
    touche Suppr (efface la parenthèse ouvrante)

    etc.
    Quand vous avez fini cliquez sur Arrêter l'enregistrement.
    Votre macro est faite.

    Si vous devez un jour faire un autre format, vous ferez la même opération pour avoir la même macro.

    Pour l'utiliser : placez le point d'insertion avant le ":"
    Dans l'onglet développeur, cliquez sur "macros" choisissez la macro et cliquez sur "Exécuter".

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2016-08-31T13:16:26+00:00

    Bonjour,

    Désolé du délai, j'étais absent du bureau hier. Voici une réponse à votre question:

    1. Pays: Canada
    2. Oui, il faut que dans la macro mettre un point.
    3. Il y a d'autres choses dans le paragraphe
    4. oui, il y a toujours 10 chiffres.

    MErci de votre aide.

    Marc

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2016-08-31T12:34:14+00:00

    Bonjour

    Le sujet ne vous intéresse plus ?

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. Anonyme
    2016-08-29T20:49:41+00:00

    Bonjour

    Voici un exemple:
    Tél: (123) 456-7890

    Une petite question pour ma culture personnelle : cette numérotation c'est quel pays ?

    J'aimerais obtenir ceci:
    Tél. 123-456-7890

    D'accord.
    Il me faudrait quelques précisions :
    Vous avez mis un point à la place du deux-points.
    Il faut le faire ? Ou c'est juste le numéro qu'il faut reformater ?
    Il n'y a rien d'autre dans le paragraphe où est ce le numéro?
    Il y a toujours 10 chiffres ?

    Cette réponse a-t-elle été utile ?

    0 commentaires