Öncelikle 1. yöntem olan referans tanımlama yöntemi kullanalım.
Bir Windows application açıyoruz. Daha sonra Project menüsünden Add Reference seçeneği ile gelen pencereden COM başlığı altından Microsoft Word 11.0 Object Library seçeneği seçilip OK tuşuna basıyoruz. Elbette kullandığınız word programının sürümüne göre buradaki 11 rakamı değişecektir.
Daha sonra form üzerine bir komut butonu ekleyerek text özelliğini ‘yeni belge oluştur’ şeklinde değiştiriyoruz. Formumuzun tanımlama kısmında WordApp ve WordDoc nesnelerimizi tanımlıyoruz. WordApp word uygulaması, WordDoc ise word belgesidir.
Dim WordApp As New Word.Application()
Dim WordDoc As New Word.Document()
Daha sonra komut butonu içerisine şu kodu ekliyoruz;
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WordApp = CreateObject("Word.Application")
WordDoc = WordApp.Documents.Add
WordApp.Visible = True
End Sub
WordApp = CreateObject("Word.Application") satırıyla word uygulamamızı açıyoruz..
WordDoc = WordApp.Documents.Add satırıyla yeni bir word belgesi oluşturuyoruz.
WordApp.Visible = True satırıyla oluşturduğumuz word belgesini görüntülüyoruz.
Gelelim 2. yöntemimize. Bu yöntem de referans vermeye gerek olmadığından versiyon bağımsız olarak program yazabiliriz. Ben çoğunlukla bu yönetimi tercih ediyorum. Bundan sonraki örneklerimizi de genellikle bu yönteme göre yapacağız.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objWord As Object 'word programı
objWord = CreateObject("Word.Application") 'yeni word uygulaması oluşturuyoruz.
objWord.Documents.Add() 'yeni word belgesi açıyoruz.
objWord.Visible = True 'word programını görünür hale getiriyoruz.
End Sub
End Class
Son olarak proje dosyasının linkini vereyim:
http://www.volkanaktas.com/PrgDosya/vbayeniwordbelgesiacma.rar