Lập trình microsoft office word với vb.net
- 1. 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 1 Support 2 2. Tạo Project thao tác với Word Bước1. Đầu tiên các bạn hãy tạo một Project với tên là Word Project Bướ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 1 Lư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 Library 3. Namespace và các đối tượng dùng để thao tác với file Word Ta 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()
- 2. '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()
- 3. 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")