完美竖式除法
摘要:Sub自定义菜单()Dimmyb,mybar,s,sh,xAsByteApplication.CommandBars("menubar").Resetsh=Split("点此随机出题,点此瞬间给出答案",",")s=Split("题,揭晓答案",",")Setmyb=Application.CommandBars("menubar")Forx=1ToUBound(s)+1Setmybar=myb.Controls.AddWithmybar.Caption=s(x-1).OnAction=s(x-1).FaceId=480+x.Style=msoButtonIconAndCaption.TooltipText=sh(x-1)EndWithNextxEndSubSub揭晓答案()DimxAsByte,yAsByteWithSelectionForx=1To2Fory=1To3.MoveRightunit:=wdCharacter,Count:=1,Extend:=wdExtendCall答案.MoveRightunit:=wdCharacter,Count:=5Nexty.MoveDownunit:=wdLine,Count:=2.HomeKeyunit:=wdLineNextxEndWithEndSubSub题()DimaAsByte,bAsByte,xAsByte,yAsByteRandomize(Timer)ActiveWindow.View.Type=wdWebViewWithSelection.WholeStory.DeleteForx=1To2
温馨提示:当前文档最多只能预览
5 页,若文档总页数超出了
5 页,请下载原文档以浏览全部内容。
本文档由 匿名用户 于 2022-07-10 23:30:33上传分享