关于【Word搜索指定位置的所有DOC文档】信息

Dim Adoc As String， PsDoc As Document
On Error Resume Next
ChDrive "C" ‘设置当前驱动器盘符
ChDir "C：Documents and SettingsMy DocumentsTemp" ‘进入指定目录
Adoc = Dir("*.doc")
Application.Screen......