用不同的颜色标明生词在课文中的位置

bearbearbear · 发表于 2006-9-9 12:50

用不同的颜色标明生词在课文中的位置

把所有生词一次copy到文本框，即可在文章中用不同的颜色标明生词在文中的位置。根据守柔斑竹的“多文本替换”的代码修改而成。有待进一步完善。尚有以下问题，请大家指教。
1。词组不能识别。应该与函数split有关。
2。个人设想把生词组织成每行一个的形式，直接拷入文本框中执行。目前还只能用逗号分割的形式。
3。文本框自动打开输入法，比较麻烦。
4。设想只把课文中找到的第一个单词变色。把代码中的Replace:=wdReplaceAll替换成Replace:=wdReplaceOne，结果只能进行第一个单词的第一次替换。不知何故。

附件为word文件。操作方法：编辑〉多个替换，把生词拷入文本框，替换即可。

54PxMIfX.rar (10.67 KB, 下载次数: 8)

守柔 · 发表于 2006-9-9 16:34

QUOTE:

以下是引用bearbearbear在2006-9-9 12:50:33的发言：

用不同的颜色标明生词在课文中的位置

把所有生词一次copy到文本框，即可在文章中用不同的颜色标明生词在文中的位置。根据守柔斑竹的“多文本替换”的代码修改而成。有待进一步完善。尚有以下问题，请大家指教。
1。词组不能识别。应该与函数split有关。
2。个人设想把生词组织成每行一个的形式，直接拷入文本框中执行。目前还只能用逗号分割的形式。
3。文本框自动打开输入法，比较麻烦。
4。设想只把课文中找到的第一个单词变色。把代码中的Replace:=wdReplaceAll替换成Replace:=wdReplaceOne，结果只能进行第一个单词的第一次替换。不知何故。

附件为word文件。操作方法：编辑〉多个替换，把生词拷入文本框，替换即可。

已根据楼主的各项要求进行了修改，见附件，并请测试：

syT9wu1q.rar (13.93 KB, 下载次数: 12)

bearbearbear · 发表于 2006-9-9 17:31

已下载测试，解决得十分完美。谢谢了，守柔兄。

再麻烦问一句：用到的编辑框控件属性里有没有右键菜单可以激活？这样粘贴更方便一些。找了一下好像没有。

[em02]

gues1688 · 发表于 2006-9-10 11:48

没有右键菜单，需自己设计，试一下如下简单的代码，编辑框中点鼠标右键粘贴：
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then 'fmButtonRight
        TextBox1.Paste
    End If
End Sub

gues1688 · 发表于 2006-9-10 11:59

更进一步的，请看这里：

http://www.bczs.net/xml/2003/6/21/1942355.xml

bearbearbear · 发表于 2006-9-10 14:11

谢谢楼上的。试试看。

[em02]

		自动登录	找回密码
密码			免费注册