[求助]怎么样可以实现打印文件夹里全部*.doc文件的目录

如意

以下是引用弦断琴悬在2004-11-15 21:37:00的发言： 好像不行啊

哪里不行啊

七叶一枝梅

以下是引用弦断琴悬在2004-11-15 17:25:00的发言：

晕 还是不行啊

第一种办法 只能打印出文件夹，而不能打印出文件名

第二种办法 能打出文件，但是只能打出最后一个文件的名字，也就是说生成的目录文件里面只有一条文件名。

非常抱歉！！

没有注意到后面少打了一个>号！！！！

如果只有“一个>号”，表示每次选中的文件名都替换掉前一个文件名，

应该用两个，像这样“>>”

第二种方法

直接启动命令行，进入该文件夹，输入“for %a in (*.doc) do echo %~fa >A.txt

改正确为：

“for %a in (*.doc) do echo %~fa >>A.txt

请再试试。

弦断琴悬

哦 搞定了 非常感谢

弦断琴悬

以下是引用如意在2004-11-15 21:54:00的发言：

哪里不行啊

我下载之后 是个exel文件 还禁用宏 里面什么也弄不了 不知怎么搞得

办公之星

真是不看不知道，一看吓一跳，最近有EXCEL刚刚学完这个东东，挺好用的。

守柔

个人喜欢用WORD的方式解决：

请看：

Sub Example()

Dim MyDialog As FileDialog, GetStr As String

Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)

With MyDialog

.Filters.Clear

.Filters.Add "所有 WORD 文件", "*.doc", 1

.AllowMultiSelect = True

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

GetStr = GetStr & vbCrLf & vrtSelectedItem

Next vrtSelectedItem

' MsgBox GetStr

Selection.InsertAfter GetStr

End If

End With

End Sub

操作方法，运行此宏后，出现一个文件选取器对话框，全选其中的文件（*.DOC)[CTRL+A],点确定后即可.

弦断琴悬

没整明白 [em06]

如意

以下是引用弦断琴悬在2004-11-16 9:56:00的发言：

我下载之后 是个exel文件 还禁用宏 里面什么也弄不了 不知怎么搞得

那的确是个EXCEL文档，你把宏安全设到低，打开该文档，按文档里的提示操作就能将任意文件夹里的文件名带着链接读到EXCEL里了，很方便实用。

弦断琴悬

好的 我再试试看 谢谢你哦

守柔

没想到楼主连正眼都没有看，也太吝啬了！[em03]

我包装了一下，有兴趣的网友可以试一下：

操作方法：确定宏安全低为低，如果不是，请确定低后退出再重启WORD程序。

打开该文档，在“双击此处开始！”的文字上双击即出现一个文件浏览对话框，到你需要的路径中，单击某个文件后，按下CTRL+A（全选该文件夹下所有WORD文件），确定后在该WROD文档下即自动将所有选中的文件列出，打印即可（还可以排一下版），我觉得特爽啊！

[em05]