嗨，我完全懂你现在的困扰！你手动选中了表格里分散的多个单元格，想给每个都插个复选框当标记，但写的宏只在第一个选中的单元格生效，剩下的都没动静对吧？这是因为你的原代码只针对选中区域的第一个对象进行操作，没有遍历所有选中的单元格——咱们改几行代码就能搞定这个问题！

问题根源 #

当你在Word表格里选中多个不连续的单元格时，Selection对象其实包含了多个独立的单元格区域。原代码直接操作Selection，只会处理这个集合里的第一个单元格，所以才会出现只有第一个单元格有复选框的情况。

修改后的宏代码 #

把你的代码替换成下面这段，就能实现批量处理所有选中单元格：

Sub CkBox2()
'
' CkBox2 Macro
' 向所有选中的单元格批量插入复选框
'
    Dim cell As Cell
    ' 遍历选中区域内的每一个单元格
    For Each cell In Selection.Cells
        With cell.Range
            ' 应用格式设置
            .Style = ActiveDocument.Styles("Normal")
            .ParagraphFormat.Alignment = wdAlignParagraphRight
            .ParagraphFormat.SpaceBefore = 6
            .ParagraphFormat.SpaceAfter = 6
            .Font.Size = 14
            ' 清空单元格原有内容（如果需要保留原有内容，可删除此行）
            .Text = ""
            ' 插入Wingdings字体的复选框符号
            .InsertSymbol Font:="Wingdings", CharacterNumber:=168, Unicode:=True
        End With
    Next cell
End Sub

代码说明 #

• 关键部分是For Each cell In Selection.Cells：这行代码会逐个遍历你选中的每一个单元格，不管它们是不是连续分布在表格里
• 用With cell.Range统一操作当前单元格的内容和格式，避免重复书写cell.Range，让代码更简洁
• 所有格式设置和复选框插入操作，都会作用在当前遍历到的单元格上，确保每个选中的单元格都能被处理
• 如果你的单元格里有需要保留的原有内容，直接删掉.Text = ""这行就行，复选框会插入到单元格内容的当前位置

使用提示 #

运行宏之前，先手动选中所有需要添加复选框的单元格（哪怕它们在表格的不同行、不同列），然后执行宏就可以啦，每个选中的单元格都会自动应用格式并插入复选框。

备注：内容来源于stack exchange，提问作者Rokbottoms