ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

如何删除WORD文档中的所有汉字?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-12-26 20:19 | 显示全部楼层 |阅读模式
我从网上下载了歌曲《Take me to your heart》的歌词和中文翻译,是一行英文一行中文,我如果要删除所有中文,只留下英文,该怎样做?

TA的精华主题

TA的得分主题

发表于 2004-12-26 21:07 | 显示全部楼层
一首歌曲,其大小总是有限的。如果用WORD编辑,可以按住CTRL键逐一选取,然后用Delete键删除。

TA的精华主题

TA的得分主题

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

谢谢办公之星!

我想找一种更快捷的方法,比如替换什么的,我现在只能用替换将所有英文字母替换掉,但不知道怎样替换汉字。

还有就是用Ctrl键逐一选取的方法我也不会,我用Ctrl键一选是一句,不能多选。

TA的精华主题

TA的得分主题

发表于 2004-12-26 21:39 | 显示全部楼层

因为看不到你的版面只能瞎猜了。

或者把下载地址给大家,好一起找个较好的办法。

估计需要编程解决,查查守柔斑竹的帖子,好像有个现成的。

TA的精华主题

TA的得分主题

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

这个问题,可以分成几块理解,一是使用查找与替换功能,可以多次查找一下,非A-Z,a-z,0-9的数字(这些基本可以理解为英文),以及空格(需要保留),然后替换为空空;当然,还会涉及到标点符号的替换。

第二个方法:用VBA,对于大篇贴文档而言,也以多次替换的代码为宜,少量文字(如几千字以内),可以使用循环,从文档末开始,根据字的asc码长不同,进行删除,也可以根据LENB长度的不同进行删除(汉字的LENB=2*LEN),则在VBA中可以有三种方法进行

第三种方法,复制到EXCEL中,进行分离,原理也是根据LENB与LEN的不同进行。

如A1中为中英文组合型 文本,则在B1=MID($A$1,ROW(),1),往下拖曳,在C1中输入:=IF(LENB(B1)<>LEN(B1),"",B1),然后将空行筛选出来,最后组合,也可以将筛选值回粘到WORD中,将表格形式转换为文本。

以上只是思路,供参考,实际上可能需要具体问题具体分析。

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-12-27 20:40 | 显示全部楼层

谢谢二位的指点。

我使用查找与替换功能,在查找框中输入 [!][A-Z,a-z,0-9, ,.] ,基本上能满足要求,将所有的汉字都替换掉了,但唯一不足的是,将段落标记也替换掉了,整篇文档变成了一大段,因为使用通配符时好像不能输入段落标记,输入^p也不允许,而不使用通配符时既可以点“特殊字符”选择“段落标记”,也可以手工输入^p,现在我只有先将段落标记替换成一个文章肯定没有的特殊字符,然后再使用通配符替换,最后再把这个特殊字符替换为段落标记。共用三次替换完成。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-15 15:10 , Processed in 0.043935 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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