我想给自己的女朋友写一个程序，可是不知道该怎么写？

[hiryu]

我的女朋友是学文的，她经常写很多论文，可是在字数统计时候总得把一个一个的word文件打开，然后用计算器加起来，所以希望我帮她做一个：指定一个目录，就能将该目录及其子目录下的所有word文件的字数统计的工具。

可是我不知道怎么获得word文件的字数？请问谁知道？

[zhucde]

这个很难

[crushor]

就是，WORD本身就会统计字数的，所要做的就是个加法。当然依次打开文档会很烦琐。不如以后再命名文件把日期字数等都加到文件名里去。好的习惯可以省劲一些，当然不能另人完全满意。然后获取文件名进行统计应该会容易实现一些。

又，你可以帮她加啊，肯定讨她开心的。

[wangweintk]

可以通过FindFile找到这个目录下的所有word文件，然后获得文件的长度，在网上(www.google.com)找一下word文件的格式，查到其中文本所占的比例，相乘，可得该文件的字数，依次，将所有文件的字数相加，就可以了。
界面你应该没问题。

[hiryu]

老大，不行的，，她的论文太长，几十万几十万的，而且必须得精确的知道，因为她也帮别人写书赚稿费养活我这个大废物，
如果不能精确的知道字数是不行的。
各位想想吧再

[howtotell]

把一个文件夹中的文章都拷贝到一个文件中。

[hiryu]

拜托，我在她跟前都吹牛了，说能写出来只用指定目录就能自动报字数的......

现在......
55555555
就要被自己的宠物看不起了

[bluebohe]

把她的文字粘贴到记事本中保存，就容易用程序处理

[ccscsdn]

用宏或者VBscript吧，要自己编不太可能

[hiryu]

能具体点怎么用宏或者VBscript吗？
兄弟现在就是想怎么把脸找回来呢

[tonybaobao]

眼看你脸快没了，我帮你up一下！

[petpetg]

爱她就行了嘛~~ 让她看这篇帖子她就知道你对她好了~

[petpetg]

爱她就行了嘛~~ 让她看这篇帖子她就知道你对她好了~

[acf]

你查查vbscript的资料吧，应该不是很难的（我猜，呵呵）。
另外，你mm也太猛了，几十万的文章还能写许多篇，崇拜ing

[fooxu]

崇拜ing!

[skink]

佩服

[an_bachelor]

关键是要知道WORD的文件格式，不过估计会比较复杂。知道格式之后如果文件中有字符数是最好了，
没有的话统计起来也不会太慢的，计数几十万字用不了很长时间啊。

[scie]

哈哈，我帮你写吧,不过是你帮你女朋友写，还是你自己写吧，不过我也想写写看。
思路：用VB写，Word不是有有对象库吗？用VB引用Word的对象库，打开文档（后台操作，不 显示Word界面），调用Word本身的字数统计。至于文件名，随意，自己用程序查找一下就行了。我倒是有点兴趣，做这个。
统计指定目录下的word文档字数可以，但目录下有没有子目录啊？有子目录枚举文件会麻烦一点。

有问题跟我联系，[e-mail] QQ:826466

[scie]

用VB实在太简单了。
先引用word对象库。
Dim myWord as Word.Application
Dim myDocument as Document
Set MyDocument=MyWord.Open("Test.Doc")
Msgbox "字数为：" & MyDocument.ComputeStatics(参数)
'参数我忘了，含义就是点击”字数统计“出来的那几项统计内容。
MyDocument.Close
MyWord.Quit

[Gelim]

up!

[cymlife]

如果实在要深入Word的格式的话，OpenOffice是可以解决的，能够分析几个版本的Word文件格式，还有source code，这样统计字数什么的就很easy啦。