VBA操作Word表格：仅指定文本设为加粗下划线的技术问询

要实现仅将第20行单元格中的“Brief of Case”、第22行单元格中的“Present Status of the Case”设置为加粗加下划线，其余文本保持正常格式的需求，可通过定位目标文本的位置单独设置字体属性，修改后的代码如下：

' 处理第20行单元格
tab1.Rows(20).Cells.Merge
With tab1.Rows(20).Cells(1).Range
    .Text = "2.   Brief of Case.  " & objVar(6)
    ' 定位并设置"Brief of Case"的格式：加粗+单下划线
    .Characters(Start:=6, Length:=13).Font.Bold = True
    .Characters(Start:=6, Length:=13).Font.Underline = wdUnderlineSingle
    .ParagraphFormat.Alignment = wdAlignParagraphJustify
End With

' 处理第22行单元格
tab1.Rows(22).Cells.Merge
With tab1.Rows(22).Cells(1).Range
    .Text = "2.   Present Status of the Case.  " & objVar(8)
    ' 定位并设置"Present Status of the Case"的格式：加粗+单下划线
    .Characters(Start:=6, Length:=24).Font.Bold = True
    .Characters(Start:=6, Length:=24).Font.Underline = wdUnderlineSingle
    .ParagraphFormat.Alignment = wdAlignParagraphJustify
End With

关键说明 #

• 用With块减少重复代码，简化对单元格Range对象的操作
• Characters(Start:=x, Length:=y)方法用于精准定位目标文本：
  • 第20行中，"2. "共5个字符，所以目标短语从第6位开始，长度为13
  • 第22行中，目标短语"Present Status of the Case"长度为24，同样从第6位开始
• wdUnderlineSingle是Word VBA内置常量，表示单下划线，可根据需求替换为其他下划线类型（如wdUnderlineDouble双下划线）

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