本帖最后由 apang 于 2012-12-14 20:45 编辑
- Set FSO = CreateObject("Scripting.FileSystemObject")
- i = 0
- For Each File in FSO.GetFolder(".").Files
- If File.Name <> WScript.ScriptName Then
- ReDim Preserve A(i)
- A(i) = File.Name
- i = i + 1
- End If
- Next
-
- Set oWord = CreateObject("Word.Application")
- Set oDoc = oWord.Documents.Add()
- oWord.Visible = False
- oWord.Selection.TypeText Join(A,"/")
- oDoc.Range.TCSCConverter 1,True,True
- Str = Replace(oDoc.Range.Text,vbCr,"")
- oDoc.Saved = True
- oDoc.Close
- oWord.Quit
-
- B = Split(Str,"/")
- For j = 0 To UBound(A)
- If A(j) <> B(j) Then
- FSO.GetFile(A(j)).Name = B(j)
- End If
- Next
-
- MsgBox "OK"
复制代码 保存为vbs文件,与需要转换的文件放在一起。需要系统安装有MS Office软件及转换插件
改一下,貌似。。。转换的比原来快些了 |