VBAを使用してテキストを選択して太字にする

Question

毎週複数ページの文書を作成します。私はPDFからテキストをコピーし、それを単語文書に貼り付け、貼り付けたテキストをフォーマットします。

これには時間がかかり、自動化したいと考えています。

特定のテキストを選択するためにマクロまたはコードが必要です。そのテキストを太字にします。私が大胆にする必要がある特定のテキストは、私がスクラップコードと呼ぶものです。

60種類のコードがあります。たとえば、「FIPS」または「LILL」などです。

Answer 1

何か：

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！

編集

私はスクラップ・コードのそれぞれと文字列配列を作ることを考えていた大胆な

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

マクロの記録をお勧めします。
次に、すべての変更と書式設定を行います。
最後に、マクロのコードを見て、それがどのようにしたのかを見てください。

あなたが理解しておく必要があることは、論理的に太字にしたいテキストを見つける方法です。
特定の行ですか？それは知られている単語の冒頭にありますか？

これを解決したら、マクロのコードと組み合わせてタスクを自動化することができます。このような