word vba取消所选文字，将光标移动至所选文字末尾，并显示光标

可以使用以下VBA代码来实现取消所选文字、将光标移动至所选文字末尾并显示光标：

Selection.Collapse Direction:=wdCollapseEnd
Selection.Range.Select

此代码将折叠所选内容，将光标移动到所选内容的末尾并将其重新选择。

相关问题

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。

word vba查找某个字，并显示光标，将查找的字所的在位置设置无首行缩进

您好，以下是实现您需求的 VBA 代码：

Sub FindAndFormat()
    ' 定义需要查找的文字
    Dim searchText As String
    searchText = "某个字"
    
    ' 查找文字
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = searchText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    ' 格式化文字
    Do While Selection.Find.Execute
        Selection.Font.Underline = wdUnderlineSingle
        Selection.ParagraphFormat.FirstLineIndent = 0
        ' 显示光标并将其移动到找到的文字处
        Application.ScreenUpdating = True
        Selection.Collapse Direction:=wdCollapseEnd
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Loop
End Sub

与上一个问题的代码相比，这个代码多了一些操作，包括显示光标和将光标移动到查找到的文字处。具体来说，我们在 `Do While` 循环中加入以下代码：

' 显示光标并将其移动到找到的文字处
Application.ScreenUpdating = True
Selection.Collapse Direction:=wdCollapseEnd
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1

其中，`Application.ScreenUpdating = True` 用于显示光标，`Selection.Collapse Direction:=wdCollapseEnd` 将光标移动到找到的文字末尾，`Selection.MoveLeft Unit:=wdCharacter, Count:=1` 将光标向左移动一个字符，然后再用 `Selection.MoveRight Unit:=wdCharacter, Count:=1` 将光标向右移动一个字符，从而将光标定位在找到的文字处。

希望这个代码能够帮助到您！