ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 15955|回复: 19

[Word 应用与开发] [开_64] 还是查找、替换

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-11-12 13:58 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

我们常常遇到类似于合并后的表格文档(当然,他只是类似,而不是合并后的文档,他与合并后的文档还是有区别的,在总结时,我们会讨论他们的区别在哪里,如何处理这种区别),如何还原出原来的数据库形式的文档?这一直是比较麻烦的事情,今天,我们一起来研究一下:

如何把“题目”文档,通过查找、替换等步骤转换为“结果”的效果。

要求:

1、不能使用Ctrl+光标的形式来选中表格,因为我们假设这篇文章有很多这样的表格,而且表格与表格之间可能有很多文字,这样,拖动滚动条很难定位(实际上也是这样情况)。

2、只能使用Word的本身功能,不能借用其他的程序。(如Excel等)

3、不能使用VBA

4Word2000的方法与Word2000以上的方法稍有不同。请注明你的版本。

------------------------------------------------------

此题不只一个答案。

附加题:(不算分),经常在网上下载了以下的东东,经过一系列的复制、粘贴,消空格、空行等操作后,他们仍然全部连在一起,那么如何使每篇文章,另起一页?

范文是这样的:

如何设置行号

2005-11-08 11:30更新 来源:chinabyte

……

……(略)

利用标尺调整页边距

1995-10-31 16:02更新

……

……(略)

wehRk3c1.rar (10.84 KB, 下载次数: 256)

[此贴子已经被守柔于2005-11-15 16:15:28编辑过]
单选投票, 共有 6 人参与投票

距结束还有: 3017 天23 小时40 分钟

您所在的用户组没有投票权限

TA的精华主题

TA的得分主题

发表于 2005-11-16 17:00 | 显示全部楼层

看的人不少,还没回帖的,抛个砖头。题外话:难道是因为此题不只一种答案?无从选择?

一、审题:楼主提了4个要求,满足这4个要求,得到结果的应该都是答案;

二、开始: 1.全选整篇文档 (CTRL+A) 2.替换段落标记为空,即CTRL+H 查找内容为 ^p ,替换内容留空,全部替换。约66-67处。 3.替换结束后文档还是全选状态,表格——转换——文本转换为表格,使用默认设置(列数为1,固定列宽为自动,文字分隔位置为段落标记)确定。 4.转换结束后还是全选状态,表格——转换——表格转换为文本,需要更改设定,文字分隔符为制表符,确定。 5.CTRL+H 查找内容为 姓 名^t ,替换内容为 1.姓 名^t,全部替换。替换8处。同理替换 其他字段名称 替换内容中按字段顺序进行编号,均替换8处。如:(当然其中有些可以不用替换,如性别、出生年月、计算机、政治、传真、电子邮件这6个可以不用替换) 姓 名^t 1.姓 名^t 性别^t 2.性别^t 出生年月^t 3.出生年月^t 学院^t 4.学院^t 数学^t 5.数学^t 计算机^t 6.计算机^t 政治^t 7.政治^t 寝室电话^t 8.寝室电话^t 传真^t 9.传真^t 手 机^t 10.手 机^t 电子邮件^t 11.电子邮件^t 备 注^t 12.备 注^t 6.替换结束后,还应是全选状态,表格——转换——文本转换为表格,在设置中将文字分隔位置为制表符,设置自动变化(列数为6,固定列宽为自动,文字分隔位置为制表符)确定。 7.转换结束后,还是全选状态,表格——排序,设置为 主要关键字 “学生成绩册”,类型选“数字”,升序,次要关键字留空,有标题行。确定。 8.从表格第一行开始,选至 姓名 上面的一行,(可先选住第一行按SHIFT键选住姓名上面的一行),鼠标右键,删除行。 9.表格——拆分表格,将相同的字段拆分为一个表格,如 姓名、性别、出生年月 为一个表,学院一个表,数学、计算机、政治为一个表,寝室电话、传真为一个表,手机、电子邮件为一个表,备注为一个表。 10.将字段按顺序粘贴列到第一个表中。加上表头。 11.最后一步,保存,查看word版本,用的是WORD 2002(XP)。其他版本应该也可以。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-16 21:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

[em14]我好感动!

我花了几天的时间。从构思到出题再总结;再构思再出题再总结;反复多次。然后对每种方法反复测试,每个小步骤是否还有商榷之处?然后不停的想:是否有更好的方法?有否有更多的发现?有否有让人心动的地方?是否在总结时说出几条鲜为人知的秘密?在这方面,我花了不少心思(也可能是水平太差的原因)。出题后,发现有些地方不够好,想改一下,但一想,还是不要改,这样“不够好”的地方,可以让不太熟悉的人也有答对的机会。

