求代码，如何使用vba查找出word文档中字体为宋体的文字

求代码，怎么使用vba查找出word文档中字体为宋体的文字
求代码，怎么使用vba查找出word文档中字体为宋体的文字
并将其改为黑体？

[解决办法]