word宏导出图片代码

Word宏是一种自动化任务的VBA（Visual Basic for Applications）脚本，在Microsoft Word中，你可以编写宏来完成特定的操作，包括导出图片。下面是一个简单的例子，展示了如何通过宏将选定的图片导出到指定位置：

Sub ExportImage()
    ' 定义图片文件名和保存路径
    Dim picPath As String
    picPath = "C:\Users\YourUsername\Pictures\" ' 请替换为实际保存路径
    Dim fileName As String
    fileName = ActiveDocument.Selection.Picture.Range.BoundingRectangles(1).TopLeftCell.Characters(1, 50) ' 获取选中的图片名称

    ' 导出图片为JPG格式
    Dim saveFormat As XlFileFormat
    saveFormat = xlPicture
    ActiveDocument.Selection.Picture.ExportAsFile picPath & fileName & ".jpg", SaveFormat
    
    MsgBox "图片已成功导出!", vbInformation
End Sub

要运行这个宏，你需要：

1. 打开包含图片的Word文档。
2. 按Ctrl + F8打开宏窗口，选择`ExportImage`宏，然后点击“运行”按钮。
3. 该宏会选择文档中的图片并将其导出为.jpg格式。