如何将excel中的图片以及文本批量填入word文件

您可以使用VBA宏来实现将Excel中的图片和文本批量填入Word文件。具体步骤如下：

1. 在Excel中选中需要导入的图片和文本，复制它们到剪贴板。

2. 打开Word文件，选择需要填入内容的位置。

3. 按下Alt+F11打开VBA编辑器，选择Tools->References，勾选Microsoft Word xx.x Object Library和Microsoft Excel xx.x Object Library。

4. 在VBA编辑器中插入以下代码：

Sub InsertExcelDataToWord()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet
Dim xlRng As Excel.Range
Dim wdRng As Word.Range
Dim wdShape As Word.InlineShape

'打开Word文件
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("C:\Test.docx")

'打开Excel文件
Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open("C:\Test.xlsx")
Set xlWs = xlWb.Worksheets("Sheet1")

'复制Excel中的图片和文本到Word文件
For Each xlRng In xlWs.UsedRange
Set wdRng = wdDoc.Range(xlRng.Address)
If xlRng.Value <> "" Then
wdRng.Text = xlRng.Value
End If
If xlRng.Comment IsNot Nothing Then
wdRng.Comments.Add xlRng.Comment.Text
End If
If xlRng.Hyperlinks.Count > 0 Then
wdRng.Hyperlinks.Add wdRng, xlRng.Hyperlinks(1).Address
End If
If xlRng.Pictures.Count > 0 Then
Set wdShape = wdRng.InlineShapes.AddPicture(xlRng.Pictures(1).Filename)
wdShape.Width = xlRng.Pictures(1).Width
wdShape.Height = xlRng.Pictures(1).Height
End If
Next xlRng

'保存并关闭文件
wdDoc.Save
wdDoc.Close
xlWb.Close
wdApp.Quit
xlApp.Quit

'释放对象
Set wdShape = Nothing
Set wdRng = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
Set xlRng = Nothing
Set xlWs = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
End Sub

5. 修改代码中的文件路径和工作表名称，运行宏即可将Excel中的图片和文本批量填入Word文件。