怎么在Word中实现…………，100分悬赏!!!

[Tsp1408]

我现在急需在WORD中实现检索相同内容，并只在其中保留一项
具体内容如下：
现有一个电话号码本(word中)，其上记录了20多万个手机号码，每行一条，但其中有许多相同的号码，现需要在WORD里添加一项新功能，将相同的号码除保留一条外，其他冗余的相同项全部删除的技术。用宏或VBA实现。
出100分悬赏有心人，
但时间很紧，仅有一天时间！
急用！
我的email:[e-mail]

[czjt0602]

up

[rainstormmaster]

vb我是会可是用vba就不会了

[shine]

如果你的电话是在表格里面的固定列里，则容易多了。
如果不是在表格里面，分布疏散，在复杂很多。几乎不可能，因为不知道哪些是电话，哪些其它信息。
打开VB工程，引用microsoft word 9.0 object libeary'word 2000
Set wNew = New Word.Application
wNew.Documents.Add "c:\abc.doc"'文档名称
'----------------------------
for i=1 to wNew.Documents(1).Tables(1).Rows.Count
Phone=wNew.Documents(1).Tables(1).Cell(i, PhoneCol).Range.Text
for j=i+1 to wNew.Documents(1).Tables(1).Rows.Count
if Phone=wNew.Documents(1).Tables(1).Cell(j, PhoneCol).Range.Text then
wNew.Documents(1).Tables(1).Rows(j).Delete
end if
next
next
vNew.visible=true'打开Word
'''''''''''''''''''
Tables(1)代表第一个表格
Tables(1).Cell(i, PhoneCol)代表第一个表格里的第i行，第PhoneCol列。

[shine]

用vba就是
sub a()
for i=1 to ThisDocument.Documents(1).Tables(1).Rows.Count
Phone=ThisDocument.Documents(1).Tables(1).Cell(i, PhoneCol).Range.Text
for j=i+1 to ThisDocument.Documents(1).Tables(1).Rows.Count
if Phone=ThisDocument.Documents(1).Tables(1).Cell(j, PhoneCol).Range.Text then
ThisDocument.Documents(1).Tables(1).Rows(j).Delete
end if
next
next
end sub

[pigsanddogs]

全部写到数据库中，然后读出来 用一条sql语句。 select dxxx xx from xx 不知道可以吗？

[jiaohe2000]

我要分,呵呵~~~~~

[Tsp1408]

每行仅有一个电话号码，并无其他信息。

[hhjjhjhj]

用WORD作为数据库？？？？----牛吃蟹
另存为txt文件，导入到Access,处理完了再导出成txt文件，再用WORD打开，再另存

[shine]

你的电话号码是不是都靠左排列？就是说号码的左边没有空格？
如果没有空格，就把它转换成表格（word菜单：表格-转换-文字转换成表格），转换之后就可以用我上面的程序了。

如果有空格，则用替换方法把" "替换成""，这样把空格去掉。

[射天狼]

给你出个主意,先把电话号码分离出来放到数据库里,在数据库里找出相同的项就容易多了,呵呵~~

[射天狼]

select distinct telphoneid from telphone

[Tsp1408]

Thank you!!!!!

[since1990]

up