如何在VBA中为含动态长度日期的字符串内指定单词设置加粗

核心思路是通过动态查找目标单词位置替代固定索引，适配日期长度变化的场景：

• 先构建完整文本，避免重复操作单元格
• 使用InStr函数定位“three”的起始位置，不受前面日期长度影响
• 仅修改必要的字体属性，简化代码

完整VBA代码 #

Sub FormatTextWithBoldThree()
    Dim targetWs As Worksheet
    Dim dateStr As String
    Dim fullContent As String
    Dim threeStart As Integer
    
    ' 指定目标工作表，替换为你的实际表名
    Set targetWs = ThisWorkbook.Worksheets("sheet name")
    
    ' 将日期转为字符串，避免格式转换问题
    dateStr = CStr(targetWs.Range("G17").Value)
    
    ' 拼接完整文本
    fullContent = "Text  <" & dateStr & ">. more text for three years."
    
    ' 写入目标单元格
    targetWs.Range("B24").Value = fullContent
    
    ' 查找"three"的起始位置
    threeStart = InStr(fullContent, "three")
    
    ' 找到后设置加粗格式
    If threeStart > 0 Then
        With targetWs.Range("B24").Characters(Start:=threeStart, Length:=5).Font
            .FontStyle = "Bold"
            ' 如需统一字体样式，可添加以下设置
            .Name = "Arial"
            .Size = 10
        End With
    End If
End Sub

关键说明 #

1. 动态定位：InStr(fullContent, "three")会返回“three”在文本中的起始位置，不管前面的日期是11/22/2022（10位）还是1/22/2022（8位），都能准确找到目标单词。
2. 简化代码：录制宏会生成大量默认属性设置，实际只需修改FontStyle为Bold即可，其他属性若需统一再额外添加。
3. 日期处理：用CStr将日期转为字符串，避免Excel自动转换日期格式导致的文本长度变化。

内容的提问来源于stack exchange，提问作者sloth143chunk