ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 一行文字,每逢英语字母则换行(已解决)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-12-1 19:52 | 显示全部楼层
可以的
请参考此帖附件文档中的实例47
常见查找与替换实例及方法(09年8月22日更新到64例)
http://club.excelhome.net/viewth ... 5415&highlight=

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-12-1 20:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢11楼,那个资料是一大收获。
不过,我照着“画瓢”画不明白。
例如:把“中国China”置换成“China中国”
我用:  ([一-﨩]@)([a-zA-Z]@)^13   搜索
替换部分用:\2\1^p
勾选 通配符。
这样搜索,没有搜索到。(用10楼的例子)。

TA的精华主题

TA的得分主题

发表于 2009-12-1 23:19 | 显示全部楼层
由于文档不够规范,想要一步就替换成功,恐怕无能为力。
可以先将文档中的:和各段落前的半角空格先删除后,再换位
可参考以下三步(仅针对10楼文档的内容而言)
1、查找内容:
:
替换为:
空(即不用输入)
2、查找内容:
^32^13
替换为:
^p
3、勾选“使用通配符”
查找内容:
([一-﨩]{1,})^32([a-zA-Z/^32]{1,})
\2^32\1
全部替换

[ 本帖最后由 tangqingfu 于 2009-12-1 23:58 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-12-1 23:53 | 显示全部楼层
即使按楼上你的步骤试了一下,还是不行。
按常理说,不应这么麻烦,还要处理很多步。
应该是一步就到位的。还是哪里不对头。

[ 本帖最后由 mrl 于 2009-12-2 00:01 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-12-2 00:13 | 显示全部楼层
我试了,可以啊,我用的是2003
先将冒号和每段段前的半角空格删除(替换后,点击“全部替换”),再对中英文内容进行换位,注意在执行第三步时要勾选“使用通配符”

TA的精华主题

TA的得分主题

发表于 2009-12-2 00:19 | 显示全部楼层
原帖由 mrl 于 2009-12-1 23:53 发表
即使按楼上你的步骤试了一下,还是不行。
按常理说,不应这么麻烦,还要处理很多步。
应该是一步就到位的。还是哪里不对头。

由于你的文档不够替换,我想一步到位无能为力。
我以为,最好把你的最终想要解决的文档发上来,这样解决问题才更能有的放矢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-12-2 11:01 | 显示全部楼层
谢谢楼上热心朋友解或。
其实我也没有需要处理的文档,上面的那个问题只是我偶然想起来的,并不是实际碰到的问题,然后我就随便从哪个文档中copy个内容发上来做练习。

我觉得解决办法不会受到文档的半角或全角所影响。

不过,因为现在不是急于得到理想答案,所以先放一放,没准什么时候灵感上来就解决了。或者他人以后在解决类似的问题时会有理想的答案。

TA的精华主题

TA的得分主题

发表于 2009-12-30 16:41 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-12-4 21:56 | 显示全部楼层
您好,版主,请问如何利用查找和替换实现汉字和字母之间自动换行呢?即最后一个汉字和第一个字母之间换行,非常感谢!
例如:  永乐互通ZY4+100
需变成
           永乐互通
           ZY4+100
           

TA的精华主题

TA的得分主题

发表于 2017-12-5 15:24 | 显示全部楼层
jldxxwcw 发表于 2017-12-4 21:56
您好,版主,请问如何利用查找和替换实现汉字和字母之间自动换行呢?即最后一个汉字和第一个字母之间换行, ...

Sub 英中之间加段落符()
    ActiveDocument.Content.Find.Execute"([一-﨩])([a-zA-Z])", , , 1, , , , , , "\1^13\2", 2
End Sub

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

本版积分规则

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

GMT+8, 2025-1-12 13:14 , Processed in 0.023394 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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