敬请斧正:word查找匹配目标文本的一句表达式

weiyingde

duquancai 发表于 2017-7-2 19:27
》》》》》》》》》》》》》》》》》》》》》》

Sub shishi()

杜老师的代码很管用，很好，谢谢！！
得寸进尺的问一声：能用word的查找实现吗？

weiyingde

huanglicheng 发表于 2017-7-2 19:36
不知这样可否

没有任何反应，不过还是谢谢你！！

duquancai

weiyingde 发表于 2017-7-2 20:21
杜老师的代码很管用，很好，谢谢！！
得寸进尺的问一声：能用word的查找实现吗？

Sub shishi()
    a = Split(ActiveDocument.Content, "晨读对韵")
    For i = 1 To UBound(a)
        MsgBox "晨读对韵" & a(i)
    Next
End Sub

weiyingde

duquancai 发表于 2017-7-2 20:22
Sub shishi()
    a = Split(ActiveDocument.Content, "晨读对韵")
    For i = 1 To UBound(a)

的确是大师！！！！！简洁管用！！！！！

huanglicheng

weiyingde 发表于 2017-7-2 20:22
没有任何反应，不过还是谢谢你！！

没有任何反应是因为我没有加msgbox，所以运行没有提示。

duquancai

huanglicheng 发表于 2017-7-2 21:01
没有任何反应是因为我没有加msgbox，所以运行没有提示。

最后一个，你漏掉了！！！哦，你添加了辅助字符（“晨读”）不用添加辅助字符，用下面正则就行了。
.Pattern = "晨读.+?(?=晨读|$)"

weiyingde

huanglicheng 发表于 2017-7-2 21:01
没有任何反应是因为我没有加msgbox，所以运行没有提示。

我试试看看

weiyingde

huanglicheng 发表于 2017-7-2 19:36
不知这样可否

我太急躁了，没有看到，迟到的感谢！！

weiyingde

duquancai 发表于 2017-7-2 21:03
最后一个，你漏掉了！！！哦，你添加了辅助字符（“晨读”）不用添加辅助字符，用下面正则就行了。
.Pat ...

若将上面的文本换成下面的诗歌，要求匹配每首诗，又该怎样？
泊船瓜洲
宋•王安石
京口瓜洲一水间，
钟山只隔数重山。
春风又绿江南岸，
明月何时照我还？
草
唐•白居易
离离原上草，
一岁一枯荣。
野火烧不尽，
春风吹又生
长相思
清•纳兰性德
山一程，水一程，
身向榆关那畔行，
夜深千帐灯。
风一更，雪一更，
聒碎乡心梦不成，
故园无此声。
嫦娥
唐•李商隐
云母屏风烛影深，
长河渐落晓星沉。
嫦娥应悔偷灵药，
碧海青天夜夜心。
池上
唐•白居易
小娃撑小艇，
偷采白莲回。
不解藏踪迹，
浮萍一道开。  
出塞
唐•王昌龄
秦时明月汉时关，
万里长征人未还。
但使龙城飞将在，
不教胡马度阴山。
春日
宋•朱熹
胜日寻芳泗水滨，
无边光景一时新。
等闲识得东风面，
万紫千红总是春。

能否用word查找解决呢？

weiyingde

唯一的特征是，每首诗歌的标题中没有标点，根据这个特征能否定位查找的文本？