excel中vba将excel中数字和图表输出到word中

参考：https://wenku.baidu.com/view/6c60420ecc175527072208af.html

---

比如将选区变为图片保存到桌面：

 Sub 将选区转为图片存到桌面()
   Dim ans As Byte, Pic As String, Paths As String
   On Error Resume Next
   Paths = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" '记录“桌面”文件夹的路径
 star:
   '选择导出图片的格式
   ans = Application.InputBox("输入1：保存为BMP图片；" + Chr() + "输入2：保存为PNG图片；" + Chr() + "输入3：保存为JPG图片。", "图片格式", , , , , , )
   If err <>  Then MsgBox "只能输入1到3", , "提示": err.Clear: GoTo star '如果有误（输入的值在0-255之外）则返回重新输入
   If ans <  Or ans >  Then MsgBox "输入错误": GoTo star '如果不等于1、2、3则重新输入
   Pic = Choose(ans, ".BMP", ".PNG", ".JPG") '在三种格式间选择
   If TypeName(Selection) = "Range" Then '如果选择的对象是单元格
     Dim rng As Range
     Set rng = Selection '将选区赋与变量rng
     rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture '将rng区域复制为图片
     ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count + ).Cells().Select '选择一个空单元格
     With ActiveSheet.ChartObjects.Add(, , rng.Width, rng.Height).Chart '生成图表
       .Paste  '将图片粘贴到图表中
       .Export Paths & Replace(rng.Address(, ), ":", "-") & Pic '将图表导出为图片文件
       .Parent.Delete '删除图表对象
     End With
     rng.Select '选择rng对象
   End If
   Shell "EXPLORER.EXE " & Left(Paths, Len(Paths) - ), vbMaximizedFocus '打开桌面
 End Sub

---

下面参考这个：

http://excel-macro.tutorialhorizon.com/vba-excel-create-and-save-the-word-document/

VBA-Excel: Create and Save the Word document

BY SJ · JUNE 12, 2013

 

For cre­at­ing and sav­ing the Microsoft Word Doc­u­ment using Microsoft Excel, you need to fol­low the steps below:

• Cre­ate the object of Microsoft Word
• Cre­ate a doc­u­ment object and add doc­u­ments to it
• Make the MS Word visible
• Cre­ate a Selec­tion object with the help of WordObject.
• Use this Selec­tion object to type the text into the WordDocument.
• Save the document

Cre­ate the object of Microsoft Word

Set obj­Word = CreateObject(“Word.Application”)

Cre­ate a doc­u­ment object and add doc­u­ments to it

Set obj­Doc = objWord.Documents.Add

Make the MS Word Visible

objWord.Visible = True

Cre­ate a Selec­tion object with the help of WordObject.

Set objS­e­lec­tion = objWord.Selection

Use this Selec­tion object to type the text into the WordDocument.

objSelection.TypeText (“This is my text in Word Doc­u­ment using Excel”)

Save the Document

objDoc.SaveAs (“D:\MyFirstSave”)

Com­plete Code:

Function FnWriteToWordDoc()
 
   Dim objWord
 
   Dim objDoc
 
   Dim objSelection
 
   Set objWord = CreateObject("Word.Application")
 
   Set objDoc = objWord.Documents.Add    
 
   objWord.Visible = True
 
   Set objSelection = objWord.Selection
 
   objSelection.TypeText ("Saving this file after this text")
 
   objDoc.SaveAs ("D:\MyFirstSave")
 
End Function