從一個Word文檔複製圖像到另一個使用vb.net

Question

我有一個文字，其中有一張圖片，沒有別的。我想使用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.任何想法？

Answer 1

嘗試使用For Each語句而不是For語句。 A For ... Next結構用於當您想重複一組語句一組次數。 For Each ... Next循環用於您想爲集合或數組的每個元素執行一組語句。

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