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

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

本帖最后由 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

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楼的兄弟!!!!

		自动登录	找回密码
密码			加入

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

相关帖子

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

相关帖子

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