文档中排序问题？

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

413191246se 发表于 2021-1-23 01:52
* 楼主，你不必研究了，我已经知晓原因，毛病出在空行上。我已解决。
* 请将 1 楼你提供的附件示例文档作 ...

请教一下，如果编号有50多个，这个宏代码还可以使用么？

sylun · 发表于 2021-1-23 11:33

就本文档，可以试试用段落排序的方法，只是其中文本编号26的段落排序异常，有点怪。

Sub test()
With Documents.Add(ActiveDocument.FullName).Content '在新文档处理
.Parent.ConvertNumbersToText
.Sort False, "段落数", wdSortFieldNumeric
.Text = Replace(.Text, "、" & vbTab, ". ")
End With
End Sub

复制代码

413191246se · 发表于 2021-1-23 12:15

本帖最后由 413191246se 于 2021-1-23 12:22 编辑

多少都可以，但注意中英段落要相同。格式和示例文档要一样，不要有分节符/分页符等字符。
我的代码仅对你的示例文档有效！（其实我个人觉得，要想来中英对照，最好是中文一个文档，假设叫 1.docx；英文一个文档，假设叫 2.docx；这样比较好。)——请注意：中间的“第五单元单词听写”不要删除，因为全靠这个“第”字来判断呢！（该段要是换成别的字也可以，但第一个字必须是汉字。）

晨晓之黎 · 发表于 2021-1-23 12:16

我用段段对照工具一键解决了！前提是备好2份文件，一个是原文，另一个是译文，才可以用。

413191246se · 发表于 2021-1-23 12:26

楼主，要是你经常要处理中英对照试卷的话，如果方便的话（不怕泄密），可以把一份完整的试卷打包发上来，我重新编一下码方便你处理。——因为一份试卷，可能还有其它题型，你要处理的这部分也许可以先选定。

413191246se · 发表于 2021-1-23 13:30

sylun 老师太高明了！短短几行，顶上我千军万马！
这句“Documents.Add(ActiveDocument.FullName)”，还可以这样写！头一次见到。sort 方法我也查了查，不会用。

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

413191246se 发表于 2021-1-23 12:26
楼主，要是你经常要处理中英对照试卷的话，如果方便的话（不怕泄密），可以把一份完整的试卷打包发上来，我 ...

谢谢！暂时没有别的试卷，这是老师出的题目，有时要进行汇总，我之前排版是分开排版的，汇总要把中文和英文排版在一起，题目不会超出50个，能用就行。非常感谢你的帮助！

壹号公馆 · 发表于 2021-1-23 20:28

晨晓之黎发表于 2021-1-23 12:16
我用段段对照工具一键解决了！前提是备好2份文件，一个是原文，另一个是译文，才可以用。

你好！我只想找到解决的方法，你帮我现在排版好了，下次遇到同样的问题，我不会做了。

413191246se · 发表于 2021-1-24 03:07

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

* 楼主还应该感谢 sylun 老师和 ming0018 老师。他们两个可是本坛大神！还有晨晓朋友。

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

复制代码

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

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

评分

评分