Word VBA表格列删除仅调试模式生效，运行时失效问题排查

问题原因 #

这是Word对象模型的延迟刷新机制导致的：无断点快速执行代码时，Word来不及实时更新表格的Columns.Count属性值，代码每次读取的都是初始列数，循环条件永远成立，因此陷入死循环；而调试模式下断点会让程序暂停，Word有足够时间刷新对象状态，列数能正常同步，循环也就可以正常结束。

解决办法 #

1. 强制刷新文档状态 #

在循环中添加文档刷新语句，强制Word同步表格的属性值：

While targetTable.Columns.Count > 4
    targetTable.Columns.Last.Delete
    targetTable.Range.Document.Repaint ' 强制刷新文档对象状态
Wend

2. 预先计算删除数量，倒序删除 #

先算出需要删除的列数，再从最后一列倒序删除，完全避免依赖实时的Columns.Count：

Dim colsToDelete As Integer
colsToDelete = targetTable.Columns.Count - 4
If colsToDelete > 0 Then
    Dim i As Integer
    For i = colsToDelete To 1 Step -1
        targetTable.Columns(targetTable.Columns.Count).Delete
    Next i
End If

3. 加入DoEvents释放系统资源 #

通过DoEvents让Word处理后台的对象更新消息，确保属性值同步：

While targetTable.Columns.Count > 4
    targetTable.Columns.Last.Delete
    DoEvents ' 让系统处理未完成的消息队列
Wend

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