zzwwdd 发表于 2013-2-8 15:58:15

[已解决]有没有批量处理 把word 2007 或者 2010 转成 word 2003的脚本啊?

本帖最后由 zzwwdd 于 2013-2-24 16:48 编辑

有没有批量处理 把word 2007 或者 2010转成 word 2003的脚本啊?
一个个转很麻烦的!!! docx   转成 doc 文件格式!!!

kevinch 发表于 2013-2-8 17:07:01

这个试下$folder=FileSelectFolder("请选择文本所在目录","")
If @error Then Exit 0
If StringRight($folder,1)<>"\" Then $folder&="\"
$file=FileFindFirstFile($folder&"\*.doc?")
$wordapp=ObjCreate("word.application")
$wordapp.visible=False
While 1
        $currentfile=FileFindNextFile($file)
        If @error Then ExitLoop
        $currentfile=$folder&$currentfile
        If StringRegExp(StringLower($currentfile),"\.doc.$",0)=1 Then
                $wd=$wordapp.documents.open($currentfile)
                $wd.saveas2(StringLeft($currentfile,StringLen($currentfile)-1),0)
                $wd.close
        EndIf
WEnd
FileClose($file)
$wordapp.quit
$wordapp=Null
MsgBox(0,"提示","所选目录转换完成！",5)

b161033 发表于 2013-2-9 10:27:41

试试楼上的,应该可以

zzwwdd 发表于 2013-2-11 14:03:17

多谢,我先试下!!!

我是李大军 发表于 2013-2-12 09:24:50

http://www.chaojinengyuanqiangguo.com/bq/16.gif

zzwwdd 发表于 2013-2-14 16:08:38

试过了!!不行啊!!

lainline 发表于 2013-2-14 19:59:06

你是不2003的office没装2007的补丁包

h20040606 发表于 2013-2-15 20:21:43

把saveas2改为saveas

zzwwdd 发表于 2013-2-24 16:46:51

可以了,谢谢2楼的 和8楼的兄弟!!!!
页: [1]
查看完整版本: [已解决]有没有批量处理 把word 2007 或者 2010 转成 word 2003的脚本啊?