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

cutebear1978 · 发表于 2023-5-16 21:55

在Word里面，如何用查找替换或宏命令进行中英文换行？

比如：类似下述文字：

我爱喝茶叶和咖啡。I love drinking tea and coffee. 但是我更爱喝碳酸饮料。But I love soda drinks more. 我该怎么改掉碳酸成瘾呢？How can I free myself from soda addiction?

自动修改成为下面文字——即：原句中文后英文一个回车，英文后中文两个回车：

我爱喝茶叶和咖啡。
I love drinking tea and coffee.

但是我更爱喝碳酸饮料。
But I love soda drinks more.

我该怎么改掉碳酸成瘾呢？
How can I free myself from soda addiction?

非常感谢！

413191246se · 发表于 2023-5-17 02:35

Sub a0001_0517_FindReplace()
Dim s&
With ActiveDocument
For s = 1 To .Sentences.Count
With .Sentences(s)
If s <> 1 Then
If Asc(.Text) < 0 Then
.InsertBefore Text:=vbCr & vbCr
Else
.InsertBefore Text:=vbCr
End If
End If
End With
Next
End With
End Sub

复制代码

cutebear1978 · 发表于 2023-5-19 00:38

413191246se 发表于 2023-5-17 02:35

弱弱的问下，我把代码复制到宏里面，提示说缺少End Sub，请问应该在哪里加这个End Sub?

中英文替换VBA代码.jpg

wuwenbin32415 · 发表于 2023-5-19 15:25

能用基础操作的查找替换法来实现吗？

batmanbbs · 发表于 2023-5-19 15:42

batmanbbs · 发表于 2023-5-19 15:49

注意句子里面不能有第二表示句子结束的符号，也就是说。？！只能有一个

wuwenbin32415 · 发表于 2023-5-19 16:02

谢谢batmanbbs。请问：为什么第二步的查找内容框里.?!前面要加反斜杆，而第一步的中文标点符号。？！的前面都不用加反斜杆？谢谢

batmanbbs · 发表于 2023-5-19 16:11

wuwenbin32415 发表于 2023-5-19 16:02
谢谢batmanbbs。请问：为什么第二步的查找内容框里.?!前面要加反斜杆，而第一步的中文标点符号。？！的前面 ...

因为在使用通配符的时候，半角的?!.都是有特殊含义的，不能直接使用.如果需要直接使用，需要使用转义符\，
来表示我查找到是?!.

wuwenbin32415 · 发表于 2023-5-19 16:29

谢谢batmanbbs，明白了，意思是说半角的标点有通配符的作用，前面加上反斜杆就会把它们通配符的作用去掉

cutebear1978 · 发表于 2023-5-19 17:12

batmanbbs 发表于 2023-5-19 15:49
注意句子里面不能有第二表示句子结束的符号，也就是说。？！只能有一个

感谢大侠慷慨相助！

		自动登录	找回密码
密码			免费注册

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

浏览过的版块