' 指定导出分辨率，其他质量油画按F1查看文档
Dim opt As New StructExportOptions
opt.ResolutionX = 72
opt.ResolutionY = 72

' 实用小脚本:  选择遍历多个物件对象，按序号导出 JPEG
ActiveDocument.Unit = cdrCentimeter
Dim d As Document
Set d = ActiveDocument
cnt = 1
Dim sh As Shape, shs As Shapes
Set shs = ActiveSelection.Shapes

For Each sh In shs
    ActiveDocument.ClearSelection
    sh.CreateSelection
    MsgBox "选择物件尺寸: " & sh.SizeWidth & "x" & sh.SizeHeight
    
    Size = Str(Int(sh.SizeWidth + 0.5)) + "x" + Str(Int(sh.SizeHeight + 0.5))
    f = "R:\www\" + Str(cnt) + "_尺寸" + Size + ".jpg"
    
    ' 可以把获得的尺寸取整数，写到文件名中，或者把尺寸信息写到图片中
    d.Export f, cdrJPEG, cdrSelection, opt
    cnt = cnt + 1
Next sh