Chèn ảnh vào word với vb.net

[minhhath]

Chào cả nhà
Lâu lắm rồi mới ghé thăm 4rum hôm nay có vấn đề thắc mắc rất mong các bạn nào biết share code hay source hay thuật toán hay hàm hoặc thủ tục nào chèn một ảnh vào world vì mình cũng tìm với GG mà không tìm thấy.
Nói rõ hơn là như thế này
ví dụ: mình có 1 Folder chứa 1 bức ảnh mình muốn viết tools làm auto vấn đề này thay vì mình làm thủ công chèn vào world.

Thanks cả nhà

[chienhmu]

Import thư viện Microsoft Word Object Library
Code chèn ảnh định dạng jpg từ 1 thư mục

Code: Select all

Sub InsertPictures(folder As String)
        Dim objApp As New Word.Application
        Dim objDocument As New Word.Document
        Dim objselection As Word.Selection
        '
        objApp.Visible = True
        objApp.Activate()
        objDocument = objApp.Documents.Add
        objselection = objDocument.Application.Selection()
        objselection.TypeParagraph()
        objselection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        For Each file As String In IO.Directory.GetFiles(folder, "*.jpg", IO.SearchOption.AllDirectories)
            If IO.File.Exists(file) Then
                objselection.InlineShapes.AddPicture(file)
            End If
        Next
    End Sub

[minhhath]

trước tiên là cảm ơn bạn về code này mình muốn là chèn vào một file word đã tồn tại sẳn chứ không phải chèn vào file word mới vừa tạo