Utilisation de VBA pour que le mot sélectionne le texte et le mette en gras

Question

Je crée un document Word de plusieurs pages chaque semaine. Je copie du texte à partir d'un PDF et le colle dans un document Word, puis je formate le texte que j'ai collé.

Cela prend beaucoup de temps et je voudrais l'automatiser.

J'ai besoin d'une macro ou d'un code pour sélectionner un texte spécifique, puis mettez ce texte en gras. Le texte spécifique que j'ai besoin de gras est ce que j'appelle un code de ferraille.

Il existe 60 codes différents. Par exemple "FIPS" ou "LILL".

Answer 1

Quelque chose comme ceci:

Sub A() 
' 
' a Macro 
' 
' 
Dim A(3) As String 

A(1) = "code1" 
A(2) = "code2" 
A(3) = "code3" 

For i = 1 To 3 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
     .Forward = True 
     .Wrap = wdFindStop 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchWildcards = False 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False 
     .Replacement.Font.Bold = True 

     .Execute FindText:=A(i), ReplaceWith:=A(i), Format:=True, _ 
     Replace:=wdReplaceAll 

    End With 
Next i 
End Sub 

HTH!

Modifier

Pour passer les montants en dollars en gras

Sub a() 
' 
' a Macro 
' 
' 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    Selection.Find.Replacement.Font.Bold = True 
    With Selection.Find 
     .Text = "$([0-9.,]{1,})" 
     .Replacement.Text = "" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = True 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchAllWordForms = False 
     .MatchSoundsLike = False 
     .MatchWildcards = True 
    End With 
    Selection.Find.Execute 
    Selection.Find.Execute Replace:=wdReplaceAll 
End Sub 

Answer 2

Je suggère d'enregistrer une macro.
Ensuite, faites toutes les modifications et le formatage.
Enfin, regardez le code de la macro et voyez comment elle l'a fait.

La seule chose que vous devez comprendre est de savoir comment vous voulez logiquement trouver le texte que vous voulez en gras.
Est-ce une ligne spécifique? Est-ce au début d'un mot connu?

Une fois que vous avez répondu, vous pouvez le combiner avec le code de la macro et automatiser la tâche.