可能是本人水平太菜的原故,可能是本题太简单的原故!

大家迟迟不出手!

结果出了几天,无一人来。我觉得我们之家对Word的“高级”应用感兴趣的人很少、很少,或者说对开发区竞赛区的题目很不感兴趣。

有人说出题人在“做秀”!?我不觉得!我觉得,通过出题,我们只不过想大家介绍一此技巧,或许您已经掌握,但没掌握的人也有不少。

思前故后,不尽感慨万千!

我想:“这是我出的第一个题目,也可能是最后一个题。”我真不想我的劳动没有任何人去珍惜!

从头再来-------我只能这么做!

再次谢谢asdf1001兄的回答,不至于让此贴成为零回复的贴子。

同时,更谢谢老大在出题前后的鼓励!

谢谢大家!

TA的精华主题

TA的得分主题

发表于 2005-11-23 10:18 | 显示全部楼层

支持楼主。

再没人跟帖,楼主可以说出答案了。好让大家学习学习。

TA的精华主题

TA的得分主题

发表于 2005-11-23 10:29 | 显示全部楼层

坚决支持konggs

不是迟迟不出手,而是我根本不会,我曾经试过很久,没有结果.

我想:“这是我出的第一个题目,也可能是最后一个题。”我真不想我的劳动没有任何人去珍惜!
我不希望是这样的结果!

[此贴子已经被作者于2005-11-23 11:35:45编辑过]

TA的精华主题

TA的得分主题

发表于 2005-11-23 10:55 | 显示全部楼层

支持konggs.

楼上说得对,不是不珍惜,而是我们真的不会,我都想好几天,平时只关心EXCEL方面的东西,word方面真的很菜 .

期待高手答题.

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-23 20:51 | 显示全部楼层

以下为答题步骤:

逆序法:

1、查找(ctrl+f):“[高手过招之一统江湖]*^13搜索全部,勾选通配符,全部替换。再手工删除第一段的“学生成绩表”。这样所有的表格就合并为一个表格了。(此步的查找内容纯是个人爱好,强加了这几个字)

1.1 当然,也可能这样做查找“[-]*^13勾选突出显示所有在该范围找到的项目,查找全部,再点关闭。按Del键。这样就不用手工删除第一段的“学生成绩表”,一步完成

