你能写出可行的代码已经很棒了！咱们逐个拆解你的疑问：

1. 为什么必须始终操作第1个表格？ #

原因很简单：当你把第1个表格剪切到文档末尾后，原有的第2个表格会自动变成新的「第1个表格」。

举个例子：假设文档里有3个表格，编号Tables(1)、Tables(2)、Tables(3)。

• 第一次循环：剪切Tables(1)粘贴到末尾，此时文档里的表格顺序变成原第2个、原第3个、原第1个，而VBA的Tables集合会实时更新索引，所以现在的Tables(1)就是原来的Tables(2)。
• 第二次循环：再剪切新的Tables(1)（原第2个）粘贴到末尾，剩下的原第3个表格又变成新的Tables(1)。
• 第三次循环：剪切最后这个Tables(1)，所有表格就都移到末尾了。

如果按iCounter递增操作（比如先操作1，再操作2），每次移动后集合的索引都会移位，后面的索引会指向错误的表格，甚至超出集合范围。

2. 这种现象的通用术语是什么？ #

这种在遍历/修改集合过程中，集合元素的索引因元素增删/位置变化而实时改变的现象，属于「可变集合的迭代移位问题」，更专业的说法是集合突变（Collection Mutation）引发的索引失效。

简单来说：当你在迭代一个动态集合（比如Word的Tables、Excel的Range这类实时绑定对象的集合）时，一旦修改了集合的元素（删除、移动、新增），集合的内部索引会立刻更新，导致之前的索引指向的元素不再是你预期的那个。

3. 两种循环失效的原因解析 #

第一种：For Each 死循环 #

for each oTable in ThisDocument.Tables
    oTable.Range.Cut
    Selection.EndKey (wdStory)
    Selection.TypeParagraph
    Selection.Paste
    DoEvents
next oTable

问题出在Cut+Paste的操作会让表格在Tables集合里「先删后加」：

• 当你Cut一个表格时，它会从原位置删除，Tables.Count临时减1；
• 但粘贴到文档末尾后，这个表格又会被重新加入到Tables集合的末尾，Tables.Count又回到原来的数值。

For Each是基于集合的枚举器来遍历的，每次循环都会取集合的下一个元素。但因为你每次都会把当前表格移到集合末尾，枚举器永远会遇到新的「下一个元素」（就是刚移过去的那个），导致循环永远无法结束，最终陷入死循环。

第二种：按索引递增的For循环仅移动部分表格 #

Dim iCounter as Integer
For iCounter = 1 To ThisDocument.Tables.Count
    ThisDocument.Tables(iCounter).Range.Cut
    Selection.EndKey (wdStory)
    Selection.TypeParagraph
    Selection.Paste
Next iCounter

问题在于循环的上限是初始的Tables.Count，但集合的索引在每次移动后都会移位：

• 假设初始有3个表格，循环上限是3，会执行3次。
• 第一次i=1：移走第1个表格，剩下的第2、3个表格变成新的Tables(1)、Tables(2)，粘贴后Tables集合变成原第2个、原第3个、原第1个（Count仍为3）。
• 第二次i=2：操作的是Tables(2)（也就是原第3个），移走它粘贴到末尾，集合变成原第2个、原第1个、原第3个。
• 第三次i=3：操作的是Tables(3)（也就是刚移过去的原第3个），移走它粘贴到末尾，结果还是原第2个、原第1个、原第3个。

最终你会发现，原来的Tables(2)（现在的Tables(1)）从来没被操作过，所以它留在了原位置，只完成了部分表格的移动。

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