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` 将光标向右移动一个字符，从而将光标定位在找到的文字处。

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