VBS如何自动压缩doc、PPT文件中的图片？

mxxcgzxxx · 发表于 2012-12-3 09:26:16

如上图所示,如何才能让VB做到相同的功能?
最好能自动查找指定目录下的所有doc和ppt文件并对其进行操作。
因为学校共享资源里的文件太多了，手动太慢，望高手解救。

czjt1234 · 发表于 2012-12-3 17:45:11

查找文件，用WSH.SendKeys模拟键盘操作

zz100001 · 发表于 2012-12-3 18:17:36

找了一下网上的帖子，发现sendkeys不给力，只能弹出来自己一个个点了，还是节省了点工作，你可以看看相关的东西

'http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/4fbbd7e1-7ff1-4c97-a53b-eeef490b5e5c
docsfolder = "C:\Users\Administrator\Desktop\docs"
Set fso = CreateObject("Scripting.FileSystemObject")
Set word = CreateObject("Word.Application")
word.Visible = True
FindDocs docsfolder
word.Quit
Sub OpenOneDoc(sExactPath)
With word
.Documents.Open sExactPath, False, False
.Application.CommandBars.FindControl(1, 6382).Execute
' wdDoNotSaveChanges = 0, wdPromptToSaveChanges = -2, wdSaveChanges = -1
.ActiveDocument.Close -1
End With
End Sub
Sub FindDocs(folderspec)
Dim f, f1, fc, s
If Not fso.FolderExists(folderspec) Then
MsgBox "文件夹不存在"
WScript.Quit
else
Set f = fso.GetFolder(folderspec)
Set fc = f.files
For Each f1 in fc
If LCase(Right(f1.Path, 4)) = ".doc" Or LCase(Right(f1.Path, 5)) = ".docx" Then
OpenOneDoc f1.Path
End If
Next
Set ff=f.SubFolders
For Each f2 in ff
FindDocs f2.Path
Next
End If
End Sub

复制代码

mxxcgzxxx · 发表于 2012-12-4 15:14:29

先谢,再等看看有没有更好用的!顶起来

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] VBS如何自动压缩doc、PPT文件中的图片？