㈠ VBA实现Excel图象导出到Word
Selection.ShapeRange.WrapFormat.Type = wdWrapSquare
㈡ 如何用VBA把Excel中的数据和文件夹中的图片放入到Word文档中
Word里面的“邮件合并”功能就是专门来处理这个的。
工具 → 信函与邮件 → 邮件合并
补充：
这就是典型的带图片的右键合并的问题了。将图片的地址插入到Excel中对应的数据后面，然后通过Word中的 INCLUDEPICTURE 域即可对照片进行合并。
㈢ VBA中怎么把Excel的图片复制到word文件中
完全可以在word中全选，复制到excel中，
再在excel中整理其中的表格
㈣ 如何用VBA宏程序将excel中的内容批量复制到word文档中去
word.application.run
"macro2"
根据您自己判断（是不是认为是excel的宏啊？）瞎猜的，你试试。。。
㈤ 电脑图片怎么复制到word文档
您好，如何把照片复制到word（方法1）
1
第一步：选中需要复制到word中去的照片，按快捷键Ctrl+C键复制照片。
2
第二步：打开要放照片的word文档，按快捷键Ctrl+V键粘贴，如下图所示，照片被复制到word文档中。
如何把照片复制到word（方法2）
第一步：打开一个需要添加照片的word文档。
如何把照片复制到word
第二步：单击选择菜单栏“插入”中的“图片”。
如何把照片复制到word
第三步：找到要复制到word文档中的照片，选中后单击“插入”按钮。
如何把照片复制到word
4
如下图所示，照片被添加到word文档中。
如何把照片复制到word
㈥ 利用VBA如何将批量图片导入WORD的指定表格格式里
将excel表格中的数据批量插入到word中的操作方法：
1、单击插入----对象按钮；
2、弹出插入对话框对话框，选择由文件创建对话框，单击浏览按钮；
3、弹出浏览对话框，选择需要插入有Excel文件；
4、单击插入按钮即可。
注：
（1）若选中链接到文件，源文件修改，Word中的表格也随之改变；
（2）若选中显示为图片，则以图标的形式插入到Word，双击可以打开其源文件。
㈦ 怎么编VBA把图片放到WORD里并附上该图的名称（50分）
要从两个方面考虑：
1、如何把现有文档中的图片导出？这个代码片断可以参考一下：
Set ImageStream = CreateObject("ADODB.Stream")
With ImageStream
.Type = 1
.Open
.Write ActiveDocument.InlineShapes(1).Range.EnhMetaFileBits
.SaveToFile "d:\Temp\Output.bmp"
.Close
End With
Set ImageStream = Nothing
2、如何把已经到处的图片导入到新文档中？这个函数调用可以参考一下：
ActiveDocument.InlineShapes.AddPicture
如果还是不明白的话，请补充提问。
_____
补充：
请问楼主你运行那个代码片断得到的*完整*错误信息是什么？报错的时候，系统一般会把光标移动到出错的那行代码上，你看到的是哪一行代码出错呢？
我看你贴上来的代码应该是没有什么语法上的错误，“Exit For”的确是不应该要的，但那也不是语法错误啊。
㈧ excel里有很多图表。怎样用vba把excel里的图表复制到word
把所有图表选中，复制黏贴到word。
关键是选中所有图表的问题。
㈨ vba 将Excel中做好的折线图复制到word
这里有你要的答案：blog.sina.com.cn/s/blog_4a0a8b5d0101kp61.html
不过，我试了一下，只适合高于2010版本的2007版提示不适合作用于chartarea。
㈩ VBA 把Excel的内容复制到Word的代码
正好前几天在研究从EXCEL数据导出到WORD中。源代玛整理如下，有一些路径，文件名等需要变更信息的相信你能看明白（已用粗体标识）。提供的只是一个初学者的思路，该代码还有很大可优化空间，因为生成WORD文件的时候估计每个要用3-5秒时间，批量生成时就很烦（批量生成就是用循环，文件名称可以使用时间戳 & 随机数 & 自定义名称,一定不能只用时间戳，因为一秒钟有的时候会抽疯循环两次以上，名称完全一致会报错滴）。
Dim MyExcel As Workbook '定义WORKBOOK变量
Set MyExcel = Workbooks("D:你需要导出表的绝对路径")
Dim MyWord As Object '定义变量
Dim MyArray '定义数组变量
Dim MyString as String
MyArray = MyExcel.Sheets("工作表名称").Range("A2:E2").Value '需要从EXCEL中导出的内容放到数组中，因为操作数组比直接调用RANGE要快得多。
Set MyWord = CreateObject("Word.Application") '生成WORD对象
MyString = MyArray1(1, 1) '通过操作数组给变量赋值，可以通过循环给多个变量赋值。
MyFileName = "生成WORD名称名" '文件名称
MyWord.documents.Add '新建文件
MyWord.documents(1).Range.InsertAfter MyString '往WORD内写入数据
fn = "D:" & MyFileName '生成文件名
MyWord.documents(1).SaveAs fn '另存文件
MyWord.Close False '不保存关闭文件
MyWord.Quit False
Set MyWord = Nothing '清空变量
Erase MyArray1 '注销数据