[问题求助] 【已解决】VBS如何根据剪贴板内容生成本机文件（含文字和图片）？

tonyabbs

我有如下代码，用于将剪贴板的文字转为TXT文件。请问如何扩展一下，使得带有图文的剪贴板内容能够自动生成。比如是个ＤＯＣ文件？或者是PDF、HTML这种能够包含图片的？

Dim fso,wsh,ie,txt,filename
Set fso=CreateObject("Scripting.Filesystemobject")
Set wsh=CreateObject("Wscript.Shell")
Set ie=CreateObject("Internetexplorer.Application")
ie.visible=False
ie.navigate "about:blank"
'获取剪贴板内容
str=ie.document.parentwindow.clipboarddata.getdata("text")
filename=left(str,24)
'创建文本并写入内容
Set txt=fso.CreateTextFile(wsh.CurrentDirectory & "\0M" & filename & ".txt",false)
txt.WriteLine(str)
txt.Close
Wscript.Sleep 300

Set fso=Nothing:Set wsh=Nothing:Set ie=Nothing:Set txt=nothing
复制代码

tonyabbs

谢谢！
我想同时让生成的文件名是剪贴板中文字的前24个字符，怎么办？
也就是

objDoc.Content.Paste
objDoc.SaveAs WScript.ScriptFullName & ".rtf", wdFormatRTF
复制代码

如何将objDoc.Content.Paste第一行的TEXT作为objDoc.SaveAs的文件名字？

tonyabbs

太感谢了！