VBA-Word图片导出四种方法：使用HTML和GDI+

VBA-Word图片导出（四种方法） VBA-Word图片导出是指使用VBA编程语言将Word文档中的图片导出到指定文件夹的操作。这种操作可以使用多种方法来实现，下面将介绍四种不同的方法。 方法一：使用Word的SaveAs方法 使用Word的SaveAs方法可以将Word文档另存为HTML文件，从而将图片导出。下面是一个示例代码： ```vba Sub doc_To_HTML() Dim WordDOC As Object Dim Path, Name As String Set WordDOC = Documents.Open("C:\Brildo\Test.docx") Path = WordDOC.Path Name = WordDOC.Name ActiveDocument.SaveAs2 FileName:=Path & "\" & Split(Name, ".")(0), FileFormat:=wdFormatHTML ActiveDocument.Close (0) End Sub ``` 方法二：使用Windows API 使用Windows API可以将图片导出到指定文件夹。下面是一个示例代码： ```vba Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long) As Long Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal FileName As Long, clsidEncoder As GUID, encoderParams As Any) As Long Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long ``` 方法三：使用OLE对象 使用OLE对象可以将图片导出到指定文件夹。下面是一个示例代码： ```vba Sub ExportImage() Dim OleObj As OLEObject Set OleObj = ActiveDocument.InlineShapes(1).OLEFormat.Object OleObj.SaveAs "C:\Images\Image.jpg" End Sub ``` 方法四：使用第三方库 使用第三方库可以将图片导出到指定文件夹。下面是一个示例代码： ```vba Sub ExportImage() Dim Img As Object Set Img = CreateObject("WIA.ImageFile") Img.LoadFile "C:\Images\Image.jpg" Img.SaveAs "C:\Images\Image.jpg" End Sub ``` VBA-Word图片导出可以使用多种方法来实现，每种方法都有其优缺点。选择合适的方法取决于实际情况和需求。