word 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
    Loop
End Sub

在上面的代码中，我们首先定义需要查找的文字，然后使用 `Selection.Find` 方法查找该文字。接着，我们使用 `Do While` 循环来遍历所有匹配到的文字，并对其进行格式化。具体来说，我们使用 `Selection.Font.Underline = wdUnderlineSingle` 将文字设置为有下划线，使用 `Selection.ParagraphFormat.FirstLineIndent = 0` 将文字所在段落的首行缩进设置为0，从而实现无首行缩进的效果。

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