光标在哪个字段？ （ms word，vba）

Question

在VBA Word宏中，我想为包含光标的字段获取一个Field对象。

明显的尝试失败：

Private Sub Try1() 
    MsgBox Selection.Fields.Count 
End Sub 

数组为空。然后我尝试：

Private Sub Try2() 
    Dim oRange As Range 
    Set oRange = Selection.GoTo(What:=wdGoToField) 
    MsgBox oRange 
End Sub 

游标不移动，消息是空的。

我可以迭代ActiveDocument.Fields，比较范围并找到包含的fiels。但可能有一个简单的直接方式？

Answer 1

我目前的生产代码迭代超过Document.Fields：

Sub Test() 
    Dim oField As Field 
    Set oField = FindWrappingField(Selection.Range) 
    If oField Is Nothing Then 
     MsgBox "not found" 
    Else 
     MsgBox oField 
    End If 
End Sub 

Private Function FindWrappingField(vRange As Range) 
    Dim oField As Field 
    Dim nRefPos As Long 
    ' If selection starts inside a field, it also finishes inside. 
    nRefPos = vRange.Start 
    ' 1) Are the fields sorted? I don't know. 
    ' Therefore, no breaking the loop if a field is too far. 
    ' 2) "Code" goes before "Result", but is it forever? 
    For Each oField In vRange.Document.Fields 
     If ((oField.Result.Start <= nRefPos) Or (oField.Code.Start <= nRefPos)) And _ 
      ((nRefPos <= oField.Result.End) Or (nRefPos <= oField.Code.End)) Then 
       Set FindWrappingField = oField 
       Exit Function 
     End If 
    Next oField 
    Set FindWrappingField = Nothing 
End Function