请帮小弟我实现一个vba的io功能

请帮我实现一个vba的io功能
现在我有一个.xls文件其中包含多张表单和图形报表。
现在需要编写一段代码，将xls中的内容原格式拷贝到一个新的.doc文档中。
我本来打算通过录制宏来完成这个功能，但又不知道具体怎么做。
请经验的朋友讲解一下。谢过！！！

[解决办法]
从excel中复制，然后在word中录这个宏....

VB code

Sub 宏5()'' 随意录得  ， 不通用...'    Selection.MoveLeft Unit:=wdCharacter, Count:=8    Selection.PasteExcelTable False, False, False    Selection.MoveLeft Unit:=wdWord, Count:=13, Extend:=wdExtend    Selection.MoveUp Unit:=wdParagraph, Count:=7, Extend:=wdExtend    Selection.Tables(1).Style = "典雅型"End Sub
[解决办法]
写了1个小时，搞定了，给分吧
打开.xls文件，在VBA工程里面，把代码复制进去，运行就可以了
VB code
Sub ExcelAll2Word()    Dim wdApp As Object        On Error Resume Next    Set wdApp = GetObject(, "Word.Application")    If Err.Number <> 0 Then        Err.Clear        Set wdApp = CreateObject("Word.Application")    End If        wdApp.Visible = True        wdApp.Documents.Add        Dim i As Long    For i = 1 To ActiveWorkbook.Worksheets.Count        ActiveWorkbook.Worksheets(i).Cells.Copy        wdApp.Selection.Paste        wdApp.Selection.TypeText vbCr    Next    For i = 1 To ActiveWorkbook.Charts.Count        ActiveWorkbook.Charts(i).ChartArea.Copy        wdApp.Selection.Paste        wdApp.Selection.TypeText vbCr    NextEnd Sub