1.2 也可以这样做:查找:*^13,全部替换。勾选通配符。(理论上应该可以把全部的段落(除表格以外的)删除,可实际上是不行的?!但可以这样:勾选突出显示所有在该范围找到的项目,/查找全部,再点关闭。按Del键。

2、全选(CTRL+A)、剪切(CTRL+X),新建(CTRL+N),编辑\选择性粘贴\无格式文本。(当然,也可以在原文档中进行)

3、全选(CTRL+A),表格\转换\文本转换为表格。列数选1

4、表格/转换/表格转换为文本/文字分隔符,段落标记。(当然,34步也可以查找“^t”,替换为“^p”)

5、查找“(*)(^13)(*)(^13)”,替换为“\3^p”,意思就是删奇数行,留偶数行,这就是我们所要的。

6、表格\转换为表格,此时选12列。这样就得到所有的数据

7、加上表头我们所要的表头就行。当然,也可以在第五步删除前,先复制出表头的文字。

正序法:

1、查找(ctrl+f):“姓 名”突出显示所有在该范围找到的项目/查找全部,再点关闭。

2、点格式/格式与样式/所有样式/网格型6(网格型等都可以)。再选/使用中的样式/找到网格型6,点击,选择选中所有2(这个数字可能不一样)实例。这时全部选中了表格,

3、复制、新建一个文档(ctrl+N),编辑/选择性粘贴/无格式文本。

4、全选,表格、文字转换为表格,选二列。选中第一列,复制文本到一边去,再选中第一列,删除(按退格键)。再把只有一列的表格,转换为文本。(也可以这样,查找“*^13(*13)”,替换为“\1,意思是只要偶数行的内容,奇数行的内容删除)再表格、转换为表格,此时选12列。这样就得到所有的数据,但此时没有表头。加空白的第一行表格

5、再在复制到一边的文本中查找:“姓*注”,勾选通配符。复制,选中第一行的表格,粘贴。

-----------------------------------------------

附加题的答案是:

查找“(^13)[1-2][0-9][0-9][0-9]-[0-9][0-9]-[0-9]”,替换为“\1”,勾选通配符,格式/段落/换行和分页/段前分页,与下段同页。当然,也可以设置为一个这样的样式。

-----------------------------------------------

就题论题:

1、方法一是常规的操作;方法二是利用表格样式来操作的,当然,方法一与方法二很多步都是“相通”的,尤其当粘贴为无格式文本后,在此做二个就是说明方法很多罢了。所谓条条大路通罗马!

2、方法一的大部分内容就是来自老大以前出的题目;方法二,有一处是新的,就是选中一部分文字后,能够通过“样式和格式”的“表格样式”,把这部分的文字所在的表格定义为一种样式。然后选中。通俗的说:“当选中一小部分文字后,定义某种样式时,他所在的那部分内容,同时应用于这种样式。”大家,也可以按Ctrl+G,体会定位在表格中的应用。当查找与样式结合起来时,变化就更多了。

3、此题的第二法明显好处第一法,特别当情况复杂时,尤其是这样,例如从liunx(或其它不同平台)下“做的”或“复制”文档的文档,在Word中,他们可能是通常查找范围以外的。

其实上面的每一个小步,都可以产生很多种方法(有点像“独孤九剑”)。

------------------------------

题外话:

1、“勾选突出显示所有在该范围找到的项目”在2000及以下版本没有此项,XP及以上有了,才开始我以为是鸡肋,后来发现有时她起着很大的作用。

2、“样式和格式”中有“列表样式、表格样式、段落段式”。表格样式,大家用的很少,通过此题,大家应该知道他的重要性了。他在某些方面,可能是我们的最利害一招。(再想:为什么微软不定义一批“图片样式”、“图形样式”?)

3、查找时“*”能代表“任何”的东东。但是他是除了表格内部与后面的形如回车的标志的,这个形如回车的东东,目前没有发现用什么东西能单独“查”到他。当我试图跳过的形如段落的标记时,我失败了,如:我们查找:“姓*注”时,就不行。但我们知道,她“依靠”在表格中,所以,用表格样式找她应该没错。

4、大家猜一下,如果表格外也有“姓 名”的字样,会怎么样?难道也会变成变格吗?当然不会,虽然会选中,但定义表格样式时,对他们是不起作用的。因为,他们根本不在表格内嘛。

5、出题之初:我是看到一个网友在论坛的求助贴有此形式表格,我注意他没把表格内的文字用同一种样式,而是随意的,如果我们通过间隔的选中这几种样式,能复制、粘贴,但原先的位置就打破了。也是为了与通常的情况一样,我在出题时没有修改此处原文使用的样式。

6、出题时说的类似,是指此文档没有分节符,也没有固定的格式。合并后的文档的的分节符,听说:大家能通过查找“^b”,替换为任何东东,但我始终没有做成功。但我可以用:“勾选突出显示所有在该范围找到的项目”来摆平它。(方法同题)

7、“勾选突出显示所有在该范围找到的项目”有些方面功能比替换还好用。

------------------------------

闲聊话:

如果说“查找、替换”是“北冥北神功”的话,那么“样式”则是“乾坤大挪移”,WordVBA嘛,就是“太极拳”(无招胜有招!)

如果您完全掌握了这三大秘诀,你就是……

--------------------------------

其它由我发起的与“查找”相关的贴子地址为:

http://club.excelhome.net/viewthread.php?tid=135178

http://club.excelhome.net/viewthread.php?tid=130580

http://club.excelhome.net/viewthread.php?tid=125184

http://club.excelhome.net/viewthread.php?tid=112941

老大的与“查找”相关的贴子就不用我来介绍了。都是经典了,我也是学了经典,才跑到这里卖弄的。

此题也能画上“圆满”的句号了。

谢谢大家!

[此贴子已经被作者于2005-11-23 21:07:13编辑过]

TA的精华主题

TA的得分主题

发表于 2005-11-24 10:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

总结得好![em17]

突出显示所有在该范围找到的项目”虽然有版本限制,其实也是一种定位,可以说是对word定位功能的补充了

TA的精华主题

TA的得分主题

发表于 2005-11-25 14:59 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

啊,孔兄出题怎么也不统治我一声(其实通知我,我也不会做word题目),.

看了孔兄的总结受益非浅.

看来孔兄的word水平是越来越精纯了.

PS:最近在学VBA,竞赛区有日子不来了.

TA的精华主题

TA的得分主题

发表于 2006-1-21 16:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
认真学习.。正序法中的步骤2未能全部选定表格,不知道是什么原因.我是word2002.
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 14:18 , Processed in 0.055676 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表