vb代码为什么不能运行呢？求解！
因为你现在是js宏的状态，要切换成vb宏。
切换到vb宏的状态下，就可以使用vb的代码了
Sub Macro1()
ActiveDocument.Range.ListFormat.ConvertNumbersToText
End Sub
扩展：
对于部分VBA和WPS宏编辑器共存的WPS版本，默认的开发环境是VBA，可以通过点击“开发工具”选项卡的“切换到JS环境”来切换当前的开发环境，也可以通过“选项”——“视图”——勾选的“功能区选项”的“默认JS开发环境”，来设置默认的开发环境。
如果当前版本没有vba，那么需要安装vba环境。
绛旓細閭ｄ箞y鐨勫间篃浼氳窡闅忓彉鍖栥傛墍浠ワ紝鏈鍚庢垜浠緱鍒 a = 5 - 8 = -3 b = a * b = -3 * 8 = -24 鍥犱负x鏄紶鍊间紶閫掞紝鎵浠鐨勫涓鍙椾换浣曞奖鍝嶏紝鑰寉鐨勫艰窡闅廱鍙樺寲锛屾墍浠 Label1.caption = 5, label2.caption = -24 涓嶈繃浠庝綘鐨浠ｇ爜鏉ョ湅锛岃矊浼间粎浠呭彧鏄ā鍧楃骇鍙橀噺y涓庡眬閮ㄥ彉閲弜涔嬮棿鐨勫樊鍒紒
绛旓細Integer鏈澶у埌32767锛100000鏄庢樉瓒呰繃浜嗭紝鎵浠ュ氨浼氬嚭閿 瑕佷箞浣犱笉澹版槑锛岃涔堝氨澹版槑鎴怢ong绫诲瀷锛圖im i As Long, s As Long锛変互涓嬫槸甯哥敤鐨勫嚑绉嶆暟鎹被鍨嬬殑鑼冨洿 Byte:0~255 Boolean:True 鍜 False Integer:-32768~32767 Long:-2147463648~2147463647 Single:璐熸暟-3.402823E38~-1.401298E45 锛涙鏁1.401298E...
绛旓細浣犺繖娈浠ｇ爜鏄湪鏂囨湰妗嗗唴瀹规敼鍙樻椂瑙﹀彂鐨勶紝浣犳兂瀹炵幇鐨勫簲璇ユ槸鐐瑰嚮涓涓崟閫夋涓嬮潰鏂囨湰鐙傚唴瀹规敼鍙樺惂锛岄偅鍙渶瑕佹妸杩欐浠ｇ爜鏀惧埌option1_click() 閲岄潰灏辫浜 鑰屼笖text1.text鍚庨潰鐨勫瓧绗﹁鐢ㄥ弻寮曞彿寮曡捣鏉 Private Sub option1_click()If Option1.Value = ture ThenText1.Text = "鎴戝潗椋炴満鍘"ElseIf Option2...
绛旓細For i = 2 To n - 1 If n Mod i = 0 Then GoTo aa Next i Print n;k = k + 1 If k Mod 6 = 0 Then Print aa:Next n End Sub 浣犲師鏉ユ墽琛屽畬 If n Mod i = 0 Then Exit For Next i 鍚庯紝i绛変簬n浜嗭紝n mod i 绛変簬0锛屽啀鎵цIf n Mod i <> 0 鏉′欢涓嶇鍚堬紝鎵浠ユ病杈撳嚭...
绛旓細浣犱笂杈圭殑浠ｇ爜閿欏湪 鈥 Label1.Label = "娆㈣繋鏂扮敓鍏ュ" 鈥濅腑鐨勬爣绛剧殑灞炴у紩鐢ㄥ簲璇ョ敤Caption锛岃繕鏈 鈥淐ommand1 .Visible = False鈥濊繖鍙ヤ腑Comand1鍚庡浜嗕竴涓┖鏍笺傛垜涓嶆槸寰堟槑鐧戒綘瑕佺殑杩愯缁撴灉鏄粈涔堬紝鎴戣瘯鐫缁欎綘澧炴敼浜嗕互涓嬬殑浠ｇ爜锛屽笇鏈涘浣犳湁甯姪銆侾rivate Sub Command1_Click()Print "鏂板悓瀛︾殑...
绛旓細涓嶆槸寰堟竻妤氾紝璇疯鍏蜂綋鐐
绛旓細濡傛灉杩愯鐨勮蒋浠剁幆澧冩槸涓鏍风殑璇濓紝杩樿娉ㄦ剰绋嬪簭涓墍浣跨敤鐨勫叾瀹冩敮鎸佹ф枃浠讹紝姣斿杈撳叆鏂囦欢绛夌瓑鏄惁鍏峰銆傚綋鐒讹紝鏈閲嶈鐨勶紝瑕佹鏌ョ▼搴忕殑浠ｇ爜鏈夋病鏈夎緭鍏ラ敊璇
绛旓細棣栧厛锛屼粠浠ｇ爜鏉ョ湅娌℃湁闂锛屼綘鑳藉叿浣撹璇存槸浠涔堥敊鍚楋紵鍏舵锛屼唬鐮佽繕鍙互浼樺寲锛岃繖閲岀敤涓嶇潃鏁扮粍鏉ュ仛涓棿鍙橀噺锛岀敤涓涓彉閲忓嵆鍙紝鎴栬呯洿鎺ヨ鏂囨湰妗嗕箣闂寸洿鎺ヨ祴鍊笺備笅闈㈡槸鐢ㄥ彉閲忕殑浠ｇ爜锛歅rivate Sub Command1_Click()For i = 0 To 9 s = Text1(i).Text Text2(9 - i).Text = sNext iEnd Sub...
绛旓細鍥犱负浣犳寜閽殑浜嬩欢杩囩▼鍐咃紝鎸夐挳瀵硅薄鐨勫悕绉板啓閿欎簡锛屼綘鍙互鍦ㄨ璁￠樁娈 鍙屽嚮鎸夐挳 杩涘叆鎸夐挳浜嬩欢杩囩▼鍐 鍐嶇紪鍐欑浉瀵瑰簲鐨浠ｇ爜
绛旓細1 vb鐗堟湰鏄笉鏄浉鍚 2 鏈夋椂缃戜笂绮樿创鐨勭▼搴,鏍囩偣绗﹀彿澶规潅鍏ㄨ绗﹀彿,浣垮緱缂栬瘧鎵ц鍑洪敊 3 鏈変簺浠ｇ爜鍙槸鍙傝冩х殑,涓嶄竴瀹氫笂鏈杩愯閫氳繃鐨
