文档中排序问题？

壹号公馆 · 发表于 2021-1-22 11:02

本帖最后由壹号公馆于 2021-1-23 10:23 编辑

文档中有英文试卷，想把中文和英文合并在一起，请教有什么好办法，这样的试卷比较多？

413191246se · 发表于 2021-1-23 01:52

本帖最后由 413191246se 于 2021-1-24 12:00 编辑

略。。。。

壹号公馆 · 发表于 2021-1-23 10:27

Jason_WangSS 发表于 2021-1-23 09:45
复制到excel，前面加一辅助列，中文前面列填充1，3，5，7，9....英文前面列填充2，4，6，8，1.....按辅助列 ...

这个办法简单有效，感谢帮助！

413191246se · 发表于 2021-1-24 11:57

* 楼主，我重新编写了程序，没有多余的步骤，仅对你的示例文档有效，请试用：

Sub Chinese_English_View_20210124()
Dim i As Paragraph, r As Range, s As Range, n&, j&
With ActiveDocument
.ConvertNumbersToText
.Content.Find.Execute "[^13^l]", , , 1, , , , , , "^p", 2
For Each i In .Paragraphs
If Len(i.Range) = 1 Then i.Range.Delete
Next
End With
With Selection
.HomeKey 6
Do
.MoveEnd 4
Loop Until Asc(.Next) < 0
Set r = .Range
j = .Paragraphs.Count
.MoveRight
.EndKey 6, 1
Set s = .Range
Do
n = n + 1
r.Paragraphs(n).Range.Characters.Last.InsertBefore Text:="`" & Replace(s.Paragraphs(n).Range.Text, vbCr, "")
Loop Until n = j
s.Delete
.HomeKey 6
End With
ActiveDocument.Content.Find.Execute "`", , , 0, , , , , , "^p", 2
End Sub

复制代码

ming0018 · 发表于 2021-1-22 11:45

用vba重组或者排序

壹号公馆 · 发表于 2021-1-22 12:33

ming0018 发表于 2021-1-22 11:45
用vba重组或者排序

如果我会做，就不来请教了，我试图将文档复制到excel表格进行排序，你看数字无法正常排序，1、10在前面，2、21在后面，3、4、5、6又排在最后面，有什么好办法么？

413191246se · 发表于 2021-1-22 13:57

本帖最后由 413191246se 于 2021-1-23 01:49 编辑

not.........

壹号公馆 · 发表于 2021-1-22 15:38

413191246se 发表于 2021-1-22 13:57
* 楼主，前几天有人问过这样的中英混排问题，我给了代码，你可能没看到。
* 刚才我临时重新构思了一下，成 ...

你好！不知道什么原因运行不了，不知道是否操作有误，麻烦你将宏代码及文档制作在一起，我看一下，那步错误，非常感谢！这个论坛也是要用的时候，在来求助一下，有时间要好好研究一下。谢谢！

ming0018 · 发表于 2021-1-22 17:08

壹号公馆发表于 2021-1-22 12:33
如果我会做，就不来请教了，我试图将文档复制到excel表格进行排序，你看数字无法正常排序，1、10在前面， ...

前9个序号前面补个0，再用vba排序一下就好了。

413191246se · 发表于 2021-1-22 19:05

* 请先选定英文部分，即“第2页的第五单元。。。。”直到“29. xxxxxx ”，运行下面的宏：

Jason_WangSS · 发表于 2021-1-23 09:45

复制到excel，前面加一辅助列，中文前面列填充1，3，5，7，9....英文前面列填充2，4，6，8，1.....按辅助列由小到大排序即可

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

[已解决] 文档中排序问题？