如何修改代码，加入多的关键字？

mmcha2002

这个代码可以在一个文档中，将某一个关键字的句子，单独新建一个文档显示。比如，运行代码后，将所有含“万”字的句子显示在另一个新建文档中。请问，如何通过修改里面的代码，可以将关键字变成两个字或三个字？即，运行代码后，可以将所有既含“万”又含“马”的句子（也可以既含“万”又含“马”“齐”等关键字），单独新建一个文档？

Sub test1()

    Dim findtext As String, n AsInteger, info As String

    findtext = InputBox("请输入要查的单词",, "Number")

    If findtext <>"" Then

        WithActiveDocument.Content.Find

           .Text = findtext

           .MatchAllWordForms = True

           Do While .Execute

               n = n + 1

               With .Parent

                   .Expand wdSentence

                   If .Text Like"*" & Chr(13) Then .End = .End - 1

                   info = info & n& vbTab & .Text & Chr(13)

                   .CollapsewdCollapseEnd

               End With

           Loop

        EndWith

        WithDocuments.Add.Content

           .Text = info

        EndWith

    End If

End Sub