写出一个可以在Word文档中查找并选中包含"答案："关键字段落的VisualBasic脚本

以下是一个可以在Word文档中查找并选中包含"答案："关键字段落的VisualBasic脚本：

Sub FindAndSelectAnswer()
    Dim searchRange As Range
    Set searchRange = ActiveDocument.Range
    
    With searchRange.Find
        .Text = "答案：*"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    Do While searchRange.Find.Execute
        searchRange.Select
        MsgBox "已选中包含“答案：”关键字的字段落。"
    Loop
End Sub

该脚本首先将搜索范围设置为整个文档，然后使用"答案："关键字进行查找。在找到关键字的情况下，它会选中该字段落并弹出一个消息框来提示用户已经选中了包含该关键字的字段落。此外，该脚本还使用通配符来匹配任何以"答案："开头的文本，因此即使在关键字后面还有其他字符，该脚本也能找到并选中该字段落。