如何在Word VBA中实现非表格列间的可靠移动？

问题背景 #

在Word非表格的多栏文档（如8栏）中，执行VBA代码Selection.MoveRight Unit:= wdColumn, Count:=2时会触发「Bad parameter」错误，重复执行也无效果，其他Move系列函数同样无法实现栏间移动。2栏分栏格式示例：

(第一栏末尾)
aaaaa | aaaaa
aaaaa | aaaaa
aaaaa | aaaaa
aaaaa | aaaaa

核心原因 #

wdColumn这个移动单位仅适用于表格中的列，非表格的分栏文档不支持该参数，这是报错的直接原因。

可行解决方案 #

方法1：使用GoTo方法（推荐）

Word的GoTo方法支持直接定位到分栏文档的指定栏，稳定性高：

' 从当前位置向右移动2栏
Selection.GoTo What:=wdGoToColumn, Which:=wdGoToNext, Count:=2

如果需要直接跳转到指定栏号（比如第3栏），可改用绝对定位：

' 直接定位到第3栏
Selection.GoTo What:=wdGoToColumn, Which:=wdGoToAbsolute, Count:=3

方法2：模拟快捷键操作

利用Word默认的分栏切换快捷键（Ctrl+Shift+F8激活栏选择模式，方向键移动），通过SendKeys实现：

' 激活栏选择模式，向右移动2栏后退出模式
SendKeys "^+{F8}"
SendKeys "{RIGHT 2}"
SendKeys "{ESC}"

注意：SendKeys的稳定性可能受系统环境影响，优先选择方法1。

额外技巧 #

若需要获取当前光标所在的栏号，可执行以下代码：

Dim currentColumn As Integer
currentColumn = Selection.Information(wdActiveEndAdjustedColumnNumber)
MsgBox "当前处于第" & currentColumn & "栏"

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