Dans Microsoft Word, comment désactiver les touches de raccourci de police pour modifier la police lorsque rien n'est sélectionné?

Je m'excuse pour le titre déroutant. Voici une explication du comportement que je voudrais personnaliser.

Dans Microsoft Word, les touches de raccourci « de police de caractères » ( Ctrl+I, Ctrl+B, Ctrl+U) ont deux rôles:

changer la police de caractères du texte déjà saisi; et
pour changer le caractère qui sera utilisé pour le texte sur le point d'être saisi.

Le rôle (1), à son tour, se produira dans deux contextes différents:

(a) quand le texte est sélectionné; et
(b) lorsque le curseur est positionné au milieu d'un mot.

C'est le contexte (b) qui me pose problème, car il interfère avec les "modifications de suivi" (l'explication complète est compliquée, mais, fondamentalement, Word traite un curseur comme "au milieu d'un mot" même si la moitié du mot est "inséré" et l'autre moitié est "supprimé" - sans doute un bug).

Je voudrais donc désactiver (b). Plus précisément, je voudrais faire en sorte que, lorsque vous Ctrl+Iappuyez sur et qu'aucun texte ne soit sélectionné, aucun caractère ne soit modifié.

Est-ce possible?

microsoft-word

— Owen
source

Veuillez indiquer quelle version de Word est utilisée. Dans n'importe quel document Word, veuillez créer Fichier | Compte | À propos de, l'année et le numéro de publication figurent à la deuxième ligne sous À propos de Microsoft Word. Une fois obtenu, veuillez cliquer sur editci-dessus et à gauche et ajouter cela à la question initiale.

— K7AAY

Oui, avec les trois sous-routines VBA suivantes ajoutées à votre modèle Normal ou ajoutées à un modèle personnalisé séparé chargé dans le dossier Démarrage de Word ou dans le document lui-même s'il s'agissait d'un document ".docm" activé pour la macro.

Sub Bold()
'
' Bold Macro
' Makes the selection bold (toggle)
'
    If Not Selection.Range.Start = Selection.Range.End Then
        Selection.Font.Bold = wdToggle
    End If

End Sub
Sub Italic()
'
' Italic Macro
' Makes the selection italic (toggle)
'
    If Not Selection.Range.Start = Selection.Range.End Then
        Selection.Font.Italic = wdToggle
    End If

End Sub
Sub Underline()
'
' Underline Macro
' Formats the selection with a continuous underline (toggle)
'
    If Not Selection.Range.Start = Selection.Range.End Then
        If Selection.Font.Underline = wdUnderlineNone Then
            Selection.Font.Underline = wdUnderlineSingle
        Else
            Selection.Font.Underline = wdUnderlineNone
        End If
    End If

End Sub

— Rich Michaels
source