1

画像が 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 ではなく 1 つの画像しかありません。何かアイデアはありますか?

4

1 に答える 1

0

For ステートメントの代わりに For Each ステートメントを試してください。For...Next 構造は、一連のステートメントを一定回数繰り返す場合に使用します。For Each...Next ループは、コレクションまたは配列の各要素に対して一連のステートメントを実行する場合に使用されます。

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