Lập trình Microsoft Office Word với VB.Net

Lập trình Microsoft Office Word với VB.Net
Trong quá trình viết phần mềm, đôi khi bạn cần xuất kết quả ra file Word nhưng chưa bạn chưa làm được. Bài hướng dẫn này sẽ giúp bạn làm điều đó. 1. Cài đặt Office Word hỗ trợ Net:Yêu cầu : Trong máy bạn phải có cài đặt Microsoft Office Word, tốt nhất là 2003 trở lênĐể có thể lập trình được Word trong Net thì khi cài Word ta phài cài đầy đủ những thành phần sau:Support 1Support 22. Tạo Project thao tác với WordBước1. Đầu tiên các bạn hãy tạo một Project với tên là Word ProjectBước 2 . Click vào My Project trong cửa sổ Solution Explorer-->References -->AddỞ cửa sổ Add References --> COM ---> Di chuyển tới References Microsoft Word 11 Object Library--> Nhấn Ok.Sau khi xong thì bên trong Cửa sổ References của bạn sẽ xuất hiện thêm 3 dòng sau như hình vẽ.Hình 1Lưu ý rằng bạn phải có đủ 3 thành phần:Microsoft Office 11.0 Object Library.Microsoft Visual Basic for Application Extensibility...Microsoft Word 11.0 Object Library3. Namespace và các đối tượng dùng để thao tác với file WordTa dùng Namespace
Imports Microsoft.Office.Interop
Để tạo ra nội dung cho file Word ta dùng các đối tượng sau:
'Đối tượng Word Application
        Dim objApp As New Word.Application
        'Tạo đối tượng Word Document
        Dim objDocument As New Word.Document
        'Hiển thị và kích hoạt Word Application
        objApp.Visible = True
        objApp.Activate()
        'Add một Document vào trong Application
        objDocument = objApp.Documents.Add
4. Tạo ra nội dung cho file Word
Để tạo ra nội dung cho file word ta dùng Selection tức là vùng chọn
'Biến lưu vị trí select hiện hành
        Dim objselection As Word.Selection
        'Gán vị trí hiện hành trong Document vào biến selection
        objselection = objDocument.Application.Selection()
4.1 Tạo ra một Paragraph mới
objselection.TypeParagraph()
4.2 Thiết lập các định dạng cho Paragraph
Định dạng Paragraph
· objselection.Font.Color = Word.WdColor.wdColorRed
·             objselection.Font.Size = 16
·             objselection.Font.Bold = 1
·             objselection.Font.Underline = Word.WdUnderline.wdUnderlineSingle
·             objselection.Font.Italic = 1
· ‘Alignment
·             objselection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
4.3 Add chuỗi văn bản vào Paragraph
Add Text vào Paragraph
objselection.TypeText("Lập trình Microsoft Office Word với VB.Net" & vbCrLf)
      objselection.TypeText("Paragraph đầu tiên")
4.4 Xóa hết các định dạng trước đó để thiết lập định dạng mới
Tạo một Paragraph mới
· objselection.TypeParagraph()
·             'Xóa định dạng Paragraph trước
·             objselection.ClearFormatting()
· ‘Thiết lập định dạng mới
· objselection.Font.Color = Word.WdColor.wdColorBlue
·             objselection.TypeText("1 - Bước 1")
·             objselection.TypeParagraph()
·       objselection.TypeText("2 - Bước 2")
4.5 Chèn hình ảnh vào file word
Tạo Paragraph mới
objselection.TypeParagraph()
      objselection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
'Chèn hình ảnh cho Paragraph từ đường dẫn của file ảnh
      objselection.InlineShapes.AddPicture(Application.StartupPath & "\canh cam.jpg")
4.6 Xuất nội dung ra file word
objDocument.SaveAs(Application.StartupPath & "\Word output.doc")