新闻资讯

  • 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.self.Path & "\" Set objfolder = Nothing Set objshell = Nothing '创建字典用于存储路径和文件名 Dim DicPath, DicFile, i As Integer, Ke, ContentName As 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) & ContentName & "\"), "" End If End If ContentName = Dir Loop i = i + 1 Loop '存所有doc文件名 For Each Ke In DicPath.keys FileName = Dir(Ke & "*.doc") Do While FileName <> "" DicFile.Add (Ke & FileName), "" FileName = Dir Loop Next Ke '打开文件 Application.DisplayAlerts = wdAlertsNone Dim myDoc For Each Ke In DicFile.keys Set myDoc = Documents.Open(Ke) '原路径另存为TXT ActiveDocument.SaveAs2 FileName:=myDoc.Path & "\" & Left(myDoc.Name, InStrRev(myDoc.Name, ".") - 1) & ".txt", FileFormat:=wdFormatText '处理完成后关闭并删除原word文档 ActiveDocument.Close Kill Ke Next Ke MsgBox "Done!"End Sub

  • http://www.shareditor.com/blogshow?blogId=64

  • 今天的你,比昨天进步了,就是成长。

  • 少一点自以为是,就会少很多烦恼,少一点胡思乱想,就不会庸人自扰。

  • 虽然是那么简单的几个音节,可要清晰地说出它们,就像愚公移山般艰难。

  • 正如罗斯金所说:世界之大,远超过我们的眼界可以容纳的范围,不管人们走得多慢;走得快,他们也不会看到更多。真正珍贵的东西是所思和所见,不是速度。一个人,如果他的确是个人,走慢点也并无害处;因为他的辉煌根本不在于行走,而在于亲身体验。

  • 其实哪有那么难呢,他既是你一生中只能遇见一次的惊喜,巨大到宇宙,细小到发梢,那还何必等待在原地。

  • 注意点二:不要使用刚煮好的热腾腾的米饭来炒,因为使用刚煮的米饭,由于刚煮出来的米饭是热乎乎的,热米饭的口感是软软黏黏的,如果炒起来容易团在一起,不容易炒出颗颗分明的米粒,从而也影响到了最终的口感。这就是很多人做出的蛋炒饭口感不佳的原因。而且炒饭的时候要用大火来炒,首先要倒入足够量的油,这样才能令放入的米饭迅速吸收油脂,很快变的松软,而且能炒出香气。

  • 导致母猪暂时性或永久不孕的原因很多,常见的主要有:

  • 作者:沐欣欣 糖尿病蔬菜药品鱼酸奶

  • 不要为了打翻了一杯牛奶而哭泣,你还有剩下的牛奶需要你守护。

  • 二十四-将深度学习应用到NLP

  • 16条记录

Copyright © www.luxingroup.com 版权所有    苏ICP12345678