|
|
本帖最后由 weiyingde 于 2017-7-4 07:03 编辑
对下面的文本，按照标识的十个部分，分别进行匹配，并将其结果写入数组。
关键的一句有误，敬请斧正，谢谢。
代码如下：
sub 匹配十部分并写入数组（）
Dim arr(),
Dim Appt As New PowerPoint.Application
ActiveDocument.Range.Select
Selection.Find.ClearFormatting
With Selection.Find
.Text = "晨读对韵[\(（][一-隝]@[\)）]^13[一-隝。^13]@。^13"‘'此为关键代码，问题就出在此处，请斧正。
.Forward = True
.MatchWildcards = True
End With
Do While Selection.Find.Execute
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = Selection.Range.Text
Loop
for i = 1 to UBound(arr)
msgbox arr(i)
next
end sub
附搜索的文本如下。
晨读对韵(一)
天对地，室对家,落日对流霞。
黄莺对翠鸟，甜瓜对苦瓜。
狗尾草，鸡冠花。
白鹭对乌鸦。
门前栽果树，塘里养鱼虾。
有时三点两点雨，到处十枝五枝花。
晨读对韵（二）
优对劣，丑对美，肃静对喧哗。
光明对黑暗，谨慎对浮夸。
瓜子脸，葡萄牙。
异卉对奇葩。
知己存海内，朋友遍天涯。
黄梅时节家家雨，青草池塘处处蛙。
晨读对韵（三）
繁对简，少对多，淅沥对滂沱。
珊瑚对玛瑙，河蚌对田螺。
星妩媚，月婆娑。曲径对斜坡。
黄鹂歌婉转，绿柳舞婀娜。
芳林新叶催陈叶，流水前波让后波。
晨读对韵（四）
弦对管，鼓对锣，守卫对巡逻。
观光对借鉴，视察对观摩。
须奋斗，莫蹉跎。北海对东坡。
眼中沧海小，衣上白云多。
气似长虹贯玉宇，心如皓月映澄波。
晨读对韵（五）
萍对藻，菊对荷，黄豆对青稞。
桃枝对柳叶，放鹤对观鹅。
小夜曲，大风歌。潋滟对嵯峨。
举头红日近，回首白云遮。
坐地日行八万里，巡天遥看一千河。
晨读对韵（六）
勤对懒，俭对奢。琐碎对繁苛。
冰清对玉润，地利对人和。
行踽踽，笑呵呵。欣赏对吟哦。
下笔即千字，读书倾五车。
生有光辉照日月，死留正气壮山河。
晨读对韵（七）
庭对院，井对池，落絮对游丝。
飞禽对走兽，骏马对雄狮。
三国志，七步诗。错落对参差。
行到水穷处，坐看云起时。
侧身天地更怀古，独立苍茫自咏诗。
晨读对韵（八）
行对止，善对慈，本性对天资。
粗心对大胆，益友对良师。
孙行者，祖冲之。鲁迅对徐迟。
笔扫龙蛇字，胸藏锦绣词。
偏多热血偏多骨，不悔真情不悔痴。
晨读对韵（九）
河对海，涧对溪，远近对高低。
奇珍对异宝，琥珀对琉璃。
桃灼灼，柳依依。龙眼对马蹄。
掬水月在手，拈花香满衣。
几处早莺争暖树，谁家新燕啄春泥。
晨读对韵（十）
来对往，密对稀，来日对往昔。
眼明对手快，心旷对神怡。
千里马，五更鸡。暮霭对晨曦。
高谈惊左右，博学贯中西。
天上月悬千古镜，池中星照一盘棋。
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2017-7-2 18:20
楼主
