word vba find使用

如何使用find函数使word将带有★的内容和字体为方正小标宋的内容保存为word的文件名？
查找★的内容用的是通配符，代码如下：
Sub MM()
Selection.Find.ClearFormatting
Selection.Find.Text = "??★??"
Selection.Find.MatchWildcards = True
Selection.Find.Execute Forward:=True
End Sub
查找字体为方正小标宋的内容用的.name，代码如下：
Sub BT()
Selection.Find.ClearFormatting
Selection.Find.Font.Name = "方正小标宋简体"
Selection.Find.Execute Forward:=True
End Sub

后面就不会写了

word可以录制宏，你录制一个，然后照着你说的操作下，看word给你生成的vba代码