Clean RTF files to any encoding text file type

solaris_navi

于 2008-11-19 13:18:00 发布

阅读量657

点赞数

CC 4.0 BY-SA版权

分类专栏： Other VB 文章标签： encoding rtf file

本文链接：https://blog.youkuaiyun.com/solaris_navi/article/details/3334224

Other 同时被 2 个专栏收录

106 篇文章

订阅专栏

20 篇文章

订阅专栏

本文介绍了一个使用VBS脚本批量转换Microsoft Word文档的方法，并允许用户指定目标文件类型及编码方式。脚本通过拖放文件的方式启动，实现了文档的批量转换与编码设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'click
If Wscript.Arguments.Count=0 Then  
Msgbox "Drag and drop files on."
Wscript.Quit  
End If  
'start
set wshell = CreateObject("Wscript.Shell")
For i=0 to Wscript.Arguments.Count-1  
    singlePath=singlePath+Wscript.Arguments(i)+"|"  
next
'msgbox singlePath
singlePaths = split(singlePath,"|")
encodenum = inputbox("Please enter Encoding Code:")
if not isnumeric(encodenum) then
    msgbox "error!"
    Wscript.Quit 
end if
filetype = inputbox("Please enter target file type:")
if trim(filetype)="" then
    msgbox "error!"
    Wscript.Quit 
end if
Set myDocs = CreateObject("Word.Application")
    Set myDoc = myDocs.Documents 
for each singlePath in singlePaths
    if singlePath = "" then
        exit for
    end if
    'start winword
    
    myDocs.Visible = true
    set myDoc1 = myDoc.Open(singlePath)
    
    myDocs.Application.Run "tw4winClean"
    fname = left(myDocs.ActiveDocument.FullName,len(myDocs.ActiveDocument.FullName)-3)& filetype
    'msgbox fname
    myDocs.Application.ActiveDocument.SaveAs fname,2,False,"", True,"",False,False, _
         False, False, False,encodenum,False,False,wdCRLF
    myDocs.ActiveDocument.close
next