VBA常用代码[参考].pdfVIP

1. 遍历所有已打开的 word 文档 For Each docOpened In Documents …… Next docOpened 2. Word 将目录下所有文档转换为 txt ，并删除原文档 Sub 目录下 doc 转 txt() 目录下所有 word 文档转为 txt ，并删除 word 文档 保存在原目录 遍历所有文件夹，把带路径的文件名存入字典 On Error Resume Next Dim Path As String, t Path 为路径 ,t 用于计算程序执行花费 的时间 Set objshell = CreateObject(Shell.Application) Set objfolder = objshell.BrowseForFolder(0, 选择文件夹 , 0, 0) If Not objfolder Is Nothing Then Path = objfolder.sel f.Path \ Set objfolder = Nothing Set objshell = Nothing 创建字典用于存储路径和文件名 Dim DicPath, DicFile, i As Integer, Ke, ContentName A s String, FileName As String, MsgTxt Set DicPath = CreateObject(Scripting.Dictionary) Set DicFile = CreateObject(Scripting.Dictionary) DicPath.Add Path, i = 0 存所有路径 Do While i DicPath.count Ke = DicPath.keys ContentName = Dir(Ke(i), vbDirectory) Do While ContentName 若有子文件夹，则添加 跳过当前的目录及上层目录 If ContentName . And ContentName .. Then If GetAttr(Ke(i) ContentName) = vbDirectory Then DicPath.Add (Ke(i) Conte ntName \), End If End If ContentName = Dir Loop i = i + 1 Loop 存所有 doc 文件名 For Each Ke In DicPath.keys FileName = Dir(Ke