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

zzwwdd

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

kevinch

这个试下

1. $folder=FileSelectFolder("请选择文本所在目录","")
   
2. If @error Then Exit 0
   
3. If StringRight($folder,1)<>"" Then $folder&=""
   
4. $file=FileFindFirstFile($folder&"\*.doc?")
   
5. $wordapp=ObjCreate("word.application")
   
6. $wordapp.visible=False
   
7. While 1
   
8.         $currentfile=FileFindNextFile($file)
   
9.         If @error Then ExitLoop
   
10.         $currentfile=$folder&$currentfile
    
11.         If StringRegExp(StringLower($currentfile),"\.doc.$",0)=1 Then
    
12.                 $wd=$wordapp.documents.open($currentfile)
    
13.                 $wd.saveas2(StringLeft($currentfile,StringLen($currentfile)-1),0)
    
14.                 $wd.close
    
15.         EndIf
    
16. WEnd
    
17. FileClose($file)
    
18. $wordapp.quit
    
19. $wordapp=Null
    
20. MsgBox(0,"提示","所选目录转换完成！",5)

复制代码

b161033

试试楼上的,应该可以

zzwwdd

多谢,我先试下!!!

我是李大军

zzwwdd

试过了!!不行啊!!

lainline

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

h20040606

把saveas2改为saveas

zzwwdd

可以了,谢谢2楼的 和8楼的兄弟!!!!