vba在word中的问题？

clarck

各位大侠，小弟在这里有礼了！

我的问题是，我有一套英语试卷，假设是10个多选，我想将十道题的顺序随机打乱成为另一套题，不知用vba在word中如何实现？

[此贴子已经被作者于2004-6-11 20:44:36编辑过]

七叶一枝梅

我做过，但思路与你不一样——

题库用Access，Word中用ADO调Access形成试卷，题的生成用随机数。

真正的难点是直接用VBA得到回答完成后的分数。

如果试卷直接用Word做，编写计算分数的代码还比较简单，但与数据库一起使用，则写计分的代码非常麻烦，我编了一下就放弃了。（如果有时间还是可以完成的。）

[此贴子已经被作者于2004-6-12 20:52:05编辑过]

c81

你是英语教师啊！？

其实你用一个叫“电脑阅卷王 3.0”软件（在网上找一下，相信不会让你失望的！！）能成倍提高你阅卷速度！

思路和你不一样，不要多印几种试卷，这样会增加印刷劳动强度的。而是多印几种答题卡（和高考一样的），这样学生也不便抄袭。

clarck

是啊，是阿，我是一名英语教师，为了学生的试卷问题我头疼死了。

感谢七叶一枝梅，还有c81！！！

to 七叶一枝梅：你能不能说得再细一些，大概得流程就行，细节我自己来，谢谢！ to c81：你是干什么工作的，你有这方面好的意见吗？教教小弟吧！

守柔

楼主的问题，使我想起曾经有个网友问，对于WORD中的段落重新进行了手工编号，能否按照手工编号重新组合段落的问题。

在WROD中要排序必须要使用表格。

楼主的问题（前提是一个段落）假如放在EXCEL中的随机数产生则更方便，然后选择性粘贴然后排序后返回至WORD中；如果使用WORD，处理的思路是这样的，在每个段落（每道题）之前插入随机数和分隔符，将文字转换为表格， 根据随机数进行排序，删除第一列，再将表格转换为文字。

以下是代码供参考：

Sub Ri() Dim i As Paragraph For Each i In ActiveDocument.Paragraphs i.Range.InsertBefore Rnd() & ";" Next Selection.WholeStory Selection.ConvertToTable Separator:=wdSeparateByDefaultListSeparator, _ NumColumns:=2, NumRows:=10, AutoFitBehavior:=wdAutoFitFixed With Selection.Tables(1) .Style = "网格型" .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True End With ActiveDocument.Tables(1).Select Selection.Sort ExcludeHeader:=False, FieldNumber:="列 1", SortFieldType:= _ wdSortFieldNumeric, SortOrder:=wdSortOrderAscending, FieldNumber2:="", _ SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:=wdSortOrderAscending _ , FieldNumber3:="", SortFieldType3:=wdSortFieldAlphanumeric, SortOrder3:= _ wdSortOrderAscending, Separator:=wdSortSeparateByCommas, SortColumn:= _ False, CaseSensitive:=False, LanguageID:=wdEnglishUK, SubFieldNumber:= _ "段落数", SubFieldNumber2:="段落数", SubFieldNumber3:="段落数" ActiveDocument.Tables(1).Columns(1).Delete ActiveDocument.Tables(1).Select Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _ NestedTables:=False End Sub