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

Nơi trao đổi về các vấn đề trong lập trình Windows Forms, Console dùng cú pháp ngôn ngữ Visual Basic .NET và C#

Moderators: tungblt, vuathongtin

Post Reply
User avatar
minhhath
Thành viên năng nổ
Thành viên năng nổ
Posts: 78
Joined: Sun 17/01/2010 3:24 pm
Location: p5,Tỉnh Cà Mau
Has thanked: 8 times
Contact:

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

Post by minhhath »

Chào cả nhà :x :x :x
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à
Trên đời này không có con đường cùng,mà chỉ có những ranh giới,điều quan trọng là có đủ sức mạnh và nghị lực để vượt qua những ranh giới đó hay không
chienhmu
Thành viên tích cực
Thành viên tích cực
Posts: 167
Joined: Sat 02/06/2012 4:37 pm
Location: Bắc Ninh
Been thanked: 61 times

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

Post by 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
Attachments
Insert Picture.rar
(72.6 KiB) Downloaded 199 times
User avatar
minhhath
Thành viên năng nổ
Thành viên năng nổ
Posts: 78
Joined: Sun 17/01/2010 3:24 pm
Location: p5,Tỉnh Cà Mau
Has thanked: 8 times
Contact:

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

Post by 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
Trên đời này không có con đường cùng,mà chỉ có những ranh giới,điều quan trọng là có đủ sức mạnh và nghị lực để vượt qua những ranh giới đó hay không
Post Reply

Return to “Visual Basic .NET và C# (VB.NET & C#)”