Word VBA：如何将光标定位到所选字段的后方

方法一：基于现有选区快速调整 #

你已经拿到了Selection.End + 1的目标位置，只需将选区的起始和结束位置统一设为该值，就能实现光标定位：

Dim newSelect As Long
newSelect = Selection.End + 1
Selection.SetRange Start:=newSelect, End:=newSelect

更简洁的写法可以直接用移动命令：

' 字段处于选中状态时，直接向后移动1个字符
Selection.Move Unit:=wdCharacter, Count:=1

方法二：通过字段对象精准定位（更可靠） #

如果担心选区状态变动导致定位出错，建议直接操作字段的Range对象，创建字段后直接锚定到字段末尾：

' 假设你创建字段的代码已保存字段对象，示例如下
Dim newField As Field
Set newField = ActiveDocument.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, Text:="TEST", PreserveFormatting:=False)

' 定位光标到字段后方
Dim targetRange As Range
Set targetRange = newField.Result
targetRange.Collapse Direction:=wdCollapseEnd
targetRange.Select

这种方式不依赖初始选区状态，直接通过字段的Result.Range定位，稳定性更强。

补充：wdCollapseEnd是Word内置常量，用于将Range折叠到结束位置。如果代码未引用Word对象库，可直接用数值0替代。

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