求VBA实现word文档多个有相同标识的不同句子划下划线
如下面的文字段：



（一）研究人员指出，<u>术语“生物降解”这个词的使用是不规范的</u>。一些生产厂家说，这些产品如果在物理上发生了变化，则是可以生物降解的，它们一旦与其它物质混合，便会自然消失或者可以支持生物的成长。研究人员认为，真正的生物降解物质在需氧条件下可以分解成二氧化碳和水。在厌氧条件下它们则可以分解成甲烷和二氧化碳。然而，经他们试验的每个产品都不能降解，也不能达到上述标准。
（二）从事写作的人，应当像追求真理一样去追求语言，<u>应当把语言大量储存起来。应当经常把你的语言放在纸上，放在你的心里，用纸的砧、心的锤来锤炼它们。</u>要熟悉你的语言，像熟悉你的军队，一旦用兵，你就知道谁可以担任什么角色，连战连捷。写作，实际就是检阅你的军队，把那些无用的、在战场上不活跃的分子，当场抹去它们的名字，叫能行的来代替吧。所谓要慎重，就是指的这个。
（三）酒可以渲染气氛，有助于谈兴，故浪漫倜傥的诗人无不喜欢这个调儿。二十来岁即位列“初唐四杰”之冠的王勃，据说他在写《滕王阁》七言古诗和《滕王阁序》时，先磨墨数升，继而酣饮，然后拉起被子覆面而睡，醒来后抓起笔一挥而就，一字不易。李白当年奉诏为玄宗写《清平调》时，也是在烂醉之下用水泼醒后完成的。“钟鼓馔玉不足贵，但愿长醉不复醒。古来圣贤皆寂寞，惟有饮者留其名”，他的《将进酒》字字都含酒香。饮者留其名。”他的《将进酒》字字都含酒香。<u>如果把他所有写酒的诗拿去压榨，也许可以榨出半壶高粱酒来。</u>
…………
…………


word文档中有以上文段有N个这种自然段，许多段中有如上红色字体有“<u>……</u>”开头和结尾标识的句子，现在要批量以VBA代码一次性将这些有标识的句子加上“下划线”，请求大师帮助！！、

求大神！！