如何把WORD批量转换为TXT格式.doc

如何把WO?RD文档批?量转换为T?XT格式 按Alt+F8，打开宏对话?框，然后随便新?建一个宏，单击创建，打开宏代码?编辑器，然后将编辑?器中的所有?内容清空，将如下代码?直接粘贴后?，然后将光标?置于Sub? BatDo?cToTx?t()之后，按F5运行?即可。====代码开始====Publi?c Decla?re Funct?ion SHBro?wseFo?rFold?er Lib shell?32.dll Alias? SHBro?wseFo?rFold?erA (lpBro?wseIn?fo As Folde?rInfo?r) As LongPubli?c Decla?re Funct?ion SHGet?PathF?romID?List Lib shell?32.dll Alias? SHGet?PathF?romID?ListA? (ByVal? pidl As Long, ByVal? pszPa?th As Strin?g) As LongPubli?c Type Folde?rInfo?r hOwne?r As Long pidlR?oot As Long pszDi?splay?Name As Strin?g lpszT?itle As Strin?g ulFla?gs As Long lpfn As Long lPara?m As Long iImag?e As LongEnd Type Publi?c Funct?ion BrowD?ir() As Strin?g Dim iFold?er As Folde?rInfo?r Dim pidl As Long, Flag As Long, iPath? As Strin?g, Pos As Integ?er pidl = SHBro?wseFo?rFold?er(iFold?er) iPath? = Space?$(512) Flag = SHGet?PathF?romID?List(ByVal? pidl, ByVal? iPath?) If Flag Then Pos = InStr?(iPath?, Chr$(0)) BrowD?ir = Left(iPath?, Pos - 1) End IfEnd Funct?ion Sub BatDo?cToTx?t() Dim InPat?h As Strin?g, Filen?ame As Strin?g, OutPa?th As Strin?g rc = MsgBo?x(本功能为将?指定文件夹?中的所有d?oc文档转?换为txt?文件。 + vbCrL?f + 已准备就绪?可继续？, vbInf?ormat?ion + vbYes?No + vbDef?aultB?utton?2, 消息) If rc = vbNo Then Exit Sub MsgBo?x 请指定待处?理的文档所?在的目录。, vbInf?ormat?ion, 消息 InPat?h = BrowD?ir If InPat?h = Then Exit Sub MsgBo?x 请指定待转?换后的tx?t文件的输?出目录。 + vbCrL?f + 默认为待处?理的目录。, vbInf?ormat?ion, 消息 OutPa?th = BrowD?ir If OutPa?th = Then OutPa?th = InPat?h MsgBo?x 即将进行转?换，并未死机，请耐心等候?完成通知！, vbInf?ormat?ion, 消息 Appli?catio?n.Visib?le = False? Appli?catio?n.Displ?ayAle?rts = wdAle?rtsNo?ne Filen?ame = Dir(InPat?h \*.doc) Do Until? Filen?ame =  On Error? Resum?e Next Docum?ents.Open InPat?h \ Filen?ame If Err.Numbe?r = 0 Then Activ?eDocu?ment.SaveA?s OutPa?th \ Left(Filen?ame, Len(Filen?ame) - 3) txt, 2 On Error? Resum?e Next Activ?eDocu?ment.Close? Filen?ame = Dir() Lo