Visual Basic. NET: Взаємодія з Microsoft Word 2000 і вище (исходники), Різне, Програмування, статті

Ця стаття буде корисна лише тим людям, у яких встановлено Microsoft Word 2000 або вище! Ми навчимося робити все можливе з документами MS WORD за допомогою VB 2003/2005. NET.

Підключення бібліотеки до проекту


  1. Створіть проект (Windows Application) У полі Name (Ім’я) введіть Word (можна будь-ін ім’я)
  2. В меню Project (Проект) виберіть меню Add Reference (Додати посилання)
  3. У діалоговому вікні Add Reference перейдіть на вкладку COM і виберіть у списку Microsoft Word 9.0 Object Library (або іншу версію, це залежить від того, яка версія MS Word у вас встановлена ​​на комп’ютері), тиснете клавішу Enter
  4. Все, бібліотека Word вже включена в наш проект!

Працюємо з MS Word


  1. Все необхідне для роботи ми вже зробили тепер для зручності роботи з бібліотекою Word необхідно ввести в General Declarations код:





Imports Word “Імпортуємо простір імен
Public Class Form1
End Class


  1. Створимо змінну для управління Word `ом:





Imports Word “Імпортуємо простір імен
Public Class Form1
Dim applicationWord As Microsoft.Office.Interop.Word.Application
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
applicationWord = New Microsoft.Office.Interop.Word.Application
End Sub
End Class

Після виконання коду, відкривається додаток MS Word, але воно приховано, для того, щоб зробити його видимим впишіть в подія Form_Load наступний код:





Imports Word “Імпортуємо простір імен
Public Class Form1
Dim applicationWord As Microsoft.Office.Interop.Word.Application
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
applicationWord = New Microsoft.Office.Interop.Word.Application
applicationWord.Visible = True
End Sub
End Class

Але керувати вмістом документа MS Word за допомогою змінної applicationWord, для керування вмістом документа створимо ще одну змінну:





Imports Word “Імпортуємо простір імен
Public Class Form1
Dim applicationWord As Microsoft.Office.Interop.Word.Application Dim documentWord As Microsoft.Office.Interop.Word.Document “Оголошуємо змінну для роботи з текстом і ін можливостями документа MS Word,
наприклад: Створюємо таблиці; Міняємо розмір, колір шрифту; і.т.д.
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load “Запускаємо додаток MS Word
applicationWord = New Microsoft.Office.Interop.Word.Application “Робимо додаток MS Word видимим для користувача (це робити не обов’язково)
applicationWord.Visible = True
End Sub
End Class


  1. Тепер створимо документ, дял цього введемо наступний код:





Imports Word “Імпортуємо простір імен
Public Class Form1
Dim applicationWord As Microsoft.Office.Interop.Word.Application
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load “Запускаємо додаток MS Word
applicationWord = New Microsoft.Office.Interop.Word.Application “Робимо додаток MS Word видимим для користувача (це робити не обов’язково)
applicationWord.Visible = True “Оголошуємо змінну для роботи з текстом і ін можливостями документа MS Word, наприклад: Створюємо таблиці; Міняємо розмір, колір шрифту; і.т.д.
Dim documentWord As Microsoft.Office.Interop.Word.Document = applicationWord.Documents.Add
End Sub
End Class


  1. Все, документ створений, тепер, спробуємо написати в ньому що-небудь. Для цього воспоьзуемся об’єктом Range, який знаходиться у змінній documentWord.Range, спробуємо вписати туди ім’я вашого комп’ютера (тільки для VB 2005. Net), для цього впишемо наступний код:





Imports Word “Імпортуємо простір імен
Public Class Form1
Dim applicationWord As Microsoft.Office.Interop.Word.Application
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load “Запускаємо додаток MS Word
applicationWord = New Microsoft.Office.Interop.Word.Application “Робимо додаток MS Word видимим для користувача (це робити не обов’язково)
applicationWord.Visible = True “Оголошуємо змінну для роботи з текстом і ін можливостями документа MS Word, наприклад: Створюємо таблиці; Міняємо розмір, колір шрифту; і.т.д.
Dim documentWord As Microsoft.Office.Interop.Word.Document = applicationWord.Documents.Add “Range – це, можна сказати, тіло документа має всі властивості для роботи з текстом в документі MS Word
With documentWord.Range “Встановлюємо ім’я шрифту
.Font.Name = “Arial” “Встановлюємо колір шрифту
.Font.Color = Microsoft.Office.Interop.Word.WdColor.wdColorBlack . Font.Size = “12” “Встановлюємо розмір шрифту “Міняємо текст документа на традиційну напис” Привіт Світ!!! ”
.Text = My.User.Name
End With
End Sub
End Class


  1. Ще трохи про об’єкт Range. Припустимо, нам необхідно вставити текст перед тим текстом який у нас вже є в документі, або після цього тексту, навіть може всередині тексту, для цього є додаткові властивості об’єкта Range, нижче я навів приклади вставки тексту до, після і всередині вже існуючого тексту:





Imports Word “Імпортуємо простір імен
Public Class Form1
Dim applicationWord As Microsoft.Office.Interop.Word.Application
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load “Запускаємо додаток MS Word
applicationWord = New Microsoft.Office.Interop.Word.Application “Робимо додаток MS Word видимим для користувача (це робити не обов’язково)
applicationWord.Visible = True “Оголошуємо змінну для роботи з текстом і ін можливостями документа MS Word, наприклад: Створюємо таблиці; Міняємо розмір, колір шрифту; і.т.д.
Dim documentWord As Microsoft.Office.Interop.Word.Document = applicationWord.Documents.Add “Range – це, можна сказати, тіло документа має всі властивості для роботи з текстом в документі MS Word
With documentWord.Range . Font.Name = “Arial” “Встановлюємо ім’я шрифту “Встановлюємо колір шрифту
.Font.Color = Microsoft.Office.Interop.Word.WdColor.wdColorBlack . Font.Size = “12” “Встановлюємо розмір шрифту
.Text = “KByte.ru”
End With documentWord.Range (0, 0). Text = “Вас Вітає” “До існуючого тексту documentWord.Range (Len (“KByte.ru”) + Len (“Вас Вітає”), Len (“KByte.ru”) + Len (“Вас Вітає”)). Text = “: Привіт!” “Після Існуючого тексту
End Sub
End Class


  1. Друк вмісту документа проводиться пр допомогою цього коду:

documentWord.PrintOut


  1. Попередній перегляд перед друком проводиться пр допомогою цього коду:

documentWord.PrintPreview()


  1. Зберігати документ можна за допомогою цього коду:

documentWord.SaveAs(FileName:=”C:MyDocument.doc”)


  1. Вихід з MS Word здійснюється за допомогою цього коду:

applicationWord.Quit()

Ось в принципі і все!


Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*