vb操作word过程中出现的格式问题

     现在需要用vb将一张图片和excel中的图表粘贴在word文档中，要求的格式从上到下为图片，excel图表1，excel图表2，excel图表3     当程序调用word2007时，格式和顺序正常。但是当调用word2010时，图片跑到了文件末尾，求大神指点。     工程引用的 Microsoft excel 14.0 object library和 Microsoft word 14.0 object library附上相关代码wordApp.Selection.TypeText Chr(13)
wordApp.Selection.ClearFormatting
wordApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wordDoc.InlineShapes.AddPicture workpath & "\质量直径绘图.bmp"        '在word报告中粘贴
wordApp.Selection.TypeText Chr(13)
wordApp.Selection.TypeText "图1 轴系质量直径绘图"
wordApp.Selection.TypeText Chr(13)
tempxlWorkbook.Worksheets("Sheet1").ChartObjects(1).Activate
tempxlWorkbook.Worksheets("Sheet1").ChartObjects(1).Chart.CopyPicture
wordApp.Selection.ClearFormatting
wordApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wordApp.Selection.Paste                                                                                               '在word报告中粘贴扬度曲线图
wordApp.Selection.TypeText Chr(13)
wordApp.Selection.TypeText "图2 轴系各节点扬度曲线"
wordApp.Selection.TypeText Chr(13)wordApp.Selection.TypeText Chr(13)
tempxlWorkbook.Worksheets("Sheet1").ChartObjects(2).Activate
tempxlWorkbook.Worksheets("Sheet1").ChartObjects(2).Chart.CopyPicture
wordApp.Selection.ClearFormatting
wordApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wordApp.Selection.Paste                                                                                               '在word报告中粘贴弯应力曲线图
wordApp.Selection.TypeText Chr(13)
wordApp.Selection.TypeText "图3 轴系各节点弯应力曲线"wordApp.Selection.TypeText Chr(13)
tempxlWorkbook.Worksheets("Sheet1").ChartObjects(3).Activate
tempxlWorkbook.Worksheets("Sheet1").ChartObjects(3).Chart.CopyPicture
wordApp.Selection.ClearFormatting
wordApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wordApp.Selection.Paste                                                                                                '在word报告中粘贴弯应力曲线图
wordApp.Selection.TypeText Chr(13)
wordApp.Selection.TypeText "图4 轴系各节点弯矩曲线"