VBA Word：如何将图像/图片保存到文件夹？

我有在word文件中保存图像的代码。我使用VBA单词，但它给出了一个错误。请帮帮我

Sub SaveImage()

    
    Set clipboard = New DataObject
    Set Doc = ActiveDocument
    i = 1
    For Each Shp In Doc.InlineShapes
      If Shp.Type = msoLinkedPicture Or Shp.Type = msoPicture Or Shp.Type = wdInlineShapePicture Then
                Shp.Select
                Shp.Range.CopyAsPicture
                clipboard.GetFormat (2) 'jpg,bmp
                    strFile = "C:\Newfolder\file" & i & ".jpg"
                    SavePicture clipboard.getdata, strFile
                    i = i + 1
      End If
    Next
End Sub

---

请不要在您的问题中包含指向谷歌硬盘的链接。此外，您没有解释错误是什么，也没有解释错误发生在哪一行。我不需要导出HTML和word current文件。使用docx/docm文件，您不需要VBA-只需将文件扩展名更改为.zip，将文档作为zip存档打开，然后解压缩图像。不过，这是可以自动化的。请参阅中的“ExtractDocxMedia”宏：您会遇到什么错误？你试过调试代码吗？