使用vb.net将图像从一个Word文档复制到另一个Word文档

我有一个word文档，里面只有一张图片，没有其他内容。我想使用vb.net将此图片复制到另一个Word文档中。 关于如何做到这一点有什么想法吗

到目前为止，我得到的是：

Dim vk_word_app As Word.Application = New Word.Application
Dim vk_new_doc As Word.Document = vk_word_app.Documents.Open("final.docx")

vk_word_app.Activate()
vk_word_app.Visible = False

For i as integer = 0 To 9 Step 1   
    Dim vk_my_doc As Word.Document = vk_word_app.Documents.Open("test.docx")
    vk_my_doc.Select()
    vk_word_app.Selection.Copy()
    vk_new_doc.Select()
    vk_word_app.Selection.PasteSpecial()
    vk_my_doc.Close()
Next

    vk_new_doc.Save()
    vk_word_app.Quit()

---

图像被复制到新文件中，但复制的每个新文件都会覆盖上一个文件，因此在reulst final.docx中只有一个图像，而不是10个。有什么想法吗？

试着用For代替For。当您希望将一组语句重复一定次数时，将使用For…Next结构。要为集合或数组的每个元素执行一组语句时，将使用For Each…Next循环

For Each i as integer = 0 To 9 Step 1 
*your code*
Next

---

事实并非如此。步骤1（冗余）说明循环将i增加1。在编写语句时，每个语句都会出现语法错误。我很快就确定，构建循环的方式没有任何问题。我认为问题在于，粘贴最新图片时，api这个词会覆盖上一张图片。