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()

图像被复制到新文件中，但每个复制的图像都会覆盖前一个文件，所以在最终的final.docx中只有一个图像而不是10个。任何想法？

Answer 1

尝试For Each语句而不是For语句。当您想要重复一组语句一定次数时，使用For ... Next结构。如果要为集合或数组的每个元素执行一组语句，则使用For Each ... Next循环。

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

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

1 个答案: