大佬，能否支持WORD？最好也支持PPT

批量设置打印 - 动作信息 - Quicker (getquicker.net)  这个动作就是VBS的， 只能特定的制作，不能通用。  本楼的大佬给的是一种VBA通用的操作方法。 非常创新的一种操作。

可以直接运行VBS，语法和VBA差不多，效率也和这个动作差不多，以前我试过，但不知道为什么，当时运行很慢，有延迟，昨天又试了一下，除了语法经常报错以外，其他基本正常，也凑和能用

$$Dim app,sh,rng
Set app = GetObject(,"word.application")

Set d = app.ActiveDocument
    
dim sp
For i = d.InlineShapes.Count To 0 Step -1
    'msgbox i
    Set sp = d.InlineShapes(i)
    If sp.Range.Paragraphs(1).Range.ShapeRange.Count > 0 then
        
        'msgbox Trim(sp.Range.Paragraphs(1).Range.Text)
        If Len(Trim(sp.Range.Paragraphs(1).Range.Text)) > 3 Then MsgBox "段落中存在多余文字？" & Trim(sp.Range.Paragraphs(1).Range.Text): wscript.quit
        
        If sp.Range.Paragraphs(1).Range.ShapeRange.Count > 0 Then 
            'app.run "test.test"
            app.run "图片·word图片"
            'msgbox 11
            'sp.Range.Paragraphs(1).Range.select: wscript.quit
        end if
        
        wscript.sleep 5000 
    end if
Next


set app=nothing

好好，感谢大佬！