word vba查找某个字，并将光标移到字后，显示光标

您可以使用以下的 VBA 代码来查找文档中的某个单词，并将光标移到单词后面：

Sub FindWordAndMoveCursor()
    Dim wordToFind As String
    Dim currentPosition As Long
    Dim foundPosition As Long

    ' 设置要查找的单词
    wordToFind = "某个字"

    ' 获取当前光标位置
    currentPosition = Selection.Start

    ' 在文档中查找单词
    Selection.Find.ClearFormatting
    Selection.Find.Execute FindText:=wordToFind, Forward:=True

    ' 如果找到了单词，则将光标移到单词后面
    If Selection.Find.Found Then
        foundPosition = Selection.Range.End
        Selection.Range(foundPosition, foundPosition).Select
    Else ' 如果没有找到单词，则将光标移到文档末尾
        Selection.EndKey Unit:=wdStory
    End If

    ' 显示光标
    Application.ScreenRefresh
End Sub

您可以将 "某个字" 替换为您要查找的单词。请注意，此代码仅适用于 Microsoft Word。