[求助]请教一个关于Word VBA的问题

cloudy

假设文本里有这么两行，它们是连在一起的 123456 abcd 现需要查找含有"123"的行和含有"ab"的行，将该两行调换成 abcd 123456 请问如何在word里如何实现，请把vba代码贴一下,谢谢~~

踏雪无痕

以下是引用cloudy在2003-8-24 21:37:00的发言： 假设文本里有这么两行，它们是连在一起的 123456 abcd 现需要查找含有"123"的行和含有"ab"的行，将该两行调换成 abcd 123456 请问如何在word里如何实现，请把vba代码贴一下,谢谢~~

[em06][em02][em03][em04][em10][em10][em24]

hlrong

看看如下代码： Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(123456)^13(abcd)" .Replacement.Text = "\2^p\1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With

xlpfd

什么是word VBA?谢谢！

hlrong

查找VBAWRD9.CHM文件，找开看看就知道了。

惊叹不已

含有"123"的行和含有"ab"的行是否连在一起？