㈠ 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 '注銷數據