如何用VBA仅修改Word表格中选中单元格的指定文本样式？

问题场景 #

在Word表格中，需要给选中的部分单元格应用自定义样式「NewStyle09」。使用Selection.Range.Style = "NewStyle09"仅能修改选中文本的样式，无法直接适配选中单元格的场景；尝试的代码会意外修改选中单元格的相邻单元格样式，不符合需求。

原尝试代码：

'change style of table cell
Sub TargetSelectedCells()
    Dim tbl As Table
    Dim rng As Range
    
    ' Check if a table is selected
    If Selection.Information(wdWithInTable) Then
        Set tbl = Selection.Tables(1)
        
        ' Check if cells are selected
        If Selection.Cells.Count > 0 Then
            Set rng = Selection.Range
            
            ' Do something with the selected cells
            ' For example, change the background color
            rng.Style = "HON White"
            'rng.Shading.BackgroundPatternColor = wdColorLightBlue
        End If
    End If
End Sub

问题原因 #

直接使用Selection.Range会包含选中单元格区域的完整范围（包括单元格之间的隐藏分隔标记），导致样式应用扩散到相邻单元格。

解决方案 #

遍历每个选中的单元格，单独对单元格内的文本范围应用样式，避免影响其他单元格。修改后的代码如下：

Sub ApplyStyleToSelectedCells()
    Dim selectedCell As Cell
    Dim cellRange As Range
    
    ' 检查当前选中区域是否在表格内
    If Not Selection.Information(wdWithInTable) Then Exit Sub
    
    ' 逐个处理每个选中的单元格
    For Each selectedCell In Selection.Cells
        ' 获取单元格内的文本范围（排除末尾的单元格标记，防止样式溢出）
        Set cellRange = selectedCell.Range
        cellRange.End = cellRange.End - 1
        
        ' 应用目标自定义样式
        cellRange.Style = "NewStyle09"
    Next selectedCell
End Sub

关键说明 #

• 循环Selection.Cells集合，确保仅处理用户选中的单元格
• 通过cellRange.End = cellRange.End - 1调整范围，排除单元格末尾的隐藏标记，避免样式意外扩散
• 替换"NewStyle09"为你的实际自定义样式名称即可直接使用

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