Excel VBA代码截取屏幕并粘贴保存到word中并保存到本地驱动器

Dim wordApp As Object
Dim wordDoc As Object

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True ' 可选，设置Word应用程序可见性
Set wordDoc = wordApp.Documents.Add

Dim screenshot As Object

' 截取屏幕
Set screenshot = wordDoc.Application.Windows(1).Selection
wordApp.ActiveWindow.WindowState = 2 ' 最小化Word窗口，方便截取屏幕
wordApp.ActiveWindow.WindowState = 0 ' 还原Word窗口

' 复制截图到剪贴板
screenshot.Range.Paste

Dim savePath As String

' 设置保存路径
savePath = "C:\path\to\save\document.docx"

' 保存Word文档
wordDoc.SaveAs savePath

Sub CaptureScreenAndSaveToWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim screenshot As Object
    Dim savePath As String
    
    ' 创建Word对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 可选，设置Word应用程序可见性
    Set wordDoc = wordApp.Documents.Add
    
    ' 截取屏幕并复制到剪贴板
    Set screenshot = wordDoc.Application.Windows(1).Selection
    wordApp.ActiveWindow.WindowState = 2 ' 最小化Word窗口，方便截取屏幕
    wordApp.ActiveWindow.WindowState = 0 ' 还原Word窗口
    screenshot.Range.Paste
    
    ' 设置保存路径
    savePath = "C:\path\to\save\document.docx"
    
    ' 保存Word文档
    wordDoc.SaveAs savePath
    
    ' 释放对象
    Set screenshot = Nothing
    wordDoc.Close
    wordApp.Quit
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub