请高手帮助一下：对试题排版

geryjun

至于编号是否可以使用那一个旁注标注的形式。

geryjun

至于编题号，是否可以使用标注的形式

geryjun

没有宏代码，但有一个简便的步骤也可以。谢谢，等待高手答复。3楼却依然有一种方法，但是没有公布宏代码。短信息联系的时候说已经删除了那个代码。

geryjun

自定义编号如何实现。

hellohaoyu1985

geryjun 发表于 2016-3-9 23:47
我也没有源代码，3楼的才有，但是他没有共享。现在只能等高手来提供帮助或者是等3楼的共享。

我让你上传的是原文件！

geryjun

hellohaoyu1985 发表于 2016-3-12 22:03
我让你上传的是原文件！

直接复制内容就可以了。不需要源文件的。

hellohaoyu1985

文件不经过规整怎么进行处理，反正大概就是这个思路，也不难就是了。不用VBA也行！
没做错误处理，只做了一个死循环跳出，让你输入数字你别输入一个超过两位的正整数。2010通过。
就是下面那个文件。

1. Sub Key()
   
2. '----key1----
   
3. Dim bTxt As String '被替换的
   
4. Dim yTxt As String '替换为
   
5. bTxt = "(〖答案〗*)^13(〖考点〗*)^13"
   
6. yTxt = "\1\2"
   
7. With Selection.Find
   
8.     .ClearFormatting '清除替换的格式
   
9.     .Replacement.ClearFormatting '清除替换为的格式
   
10.     .Text = bTxt '被替换的文本
    
11.     .Replacement.Text = yTxt '替换为的文本
    
12.     .Forward = True '向前搜索
    
13.     .MatchWildcards = True  '使用通配符
    
14.     '.Style '样式对象
    
15.     '.Replacement '要替换的对象
    
16.     .Wrap = wdFindContinue '继续搜索
    
17.     .Execute Replace:=wdReplaceAll
    
18. End With
    
19. 
    
20. '----key2----
    
21. Selection.SetRange 0, 0
    
22. Dim i%, i2%
    
23. Dim n%
    
24. Dim newText As String
    
25. i = CLng(InputBox("请输入初始编号（没做错误处理！）："))
    
26. i2 = i
    
27. 
    
28. With Selection.Find
    
29.     .ClearFormatting
    
30.     .Replacement.ClearFormatting
    
31.     .Forward = False
    
32.     .MatchWildcards = True
    
33.     .Text = "〖[0-9]{2}"
    
34.     .Replacement.Text = ""
    
35.     .Forward = True
    
36.     Do While .Execute = True
    
37.         n = n + 1
    
38.         With Selection
    
39.             newText = CStr(i) & ". "
    
40.             .InsertBefore newText
    
41.             .Next(wdParagraph, 2).Select '如果不选中，则选取不会移动
    
42.                         .Collapse
    
43.         End With
    
44.         i = i + 1
    
45.         If n = 10 Then Exit Do
    
46.     Loop
    
47. End With
    
48. 
    
49. '----key3----
    
50. Selection.SetRange 0, 0
    
51. Dim sTest As String, sAnswer As String
    
52. n = 0
    
53. With Selection.Find
    
54.     .ClearFormatting
    
55.     .Replacement.ClearFormatting
    
56.     .Forward = False
    
57.     .MatchWildcards = True
    
58.     .Text = "[0-9]{1,2}. 〖[0-9]{2}*〖答"
    
59.     .Replacement.Text = ""
    
60.     .Forward = True
    
61.     Do While .Execute = True
    
62.         n = n + 1
    
63.         With Selection
    
64.             sTest = sTest & Left(.Range.Text, Len(.Range.Text) - 2)
    
65.             .Next wdParagraph, Count:=2
    
66.             sAnswer = sAnswer & CStr(i2) & ". " & .Paragraphs(.Paragraphs.Count).Range.Text
    
67.             i2 = i2 + 1
    
68.         End With
    
69.         If n = 10 Then Exit Do
    
70.     Loop
    
71. End With
    
72. With Selection
    
73.     .Start = ActiveDocument.Range.End
    
74.     .InsertAfter vbCrLf & vbCrLf & "____问题____" & vbCrLf & sTest
    
75.     .Start = ActiveDocument.Range.End
    
76.     .InsertAfter vbCrLf & "____答案____" & vbCrLf & sAnswer
    
77.     .SetRange 0, 0
    
78. End With
    
79. End Sub

复制代码

160309关于试题排版的例子.zip (13.98 KB, 下载次数: 50)

2016-3-13 00:13 上传

点击文件名下载附件
例子

geryjun

先谢谢了。看着里面的代码如果题号超过两位数，是否是直接在那里面修改    .Text = "〖[0-9]{2}"。不过题号，不超过两位数已经够了。再次感谢提供了一种思路，虽然题目有很多内容，但我每一次操作排版的时候内容都会控制页数，所以这个代码估计是够用的。

zjgwzj

编号的问题很好解决，借助替换即可：
　　第1步：插入编号域
　　在文档任意位置插入一个自动编号的域，切换到“插入”选项卡，在“文本”功能组依次选择“文档部件→域”，此时会打开“域”对话框，如图2所示，类别选择“编号”，域名选择“AutoNum”，在右侧的列表插入一种编号域，例如1,2,3,…。
　　第2步：剪切编号域
　　按下“Ctrl+X”组合键，将刚才已经插入的编号域剪切到剪贴板备用，当然也可以直接复制，但最后需要删除这个编号域，增加一道步骤。
　　第3步：替换为自动编号
　　打开“查找和替换”对话框，切换到高级替换模式，勾选“使用通配符”，查找“〖06*〗”，光标跳转到“替换为”框，单击左下角的“特殊格式”按钮，从弹出菜单选择“剪贴板内容”，继续手工输入“.”或“、”作为题号与题干之间的分隔符号。单击“全部替换”按钮，很快就可以看到效果。