yu2n

VBS调用第三方程序实现截屏/屏幕截图
http://www.bathome.net/thread-37404-1-4.html#pid175157

已经有人解过了。第一个例子，注释掉第 43 / 44 行即可。

yu2n

VBA 将剪贴板中的图片保存为 jpg 或 png 文件 (VBS同理可得)

    ActiveWindow.View.Type = wdWebView
    Selection.Paste
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Paste
    With ActiveDocument.WebOptions
        .RelyOnCSS = False
        .OptimizeForBrowser = False
        .OrganizeInFolder = False
        .UseLongFileNames = True
        .RelyOnVML = False
        .AllowPNG = True
        .ScreenSize = msoScreenSize1920x1200
        .PixelsPerInch = 96
        .Encoding = 65001
    End With
    With Application.DefaultWebOptions
        .UpdateLinksOnSave = False
        .CheckIfOfficeIsHTMLEditor = False
        .CheckIfWordIsDefaultHTMLEditor = False
        .AlwaysSaveInDefaultEncoding = False
        .SaveNewWebPagesAsWebArchives = False
    End With
复制代码