我来帮你搞定这个问题！你的现有代码问题出在：先把整个单元格范围设为粗体，紧接着又取消了整个单元格的粗体，导致之前的格式设置完全被覆盖，最后只能得到全非粗体的文本。而且用Select操作不仅没必要，还会降低宏的运行效率。咱们可以直接通过操作Range对象来精准控制文本格式，这才是更高效的做法。

下面给你两种实用的解决方案：

方法1：先写入全部文本，再格式化指定部分 #

这种方法适合文本内容固定的场景，先把所有内容写入单元格，再定位到需要粗体的段落设置格式：

For n = 1 To nCount
    With oTable.Rows(n + 1)
        ' 保留你的页码逻辑
        .Cells(1).Range.Text = oDoc.Comments(n).Scope.Information(wdActiveEndPageNumber)
        
        ' 处理第三列的混合格式文本
        Dim cellRange As Range
        Set cellRange = .Cells(3).Range
        
        ' 一次性写入完整文本
        cellRange.Text = "First Statement: Second Statement"
        
        ' 精准定位到"First Statement:"这段并设置粗体
        ' 方式1：按单词定位（适合固定文本）
        With cellRange.Words(1)
            .Bold = True
        End With
        
        ' 方式2：按字符长度定位（更精准，适合动态长度文本）
        ' cellRange.SetRange Start:=cellRange.Start, End:=cellRange.Start + Len("First Statement:")
        ' cellRange.Bold = True
    End With
Next n

方法2：分步骤插入文本并设置格式 #

如果你的文本内容是动态生成的，这种方法更灵活，每插入一段就设置对应格式，再移动光标到下一段的起始位置：

For n = 1 To nCount
    With oTable.Rows(n + 1)
        .Cells(1).Range.Text = oDoc.Comments(n).Scope.Information(wdActiveEndPageNumber)
        
        Dim cellRange As Range
        Set cellRange = .Cells(3).Range
        
        ' 插入第一段并设置粗体
        cellRange.Text = "First Statement: "
        cellRange.Bold = True
        
        ' 将Range对象移动到当前文本的末尾
        Set cellRange = cellRange.Characters(cellRange.Characters.Count + 1)
        
        ' 插入第二段并取消粗体
        cellRange.Text = "Second Statement"
        cellRange.Bold = False
    End With
Next n

关键要点： #

• 避免使用Select操作：在VBA中，Select是低效且容易引发意外错误的操作，直接操作Range对象才是最佳实践。
• 精准控制Range范围：通过SetRange、Words或移动Range对象的方式，只对需要格式化的文本段设置样式，而不是整个单元格。

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