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

Tsp1408 2003-11-12 07:07:28
我现在急需在WORD中实现检索相同内容,并只在其中保留一项
具体内容如下:
现有一个电话号码本(word中),其上记录了20多万个手机号码,每行一条,但其中有许多相同的号码,现需要在WORD里添加一项新功能,将相同的号码除保留一条外,其他冗余的相同项全部删除的技术。用宏或VBA实现。
出100分悬赏有心人,
但时间很紧,仅有一天时间!
急用!
我的email:xyj0948_cn@sina.com
...全文
35 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
since1990 2003-11-13
  • 打赏
  • 举报
回复
up
Tsp1408 2003-11-13
  • 打赏
  • 举报
回复
Thank you!!!!!
射天狼 2003-11-13
  • 打赏
  • 举报
回复
select distinct telphoneid from telphone
射天狼 2003-11-13
  • 打赏
  • 举报
回复
给你出个主意,先把电话号码分离出来放到数据库里,在数据库里找出相同的项就容易多了,呵呵~~
shine 2003-11-13
  • 打赏
  • 举报
回复
你的电话号码是不是都靠左排列?就是说号码的左边没有空格?
如果没有空格,就把它转换成表格(word菜单:表格-转换-文字转换成表格),转换之后就可以用我上面的程序了。

如果有空格,则用替换方法把" "替换成"",这样把空格去掉。
hhjjhjhj 2003-11-13
  • 打赏
  • 举报
回复
用WORD作为数据库????----牛吃蟹
另存为txt文件,导入到Access,处理完了再导出成txt文件,再用WORD打开,再另存
Tsp1408 2003-11-13
  • 打赏
  • 举报
回复
每行仅有一个电话号码,并无其他信息。
jiaohe2000 2003-11-12
  • 打赏
  • 举报
回复
我要分,呵呵~~~~~
pigsanddogs 2003-11-12
  • 打赏
  • 举报
回复
全部写到数据库中,然后读出来 用一条sql语句。 select dxxx xx from xx 不知道可以吗?
shine 2003-11-12
  • 打赏
  • 举报
回复
用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
shine 2003-11-12
  • 打赏
  • 举报
回复
如果你的电话是在表格里面的固定列里,则容易多了。
如果不是在表格里面,分布疏散,在复杂很多。几乎不可能,因为不知道哪些是电话,哪些其它信息。
打开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列。
rainstormmaster 2003-11-12
  • 打赏
  • 举报
回复
vb我是会可是用vba就不会了
czjt0602 2003-11-12
  • 打赏
  • 举报
回复
up

7,778

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