Sub WordTest() Dim objwordApp As Word.Application Dim objword As Word.Document Dim objSeheet As String On Error GoTo errHandle Sheet5.Select strTitle = "NAMEFILE" Range(Cells(1, 1), Cells(226, 11)).Select Selection.Copy Set objwordApp = New Word…

参考:https://wenku.baidu.com/view/6c60420ecc175527072208af.html 比如将选区变为图片保存到桌面: Sub 将选区转为图片存到桌面() Dim ans As Byte, Pic As String, Paths As String On Error Resume Next Paths = CreateObject("WScript.Shell").SpecialFolders("Desktop") &…