求助：Word宏批量高亮文档中所有表格最后一列内容

你录制的宏仅依赖当前选区操作，没法自动遍历文档中所有表格，也处理不了跨页中断的表格列，所以会失效。下面是能实现需求的宏代码：

Sub HighlightLastTableColumn()
    Dim tbl As Table
    Dim lastCol As Column
    Dim cell As Cell
    
    ' 遍历文档中所有表格
    For Each tbl In ActiveDocument.Tables
        ' 获取当前表格的最后一列
        Set lastCol = tbl.Columns(tbl.Columns.Count)
        ' 遍历该列的每个单元格
        For Each cell In lastCol.Cells
            ' 设置单元格内容高亮为黄色
            cell.Range.HighlightColorIndex = wdYellow
        Next cell
    Next tbl
    
    ActiveDocument.Save
End Sub

代码说明： #

• 遍历文档内所有表格，不管是否跨页或存在多个表格
• 自动定位每个表格的最后一列，无需手动选中
• 逐个处理列内的每个单元格，确保跨页的表格单元格也能被正确高亮
• 最后自动保存文档

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