PowerPoint : changer la langue de vérification de tout le texte d’une présentation

Ce billet est inspiré d’une question posée sur le forum Answers de Microsoft dont le titre est : “Comment changer pour tout le document la langue de vérification d'orthographe?”

Je vous propose donc ici, une procédure qui permet de changer la langue de vérification de tout le texte saisi dans les espaces réservés d’une présentation.

Comment faire ?

1. Basculer vers l'affichage "Mode Plan". Affichage > Affichages des présentations > Mode Plan
2. Sélectionner le volet de navigation.
3. Sélectionnez tout le texte (CTRL+A).
4. Dans l'onglet "Révision", cliquez sur le bouton "Langue" puis sélectionnez la langue de votre choix et validez.. (Révision > Langue > Langue > Définir la langue de vérification...)

Remarque : Cette méthode ne permet de définir la langue des espaces réservés pour lesquels du texte n’a pas encore été saisi ; il en va de même pour les zones de texte insérées manuellement. Dans ce cas je vous invite à utiliser une macro. voir ce billet “PowerPoint : une macro pour redéfinir la langue de vérification …”

Testé avec la version 2013.

Mots clés Technorati : PowerPoint,Langue,Changer

PowerPoint : une macro pour redéfinir la langue de vérification de tous les zones de texte d’une présentation

Ce billet fait suite à un problème soulevé sur le forum Answers de Microsoft.

La question posée portait sur la possibilité de redéfinir (ou changer) en une seule fois la langue de vérification dans toutes les diapositives et la solution proposée présentait certains bugs (ou manques). En effet, la langue n’était pas redéfinie dans les cas suivants :

1. L’espace réservé pour le contenu ne contient pas encore de texte.
2. La zone de texte a été ajouter manuellement à la diapositive.

Pour contourner cela, je vous propose la macro ci-dessous:

------------------------------------------

Public Sub ChangerLangueVérification()
    '
    ' Macro proposée par Mehdi HAMMADI le 07/08/2014
    '
    ' Objectif : changer la langue de vérification de tous les espaces réservés
    '            et de toutes les zones de texte de la présentation en cours
    Dim DiapoEnCours As Slide
    Dim FormeEnCours As Shape
    For Each DiapoEnCours In ActivePresentation.Slides
        For Each FormeEnCours In DiapoEnCours.Shapes
            FormeEnCours.TextFrame.TextRange.LanguageID = msoLanguageIDFrench
        Next
    Next
End Sub

------------------------------------------

Le principe est simple, parcourir toutes les zone de texte de tous les formes et appliquer la langue souhaitée.

• Pour le français mettre .LanguageID = msoLanguageIDFrench
• Pour l’anglais états unis mettre .LanguageID = msoLanguageIDEnglishUS

Testé sous PowerPoint 2013 et 2007

Mots clés Technorati : PowerPoint,Macro,VBA,Changer,Langue