ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: cutebear1978

如何用查找替换或宏命令来中英文换行?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-5-21 13:20 | 显示全部楼层
cutebear1978 发表于 2023-5-19 17:12
感谢大侠慷慨相助!

勾选通配符,([!a-z A-Z]{1,})([^1-^127]{1,})  替换成\1^13\2^13^13

TA的精华主题

TA的得分主题

发表于 2023-5-21 13:24 | 显示全部楼层
勾选通配符,([!a-z A-Z]{1,})([^1-^127]{1,})  替换成\1^13\2^13^13

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-5-21 17:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
batmanbbs 发表于 2023-5-19 15:49
注意句子里面不能有第二表示句子结束的符号,也就是说。?!只能有一个

再请教一个问题:

文件初始内容如下图:(因为是讯飞输入法语音自动输入,所以,中英文混杂在一起,没有分行排列):
如何中英文换行?1 原始.jpg

我按照您前面的回帖,进行两次查找、替换之后,就会出现如下图的结果(用“修订模式”突出显示:):
如何中英文换行?2 英文分开.jpg


请问:如何通过查找、替换或者VBA代码,产生类似下面的结果:
如何中英文换行?3 中文英文都分开换行.jpg

换言之,就是这样的文字排列:

中文和中文标点符号(同一段)
英文字母和英文标点符号(同一段)
(中间空一行)

中文和中文标点符号(同一段)


英文字母和英文标点符号(同一段)

(中间空一行)
中文和中文标点符号(同一段)


英文字母和英文标点符号(同一段)
(中间空一行)
。。。。。。

感谢!!






TA的精华主题

TA的得分主题

发表于 2023-5-21 22:07 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-5-21 22:44 | 显示全部楼层
tcdatongye 发表于 2023-5-21 13:20
勾选通配符,([!a-z A-Z]{1,})([^1-^127]{1,})  替换成\1^13\2^13^13

谢谢专家回复。

我试了下,只有一处修改,但是似乎还是没能让中文和英文按照前面所说的那样分段,如下所示:


如何中英文换行?3 仅仅一个地方修改.jpg


TA的精华主题

TA的得分主题

发表于 2023-5-21 23:08 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
cutebear1978 发表于 2023-5-21 22:44
谢谢专家回复。

我试了下,只有一处修改,但是似乎还是没能让中文和英文按照前面所说的那样分段,如下 ...

上附件,最好提供两个,一个是需要修改的,需要达到的效果

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-5-22 03:56 | 显示全部楼层
本帖最后由 cutebear1978 于 2023-5-22 09:35 编辑
batmanbbs 发表于 2023-5-21 23:08
上附件,最好提供两个,一个是需要修改的,需要达到的效果

不好意思,重新回复下:


下图是需要修改的原始文件:

如何中英文换行?1 原始.jpg

再下面这张图,是希望达到的最终效果:
如何中英文换行?2 英文分开.jpg


最后一图,按回帖方法做替换,得到的结果,不知为何,只有一处内容被替换:
[。?!]  替换为 ^&^13
[\.\?\!]  替换为 ^&^13^13
如何中英文换行?3 仅仅一个地方修改.jpg


求指点!

TA的精华主题

TA的得分主题

发表于 2023-5-22 12:35 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-5-22 16:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
batmanbbs 发表于 2023-5-22 12:35
截图怎么测试啊:)
把文档提供一下

抱歉,上传的压缩文件有2个文档:
测试文档:原稿和终稿.rar (87.72 KB, 下载次数: 6)


文件1是原始文件:


文件2是相当于要达成的最终格式效果:


修改成这个格式效果就行:中文+回车+英文+2个回车+中文+回车+英文+2个回车 (如此循环往复。。。


对于具体字词的内容修改,我已经通过查找、替换,设置好了宏来操作。


小的跪谢大侠~!

TA的精华主题

TA的得分主题

发表于 2023-5-22 18:51 | 显示全部楼层
本帖最后由 batmanbbs 于 2023-5-23 01:13 编辑

查找:[^1-^127\’]{1,}  (根据我后面的代码优化一下查找替换,见23楼)
替换:^13^&^13^13

效果不好。因为你提供的文档中,中文中夹带英文,英文中使用中文标点符号,另外其中还可能夹带其他不规范的字符。只能做个大概,然后自己整理一下。
注意:使用此方法,只能执行一次。另,我编了一段代码(在后面),效果可能会稍好一些(仅仅是稍好一些呦,可以执行多次)。看看有没有高手帮你。

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

本版积分规则

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

GMT+8, 2024-5-17 17:36 , Processed in 0.043224 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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