批量提取某个文件夹下的全部word文件名及页面

eh蝴蝶效应

可以通过dir的方法提取某个文件夹下的全部word文件名到txt，至于txt中文件大小、编辑日期等信息对我不重要，我需要提取这些word文档的页数。有什么办法吗？
虚拟了一个文件夹，里面有3篇doc，页面分别是1、2、3  请高手帮忙 虚拟.rar (6.94 KB, 下载次数: 74)

2014-10-25 09:58 上传

点击文件名下载附件

lfspecter

提取文件名： dir /s/b *.* >1.txt

提取页码，请参考下面的贴子，希望有所帮助。

http://club.excelhome.net/thread-608481-1-1.html

eh蝴蝶效应

lfspecter 发表于 2014-10-28 11:24
提取文件名： dir /s/b *.* >1.txt

提取页码，请参考下面的贴子，希望有所帮助。

提问之前看过版主给的链接，没有帮助。但还是谢了。

kqbt

供参考：

1. Sub kk批量提取文档名称和页数()
   
2.   Dim wDia As FileDialog
   
3.   Dim n As Integer
   
4.   Dim wStr As String, wPat As String
   
5.   Dim wDoc As Document
   
6.   Dim fso As Object, tFil As Object
   
7.   Set wDia = Application.FileDialog(msoFileDialogFilePicker)
   
8.   With wDia
   
9.     .AllowMultiSelect = True
   
10.     .Filters.Clear
    
11.     .Filters.Add "Word文档", "*.doc;*.docx"
    
12.     If .Show = 0 Then Exit Sub
    
13.     Set fso = CreateObject("Scripting.FileSystemObject")
    
14.     wPat = fso.GetParentFolderName(.SelectedItems(1))
    
15.     For n = 1 To .SelectedItems.Count
    
16.       Set wDoc = Documents.Open(FileName:=.SelectedItems(n), Visible:=False)
    
17.       wStr = wStr & "Name " & wDoc.Name & vbTab & "Pages " & _
    
18.              wDoc.Range.Information(wdNumberOfPagesInDocument) & vbCrLf
    
19.       wDoc.Close False
    
20.     Next
    
21.     Set tFil = fso.opentextfile(wPat & "\TEMP.txt", 8, True)
    
22.     tFil.write wStr
    
23.     tFil.Close
    
24.   End With
    
25. End Sub

复制代码

daocao2003

其实，建议楼主安装total commander，它里面提供了查看office文档的功能，太强大了，效果如下图，显示的结果可以直接导出

eh蝴蝶效应

kqbt 发表于 2014-10-30 13:55
供参考：

感谢版主的代码。
假设我有两个word文件，位于D盘根目录ceshi文件夹下，如何使用您给的代码得到这两个word的页面，添麻烦了。
ceshi.rar (17.47 KB, 下载次数: 46)

2014-11-3 10:16 上传

点击文件名下载附件

eh蝴蝶效应

daocao2003 发表于 2014-10-30 20:01
其实，建议楼主安装total commander，它里面提供了查看office文档的功能，太强大了，效果如下图，显示的结果 ...

很早以前有用过total commander，查询电脑重复文件，其余功能没有深入。
假设我有两个word文件，位于D盘根目录ceshi文件夹下，如何导出这两个word的页数？添麻烦了。

kqbt

eh蝴蝶效应 发表于 2014-11-3 10:16
感谢版主的代码。
假设我有两个word文件，位于D盘根目录ceshi文件夹下，如何使用您给的代码得到这两个wo ...

任意打开或新建一个文档，按 Alt + F11 后将代码粘贴到“ThisDocument”里面，按 F5 执行代码。
完成会自动在目标文档所在的目录下生成一个TXT文件的。

eh蝴蝶效应

kqbt 发表于 2014-11-3 13:11
任意打开或新建一个文档，按 Alt + F11 后将代码粘贴到“ThisDocument”里面，按 F5 执行代码。
完成会自 ...

http://club.excelhome.net/thread-1161605-1-1.html

loquat

文件名最好用cmd，不过这个命令有点小问题，要么就得保留黑窗，要么就得同步执行数据量大时会出问题
查看文档页码可以不打开文档直接获取，网上有代码