怎么用VB实现把WORD的每一页保存为图片

Question

如题！不知道怎么使用OLE把里面的每一页导出为图片

Answer 1

Private Sub Command1_Click()
    Dim mExe As Excel.Application
    Dim mWd As Word.Application
    Set mExe = GetObject(, "excel.application")
    Set mWd = GetObject(, "word.application")
    Dim Cht As Chart
    Set Cht = mExe.ActiveSheet.ChartObjects(1).Chart
    Cht.ChartArea.Copy
    mWd.ActiveDocument.Activate
    mWd.PasteAndFormat (wdChartPicture)
    Set Cht = Nothing
    Set mWd = Nothing
    Set mExe = Nothing
End Sub

Answer 2

Office 2003 开始安装中就带有 Microsoft Office Document Image Writer（忘了是不是默认选项了）虚拟打印机。
把它设为默认打印机输出就可以了。

Answer 3

没错，我查了一下，确实有这个打印设备：Microsoft Office Document Image Writer