Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment mettre en gras toutes les occurrences du même mot dans un document Word?

S'il existe plusieurs textes "Outlook" dans votre fichier Word, vous devez maintenant mettre en forme tous les textes "Outlook" en gras. Comment pouvez-vous mettre en gras toutes les occurrences du même mot dans un document Word volumineux aussi rapidement que possible?

Mettre en gras toutes les occurrences du même mot dans un document Word avec du code VBA


Mettre en gras toutes les occurrences du même mot dans un document Word avec du code VBA

Le code VBA suivant peut vous aider à mettre en gras toutes les occurrences d’un mot spécifique rapidement et facilement. Veuillez procéder comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: gras toutes les occurrences du même mot

Sub BoldAll()
    Dim xStr As String
    xStr = InputBox("Please enter the word that you want to bold:", "KuTools for Word")
    If Trim(xStr) = "" Then
        MsgBox "Cann’t be empty!", vbInformation, "KuTools for Word"
    End If
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = xStr
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .Replacement.Text = "^&"
        .Wrap = wdFindStop
        .Format = True
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

3. Après avoir inséré le code, puis appuyez sur F5 clé pour l’exécuter, et une boîte de dialogue apparaît pour vous rappeler d’insérer le mot que vous voulez en gras, voir capture d’écran:

doc mot gras spécifique 1

4. Et puis, cliquez OK bouton, et tous les mots spécifiques ont été formatés en gras à la fois.



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.