excel vba:将字符串的一部分加粗

Dim highlightedText As String

highlightedText = "This is a string that will be highlighted."

With ActiveDocument.Content.Find
    .Text = highlightedText
    .Format = True
    .Font.Strikethrough = True
End With

Sub HighlightString()
    Dim highlightedText As String
    Dim searchRange As Range
    Dim findFormat As Object
    
    ' 设置要查找的文本
    highlightedText = "This is a string that will be highlighted."
    
    ' 设置查找格式
    Set findFormat = ActiveDocument.Content.FindFormat
    
    ' 设置查找范围
    With searchRange
        .Collapse Direction:=wdCollapseStart
        .MoveEnd Count:=-1
        .Text = highlightedText
    End With
    
    ' 查找文本并应用格式
    With findFormat
        .Font.Strikethrough = True
    End With
    searchRange.Find.Execute
End Sub