您当前的位置:  主页 > 新闻中心 >
  • 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=79
  • 本病是母猪产后突然发生的一种严重的急性、神经障碍性疾病,其特征是知觉丧失及四肢瘫痪。病因目前尚不太清楚。一般认为是由于血糖、血钙骤然减少,产后血压降低等原因,致使大脑皮层发生机能性障碍。也可能是饲料的钙磷比例失调造成的。
电话
www.casmetc.com