如何把提取的内容放入find的.text中?(问题解决)

iamatig

谁帮我写个从"关键字.doc"里从上到下,每次复制一条整行作为关键字,在"源.doc"里查找,找到后复制关键字所在行及以下4行粘贴到"目标.doc"里的VBA.

我录制的代码如下,但是不知道如何写把复制的关键字放入查找框的VBA,录制得到的.text总是关键字本身,我不知道如何放入一个字符串变量中.

Sub Macro2() ' ' Macro2 Macro ' 宏在 2005-9-12 由 JUJUMAO 录制 ' Windows("试卷关键字").Activate Selection.EndKey Unit:=wdLine, Extend:=wdExtend 'Selection.Copy '复制得到关键字,不知道如何放入一个变量中(原来的代码) keyword = Selection.text '替换成此句 Windows("05109").Activate Selection.Find.ClearFormatting With Selection.Find .Text = keyword '替换成此句 '.Text = "第一题.XXXX" '原来的代码 .Replacement.Text = "" .Forward = True .MatchByte = True End With Selection.Find.Execute Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=4, Extend:=wdExtend Selection.Copy Windows("新试卷").Activate Selection.PasteAndFormat (wdPasteDefault) ActiveDocument.Save End Sub

[此贴子已经被作者于2005-9-12 13:41:58编辑过]

iamatig

问题已经解决......主要是对对象不熟悉,找了半天的帮助才找到.

[此贴子已经被作者于2005-9-12 13:44:29编辑过]