1

我有一个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 个。有什么想法吗？

4

1 回答 1

0

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

For Each i as integer = 0 To 9 Step 1 
*your code*
Next
于 2012-08-08T13:04:39.840 回答