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
        ' 选中查找到的文字
        Selection.MoveLeft Unit:=wdCharacter, Count:=Len(searchText)
        Selection.MoveRight Unit:=wdCharacter, Count:=Len(searchText), Extend:=wdExtend
    Loop
End Sub

与前面的代码相比，这个代码多了一些操作，包括选中查找到的文字。具体来说，我们在 `Do While` 循环中加入以下代码：

' 选中查找到的文字
Selection.MoveLeft Unit:=wdCharacter, Count:=Len(searchText)
Selection.MoveRight Unit:=wdCharacter, Count:=Len(searchText), Extend:=wdExtend

其中，`Selection.MoveLeft Unit:=wdCharacter, Count:=Len(searchText)` 将光标向左移动到要查找的文字的开头位置，`Selection.MoveRight Unit:=wdCharacter, Count:=Len(searchText), Extend:=wdExtend` 选中要查找的文字，从而实现选中查找到的文字的操作。

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