[原创]请教高手：如何不用一个一个文件手动打开查看，就得到某个目录下的多个WORD文

cola

看了你在新闻组的提问,有人做了回答.但在我电脑上运行通不过,于是就上网找了资料,对其中13改成了14,结果通过.就是如下代码,想必这次应该算是合你要求了吧.

Sub Main()
Const WINDOW_HANDLE = 0
Const OPTIONS = &H10&
Dim ObjFolder
Dim ObjShell
Dim ObjPath
On Error Resume Next
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(WINDOW_HANDLE, "请选择一个目录:", OPTIONS)

If ObjFolder Is Nothing Then
    Exit Sub
End If

Set objFolderItem = ObjFolder.Self
ObjPath = objFolderItem.Path
Dim MyText
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.Namespace(ObjPath)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim arrHeaders(14)
    arrHeaders(14) = ObjFolder.GetDetailsOf(ObjFolder.items, 14)
For Each strFileName In ObjFolder.items
filnm = ObjFolder.GetDetailsOf(strFileName, 0)
        If True And Right(filnm, 4) = ".doc" Then
        For i = 0 To 100
            Debug.Print i, ObjFolder.GetDetailsOf(strFileName, i)
        Next i
        pg = ObjFolder.GetDetailsOf(strFileName, 14)
            MyText = MyText & vbNewLine & strFileName & "文档共有" & pg & "页"
        End If
Next
MsgBox MyText
End Sub

qxd100

请教Cola:

我研究后发现该软件应该是使用Windows的一个功能。但该功能有问题。具体如下:

不启动Word也能够进行字数统计的技巧

在Windows 2000/XP中。在资源管理器中选中要统计字数的文档，右键单击鼠标，在快捷菜单中选“属性”，在弹出的属性对话框中点“摘要→高级”按钮，即可查看文档的“页数、段落、字数”等内容(如图2所示)。


图2 “摘要”选项卡

看来不是Directory Opus 8（版本8.2.2.4 Unicode）的问题。类似的软件都是使用Windows的这个功能，所以都有一样的问题。



但我能找到的各个计算机上的Windows都有问题，不能正确显示页数。请教Cola的Windows有这个问题没有？另外我还找到了和Directory Opus 8（版本8.2.2.4 Unicode）功能非常类似的软件，而且可以是中文界面！

qxd100

看来还真有高手啊。本来我已经对此快绝望了。

qxd100

Cola说：看了你在新闻组的提问,有人做了回答.


是指如下吗：（我看不见中文）。劳驾Cola告知。多谢！





“


























Subject: Re: ??????????WORD????????WORD????????





10/28/2006 9:21 PM PST

















By:





广布元德


In:





microsoft.public.cn.word








¼û¸½¼þÖÐhtaÎļþ


¹¦ÄÜ£ºÍ¬Ä¿Â¼ÏÂ*.docÎĵµÒ³Âëͳ¼Æ





--


Á¢µÃ·»


HomePage http://www.needfun.cn/home/


Blog     http://blog.gy169.net/User0/381/default.asp


"qxd100" <qxd100@discussions.microsoft.com> &ETH;&acute;&Egrave;&euml;&Iuml;&ucirc;&Iuml;&cent;


news:42D56702-C9C9-4EB9-B78B-2229051AA8B5@microsoft.com...


> &Egrave;&ccedil;&ordm;&Icirc;&sup2;&raquo;&Oacute;&Atilde;&Ograve;&raquo;&cedil;&ouml;&Ograve;&raquo;&cedil;&ouml;&acute;ò&iquest;&ordf;WORD&Icirc;&Auml;&frac14;&thorn;&frac34;&Iacute;&Auml;&Uuml;&micro;&Atilde;&micro;&frac12;&para;à&cedil;&ouml;WORD&Icirc;&Auml;&frac14;&thorn;&cedil;÷×&Ocirc;&micro;&Auml;&Ograve;&sup3;&Ecirc;&yacute;&ordm;&Iacute;×&Uuml;&Ograve;&sup3;&Ecirc;&yacute;&pound;&iquest;











”

cola

广布元德的回帖,我已经在11楼提到过了,我在家中\单位电脑上均测试没有反应或信息提示.

至于系统为什么要统计出错误的页数,我也说不上来.

另外,11楼代码好用吗?

cola

请教Cola的Windows有这个问题没有？

经验证,我的WINDOWS也有这个问题.



另外我还找到了和Directory Opus 8（版本8.2.2.4 Unicode）功能非常类似的软件，而且可以是中文界面！

是什么软件,推荐一下吧.

qxd100

是 xplorer2。需要的话可以电邮给您。

广布元德的回帖Cola能看见吗？是乱码吗？他说的是什么？代码是从他而来吗？

cola

回帖看到的是乱码,可能他是粤港台地区的,没有使用简体中文吧。

你提到的软件我已经下载使用了，的确不错，好用。

qxd100

本人愚笨。请问Cola的代码从何而来？如何编译运行请告知。多谢！

cola

代码是广布元德的，但其中13好象无数据，改成14就可以用了。代码可以放在VBE中运行，但这里面有个毛病就是WINDOWS摘要统计文档页数有误差。