中文和英文段落对照的文章需批量删除有简便方法吗

learner-learner · 发表于 2014-12-23 14:33

一段中文
一段英文

很多中英文段段对照的文件怎么批量删成只有中文段落和只有英文段落。。。。THKS QQ图片20141223143233.jpg

learner-learner · 发表于 2014-12-23 14:34

也就是隔一段删一下

pipiludaxian · 发表于 2014-12-23 22:51

本帖最后由 pipiludaxian 于 2014-12-23 23:03 编辑

Sub delet_par()
Dim n As Integer
Dim i As Integer
n = ActiveDocument.Paragraphs.Count
For i = n To 1 Step -2
ActiveDocument.Paragraphs(i).Range.Delete
Next
End Sub

loquat · 发表于 2014-12-24 10:29

(^13)([!一-龥]@)(^13)
替换为\1
QQ图片20141224102751.jpg

周星骋 · 发表于 2014-12-24 10:58

我估计([!一-龥]@)前后可能还要加星号、非回车什么的，
因为楼主所谓中文段落，难免没有数字开头、标点结尾。
总之，没有附件，开故事会讨论不出结果。

柠檬红酒 · 发表于 2014-12-24 14:42

请教下四楼的大神，按照你提供的方法可以把文中的英文删除只留中文，那如果要删除中文只留英文，又怎么处理呢？

loquat · 发表于 2014-12-24 14:56

(^13)([!a-zA-Z@)(^13)

learner-learner · 发表于 2014-12-24 15:41

loquat 发表于 2014-12-24 10:29
(^13)([!一-龥]@)(^13)
替换为\1

那要是英文在前中文在后的段落对照怎么批量替换呢？

另外
(^13)([!一-龥]@)(^13)
替换为\1

这个对表格内的段落对照貌似没有作用

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