VBA代码标记SimSun字体单词为索引项位置异常问题求助

你的代码问题出在MarkEntry方法的Range参数用了Selection.Range，这会导致索引项总是标记在当前选中的位置（默认是文档末尾），而非目标单词的位置。只需把Range参数改为目标单词的范围w即可。

修改后的代码如下：

Sub toevoegen()
    Dim doc As Document
    Dim storyRange As Range
    Dim w As Range
    
    Set doc = ActiveDocument
    
    ' 遍历所有故事范围（包括正文、脚注等，若只需正文可改为 doc.Content.Words）
    For Each storyRange In doc.StoryRanges
        For Each w In storyRange.Words
            ' 检测字体是否为SimSun
            If w.Font.Name = "SimSun" Then
                ' 以当前单词为范围标记索引项
                doc.Indexes.MarkEntry Range:=w, Entry:=w.Text
            End If
        Next w
        ' 处理嵌套的故事范围（比如文本框内的内容）
        Do While Not storyRange.NextStoryRange Is Nothing
            Set storyRange = storyRange.NextStoryRange
            For Each w In storyRange.Words
                If w.Font.Name = "SimSun" Then
                    doc.Indexes.MarkEntry Range:=w, Entry:=w.Text
                End If
            Next w
        Loop
    Next storyRange
End Sub

关键修改点： #

• 将Range:=Selection.Range替换为Range:=w，让索引项标记在目标单词所在位置，XE域（索引项的底层代码）会直接插入在该单词之后。
• 补充变量声明，避免隐式变量带来的问题。
• 增加嵌套故事范围的处理，确保文本框、脚注等区域的内容也能被检测到（不需要可去掉这部分）。
• 将Entry:=w改为Entry:=w.Text，明确传入单词文本内容作为索引项条目。

运行修改后的代码后，所有SimSun字体的单词后面会插入对应的索引项域，生成索引时条目会关联到正确位置，且标记会紧随单词之后。

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