word中如何随机抽取题 有一个word题库，想实现从题库中随机选一定数量的题并剪切到...
word\u4e2d\u5982\u4f55\u5c06500\u9053\u9898\u968f\u673a\u62bd\u53d6\u51fa50\u9053\u9898\uff0c\u5f62\u6210\u53e6\u4e00\u4efd\u6587\u6863\u8fd9\u4e2a\u7528Excel\u66f4\u597d\uff0c\u4f46\u7528WORD\u4e5f\u53ef\u4ee5\uff0c\u4e0d\u8fc7\u6709\u70b9\u5c0f\u9ebb\u70e6\uff0c\u5c31\u662f\u8981\u901a\u8fc7\u63a7\u4ef6\u7bb1\u6216\u56fe\u8868\u9879\u6765\u64cd\u4f5c\uff0c\u4e2a\u4eba\u5efa\u8bae\u7528Excel\u4e2d\uff0c\u968f\u673a\u6570\u751f\u6210\u9898\u53f7
word\u4e2d\u4e5f\u6709vba,\u4e0d\u77e5\u9053\u4f60\u8bf4\u7684\u81ea\u52a8\u51fa\u9898\u662f\u5426\u6307\u7684\u7528\u5b8f\u4fee\u6539\u4e00\u4e9b\u4e1c\u897f\u3002 \u4e5f\u53ef\u4ee5\u7528excel\u7684vba\u8bfb\u53d6word\u4e2d\u7684\u5185\u5bb9\u3002
1、在Excel中添加工作表“题库”录入题库。
2、在Excel中添加工作表“单人选择题题库”（表格也包含了判断题）。
3、在Excel中的工作表“单人选择题题库”根据随机排序后的题号找到对应的题干、选择题答案。
4、在Excel中的工作簿中新建工作表“出题人与正确答案”，根据工作表“随机数”找到每一套题目的参考答案。
5、新建两个文档“个人试题录入-选择题”以及“个人试题录入-判断题”。
6、使用邮件合并功能开始试题合并。以选择题为例，判断题类似。
7、生成一套试题。
word无法产生随机数，需要通过excel协助。
办法是，
1.先把选择题变成表格一列。当然是批量处理，因为没有提供样本，随便举个例子附后。
2.选择全文，文本转换为表格，列数设置为1，分隔符为段落
3.在表格左边插入一个空白列。
4.在excel中用=RAND()函数产生随机数，填充到相应的行，复制粘贴到wrod空白列，排序。根据所要的数量选出测试题。如果要更直观地获得所要的选择题数量，可以再增加一个空白列，选择这一列，自动编号即可。
5.删除随机数那一列，再通过逆向转换成文本和替换为原格式，生成选择题。
例子：
111.sgfsdfg
A B C
112.sdfgdsfgdsfhg
A B C D
111.sgfsdfg/A B C/112.sdfgdsfgdsfhg/AB C D/
查找：^13
替换为：/
勾选使用通配符
查找：/([0-9]{1,}.)
替换为：^p\1
勾选使用通配符
逆向替换：
查找：/
替换为：^p
绛旓細灏棰樼洰鍒嗗埆澶嶅埗鍒颁竴涓猘ccess琛ㄤ腑锛屽啀鐢辩綉椤电▼搴廇SP浠庤〃涓殢鏈鎻愬彇鍗冲彲銆俧unction GetRand(max)Randomize()getrand=CInt(Int(max * Rnd()))end function
绛旓細鏂规硶涓锛歟xcel锛屽垹闄ら噸澶嶅 姝ラ1锛氭瘮濡傝繖閲屾湁涓浜涢锛屾垜浠厛鍙栨秷鑷姩缂栧彿锛屽鍒舵墍鏈夛紝鐒跺悗鍘籩xcel涓矘璐 绮樿创鍒癳xcel涓 姝ラ浜岋細鍏ㄩ夎繖涓鍒楋紝鐐瑰嚮鏁版嵁-鏁版嵁宸ュ叿-鍒犻櫎閲嶅鍊硷紝鐐瑰嚮纭畾 姝ラ涓夛細鎴戜滑鍙戠幇閲嶅鍊煎凡缁忚鍒犻櫎锛岀劧鍚庢垜浠鍒惰繖浜涙枃瀛楋紝鍥炲埌word绮樿创 閲嶅鍊煎凡缁忓垹闄 鍥炲埌word绮樿创鍗冲彲 鏂规硶浜岋細word...
绛旓細鎶婁綘瑕佺殑棰樺鍒朵笅鏉ワ紝鏂板缓浠ヤ釜word鏂囨。锛屽啀鍦ㄩ噷闈㈢矘璐村氨鍙互浜 鍔炴硶鏄湁浣嗘槸姣旇緝澶嶆潅锛屼綘鍙互鎶婃墍鏈夋枃妗ｅ鍒跺悗鍐峞xcel閲岀矘璐达紝鐒跺悗鍐嶉噷闈㈣繘琛岀瓫閫夛紝鎶婁笉瑕佺殑鍒犻櫎锛屽啀鎶婂畠澶嶅埗鍒皐ord锛屽氨鍙互浜
绛旓細3. 鍕鹃変娇鐢ㄩ氶厤绗﹂夐」锛岀劧鍚庣偣鍑诲湪浠ヤ笅椤圭洰鏌ユ壘锛岄夋嫨涓绘枃妗ｃ傛鏃讹紝Word鏂囨。涓墍鏈夌鍚堟煡鎵惧唴瀹硅姹傜殑绛旀琛屾暟鎹兘灏嗚閫変腑銆4. 閫変腑绛旀鍚庯紝鎸変笅Ctrl+X杩涜鍓垏锛岀劧鍚庣矘璐村埌鏂扮殑Word鎴朎xcel琛ㄦ牸涓紝鎵鏈夌殑棰樺彿鍜岀瓟妗堝氨琚垎绂诲嚭鏉ヤ簡銆備互涓婃楠ゅ彲浠ュ府鍔╀綘鍦╓ord鏂囨。涓绛涢夊嚭棰樺彿鍜岀瓟妗堬紝鎿嶄綔璧锋潵姣旇緝鏂逛究...
绛旓細鍦╓ord涓鍙互浣跨敤浠ヤ笅鍑犵鏂规硶鏉ユ鏌ラ噸澶嶇殑棰橈細1. 浣跨敤鏌ユ壘鍔熻兘锛- 鎵撳紑Word鏂囨。銆- 浣跨敤蹇嵎閿瓹trl + F锛堟垨鐐瑰嚮鈥滃紑濮嬧濋夐」鍗′腑鐨勨滄煡鎵锯濇寜閽級鎵撳紑鏌ユ壘瀵硅瘽妗嗐- 鍦ㄦ煡鎵惧璇濇涓緭鍏ヨ鏌ユ壘鐨棰樼洰鍏抽敭瀛楁垨棰樺共锛岀劧鍚庣偣鍑烩滄煡鎵句笅涓涓濇寜閽- Word浼氳嚜鍔ㄥ畾浣嶅埌绗竴涓尮閰嶇殑棰樼洰锛屼娇鐢ㄢ滄煡鎵句笅...
绛旓細濡傚浘鏈変袱绉嶆柟寮 1銆佸伐鍏凤紞鑷畾涔夛紞宸ュ叿鏍忥紞鎺т欢宸ュ叿绠憋紝閫夋嫨鍗曢夈佸閫夋 2銆佺洿鎺ョ壒娈婄鍙锋彃鍏モ姍銆佲棆
绛旓細涓ゆ鏇挎崲鍗冲彲銆傚彟瀛樹竴浠鏂囨。鍐嶈繘琛屾浛鎹㈡搷浣溿倇 }涓哄瓧浣撴牸寮忔搷浣滆鏄庛1.鏌ユ壘锛([0-9]{1,}銆)[!^13]@\(([A-G^32]@)\)銆俕13 鏇挎崲涓猴細\1\2 {瀛椾綋绾㈣壊}{娉ㄦ剰锛歕2鍚庢湁涓や釜绌烘牸} 鍕鹃変娇鐢ㄩ氶厤绗 2.鏌ユ壘锛*^13{瀛椾綋鑷姩鑹瞹 鏇挎崲涓猴細涓嶅～ 鍕鹃変娇鐢ㄩ氶厤绗 ...
绛旓細濡傛灉Word棰搴撲腑娌℃湁棰樺彿锛屽彲浠ラ噰鍙栦互涓嬩袱绉嶆柟娉曟潵瑙ｅ喅杩欎釜闂锛氭柟娉曚竴锛氫娇鐢ㄥ绾у垪琛ㄧ紪鍙 鍦鏂囨。涓厛杈撳叆鎵鏈棰樼洰锛屾瘡涓鐩崟鐙崰涓琛屻傞変腑绗竴涓鐩紝鐒跺悗鐐瑰嚮鑿滃崟鏍忎腑鐨勩愬绾у垪琛ㄣ戯紝鍦ㄤ笅鎷夎彍鍗曚腑閫夋嫨銆愬畾涔夋柊鐨勫绾у垪琛ㄣ戙傚湪寮瑰嚭鐨勫璇濇涓紝閫夋嫨銆愮紪鍙枫戦夐」鍗★紝鐒跺悗鍦ㄥ彸渚х殑銆愮紪鍙锋牸寮忋戜腑杈撳叆...
绛旓細閫夋嫨棰樹簩 1.鍏充簬Word2003涓潈闄愮殑璁惧畾鏈夊摢浜涙槸鍙鐨? A 璁剧疆"鎵撳紑鏉冮檺瀵嗙爜"鏉冮檺 B 璁剧疆"淇敼鏉冮檺瀵嗙爜"鏉冮檺 C 璁剧疆Word2003鐨勮蒋浠朵娇鐢ㄦ潈闄 D 璁剧疆Word2003鐨勮蒋浠剁殑鐢ㄦ埛鏉冮檺 绛旀:AB 2.鍏充簬Word2003鎻愪緵鐨勭數瀛愰偖浠跺姛鑳芥湁鍝簺璇存硶鏄纭殑 A 鍦╓ord2003涓笉鑳藉鐩存帴鍙戦佺數瀛愰偖浠,瀹冨埄鐢ㄥ惎鍔∣utlook鏉ュ彂鐢靛瓙閭欢銆
绛旓細瑕佹兂鑷姩鐢熸垚鐩綍,鎵撴枃浠舵椂搴旇缃棰樼洰鏍煎紡銆璁剧疆棰樼洰鏍煎紡鎵撳紑WORD鏂囨。杈撳叆棰樼洰鏃,鐐硅彍鍗曞瓧浣撴爮宸︿晶鏍峰紡绐楀彛,閫夆滈鐩1鈥,骞堕夊ソ瀛椾綋鍜屽瓧鍙;濡傛灉鎯冲湪鐩綍涓樉绀轰簩绾ч鐩,杈撳叆浜岀骇棰樼洰鏃跺簲閫夋嫨鈥滈鐩2鈥濄杈撳叆姝ｆ枃杈撳叆姝ｆ枃鏃,鍒欏簲鍦ㄦ牱寮忕獥鍙ｉ夋嫨鈥滄鏂団濄璁剧疆棰樼洰绾у埆鏂囦欢宸茬粡鍐欎綔瀹屾垚,涔熷彲姣旂収1鐨勫姙娉曠粰...
