Использование 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  

НТН!

Редактировать

Чтобы поменять суммы в долларах на жирный

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

Я бы предложил записать макрос.
Затем выполните все модификации и форматирование.
Наконец, посмотрите на код макроса и посмотрите, как он это сделал.

Единственное, что вам нужно выяснить, это как логически вы хотите найти текст, который хотите выделить жирным шрифтом.
Это конкретная строка?Это в начале известного слова?

Получив ответ, вы можете объединить его с кодом макроса и автоматизировать задачу.