Как сделать строку полужирным?

Question

Я создаю документ Word программно с помощью VBA.

1) У меня есть строка со значением - «Стратегия». Я хочу сделать его полужирным шрифтом и отображаться в документе слова.

Я попытался это ниже, но текст никогда не меняется:

Dim wrdApp As Word.Application 
Dim wrdDoc As Word.Document 
Set wrdApp = CreateObject("Word.Application") 

Dim strategy As String 
strategy = "STRATEGY" 
Dim objWdRange As Word.Range 


wrdApp.Visible = True 
Set wrdDoc = wrdApp.Documents.Open("C:\Program Files\DailyStrategy.doc") 


With wrdDoc 
    If wrdDoc.Bookmarks.Exists("MarketCommentry") Then 
     wrdDoc.Bookmarks("MarketCommentry").Range.Text = strategy 

    Set objWdRange = wrdDoc.Content 
    With objWdRange.Find 
     .ClearFormatting 
     .Replacement.ClearFormatting 
     .Text = "STRATEGY" 

     'Make found bold and italic 
     With .Replacement.Font 
      .Bold = True 
      .Italic = True 
     End With 
     .Execute Replace:=wdReplaceAll 
    End With 
End With 

End If приветы

Коджо

Answer 1

EDIT:: Я должен быть лучше испытанный в отладчике VBA, который я сделал сейчас. Этот должен работать:

With wrdDoc 
    Set objWdRange = wrdDoc.Content 
    With objWdRange.Find 
     .ClearFormatting 
     .Text = "STRATEGY" 
     .Execute Replace:=wdReplaceNone 
    End With 
End With 

If objWdRange.Find.Found Then 
    'Make found bold and italic 
    With objWdRange.Font 
     .Bold = True 
     .Italic = True 
    End With 
End If