VBS编文章按字数分章工具的运行问题

For i= 0 to WScript.Arguments.Count - 1
x=Wscript.Arguments(i)
Next
dim z,r,k,c,d,t,ff
k=0
z=1
d=k&".txt"
set fs =createobject("scripting.filesystemobject")
if x = "" then
msgbox "请将文件拖动到本图标上，谢谢合作！（格式只支持TXT）",,""
else
ff=inputbox("请输入你要保存的文件地址，如c:\windows\","")
set f=fs.opentextfile(x,1)
wenben=f.readall
f.close
c=int(len(wenben))
do
if (fs.fileexists(d)) then
exit do
else
k=k+1
d=k&".txt"
t=k
exit do
end if
loop
do
r=mid(wenben,z,z+5000)
d=k&".txt"
set f=fs.opentextfile("c:\"&d,2,true)
f.write r
f.close
z=z+5000
k=k+1
if z > c or z=c then
fs.moveFile "c:\*.txt" , ff
msgbox "success!the documents is saved ,the name of the documents is from "&K&" to "&t,,"&

在起点发文章，字数是按什么算的？ 文章字数 怎么用word察看文章的字数 有关“珍惜”的文章，字数不少于600 关于党的文章？字数越多越好． 纪念烈士的文章,字数500多 帮我写一篇文章,字数不限,加120分 如何把VBS脚本编译成可执行的EXE文件? 描写"北京"春景的文章,字数"200-无穷",要求自创,满意追分 vbs简单的问题!80分