请问如何使用vba将excel的表格、图表数据复制粘贴到word

一块二

如下图所示，红框的数据分别在同一个excel的4个sheel里，现需把excel的这些数据粘贴到word里，需满足以下条件：
1、表格和图形样式居中，
2、在word里加上标题，且标题的的格式为黑体4号，偏左显示
3、最后一个表格的数据给字体添上蓝色和红色在word里显示，如下图所示，其中网址为蓝色，文本为红色
求教大佬这个该如何操作，本人vba小白，望大佬告知小弟，感谢！！

一块二

excel是原始数据，word为新建的

一块二

1. Sub 生成()
   
2. Dim appWD, doc As Object
   
3. Set appWD = CreateObject("Word.Application")
   
4. appWD.Visible = True
   
5. Set appWD = GetObject(, "Word.Application")
   
6. Set doc = GetObject(ThisWorkbook.Path & "\test.docx")
   
7. appWD.Visible = True
   
8. Application.CutCopyMode = False
   
9. Sheet1.Activate
   
10. Range("A:A").Select
    
11. Selection.Copy
    
12. appWD.Visible = True
    
13. appWD.Selection.Paste
    
14. MsgBox "OK"
    
15. End Sub

复制代码

我尝试了上述代码 但是生成后的数据如下所示，且只能生成一条，请问该如何改进

394167692

你的这个问题的答案，也正是我需要的呀