用VBA将一个word中的图片复制到另一个word中，位置不变

Iwkkxx

问题如题，哪位可以帮忙写一下？刚学VB不知道如何实现。
谢谢。

Iwkkxx

附上部分代码. 是不是复制一个Group的shape过去后，格式不会变，而复制单个shape图片后，格式就变成了inlineshape图片？怎么能复制过去的还是shape?
谢谢。

Sub Paste(fileAddr As String)
   
    Dim iShape
    Dim newShape As Shape
    Dim pic(2)
   
    'open a word file
    Dim WordApp
    Dim Word
   
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set Word = WordApp.Documents.Open(fileAddr) '打开一个word文件
   
    Set pic(1) = Documents("Seal.docm").Shapes(1) ' 第一个是个group图片
    Set pic(2) = Documents("Seal.docm").Shapes(5) ' 第二个是单个图片
        
    pic(1).Select
    Selection.Copy
    Word.Application.Selection.Paste ‘第一个成功了，复制过去的是一个shape
   
    pic(2).Select
    Selection.Copy
    Word.Application.Selection.Paste '这个复制过去的是一个inlineshap
End Sub