Bir soru üzerine excellde hdd seri numarasını bulan kodu yazdım. Yöntem olarak da FSO (File System Object) kullandım. Olay olarak da çalışma sayfasının aktifleşmesine yazdım. Siz istediğiniz bir olaya yazabilirsiniz. Sürücü tipi görüntülemeyi isterseniz iptal edebilirsiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Dim d, s, t
        Dim fs As Object
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("C:")))
        Select Case d.DriveType
            Case 0: t = "Bilinmiyor"
            Case 1: t = "Removable"
            Case 2: t = "Fixed"
            Case 3: t = "Network"
            Case 4: t = "CD-ROM"
            Case 5: t = "RAM Disk"
        End Select
        s = "Sürücü " & d.DriveLetter & ": - " & t
        s = s & vbCrLf & "SN: " & d.SerialNumber
        ActiveWorkbook.Worksheets(1).Range("A1") = s
End Sub

Burada dönen değer fiziksel seri numarası değil, birim seri numarasıdır.

Kopyalama ve taşıma işlemlerinde şu metodlar kullanılabilir:

Hücre içeriğini kopyalamak için

Excelnesnesi.Range("Kaynak Sütun:Kaynak Satır").Copy(Excelnesnesi.Range("Hedef Sütun :Hedef Satır"))

Şeklinde bir yöntem kullanılır. 

Hücre içeriğini taşımak için

Excelnesnesi.Range("Kaynak Sütun:Kaynak Satır").Cut(Destination:= Excelnesnesi.Range ("Hedef Sütun :Hedef Satır"))

Şeklinde bir yöntem kullanılır. 

İşlemler bittikten sonra hafızayı temizlemek için

        Excelnesnesi.CutCopyMode = False

Şeklinde bir komut satırı kullanılır.

Hücre, satır, sütun kopyalama ve taşıma işlemlerine dair örnek uygulama yapalım Form üzerine bu işlemler için kullanacağımız cmdhucrekopyala, cmdsatirkopyala, cmdsutunkopyala, cmdsayfayakopyala, cmdhucretasi adıyla 5 adet komut butonu ekliyoruz. Kodumuz da şu şekilde olacak:

Public Class Form1

    Dim xl

    'Excell nesnesi tanımlıyoruz

    Dim range

    'Range nesnemizi tanımlıyoruz

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Excel nesnesini oluşturuyoruz

        xl = CreateObject("Excel.Application")

        'Yeni bir çalışma kitabı ekliyoruz

        xl.Workbooks.add()

        'Excel sayfasını görüntülüyoruz

        xl.application.visible = True

        '1 nolu çalışma sayfasını aktif ediyoruz            

        xl.worksheets(1).Activate()

        'A1 hücresine değer yazıyoruz       

        xl.cells.Range("$A$1") = "15"

        xl.cells.Range("$A$2") = "20"

        xl.cells.Range("$B$1") = "25"

        xl.cells.Range("$B$2") = "30"

    End Sub

    Private Sub satirkopyala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satirkopyala.Click

        '1 nolu satırı 4 nolu satıra kopyaladık

        xl.Range("1:1").Copy(xl.Range("4:4"))

    End Sub

    Private Sub hucrekopyala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hucrekopyala.Click

        'A1 hücresini E4 hücresine kopyaladık

        xl.Range("$A$1").Copy(xl.Range("$E$4"))

    End Sub

    Private Sub sutunkopyala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sutunkopyala.Click

        'A sütununu F sütununa kopyaladık

        xl.Range("A:A").Copy(xl.Range("F:F"))

    End Sub

    Private Sub hucretasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hucretasi.Click

        'A1 ve B1 hücrelerini keserek D1 hücresine taşıyoruz

        xl.range("A1" & ":B" & 1).Cut(Destination:=xl.range("D" & 1))

        'clipboard'u temizleyelim

        xl.CutCopyMode = False

    End Sub

    Private Sub cmdsayfayakopyala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsayfayakopyala.Click

        Dim i

        '1 nolu satırdaki 10 sütun içerisinde arama yaparak hücre             

        ‘içerisindeki değer 10'dan büyük ise 2 nolu çalışma

        ‘sayfasına kopyalıyor

        For i = 1 To 10

            If CInt(xl.cells(i, 1).value) > 10 Then

                xl.rows(i & ":" & i).copy(xl.worksheets(2).range(i & ":" & i))

            End If

        Next i

    End Sub

End Class

Proje dosyamızın linki:

http://www.volkanaktas.com/PrgDosya/vba/excelkopyalatasi.rar

Seçim işlemleri için Select metodu kullanılır.

Satır seçmek için

        Excelnesnesi.Rows("Sütun adı ").Select()

şeklinde bir yöntem kullanılabilir.

Sütun seçmek için

        Excelnesnesi.Columns("Sütun adı ").Select()

şeklinde bir yöntem kullanılabilir.

Hücre seçmek için

        Excelnesnesi.Cells.Range("$Sütun adı $Satır numarası ").Select()

şeklinde bir yöntem kullanılabilir.

Bunların dışında Excel hücresine erişim konusunda belirttiğimiz erişim metodlarını kullanmamız da mümkündür.

Seçme işlemlerine dair bir örnek uygulama yapalım. Form üzerine 3 adet buton ekliyoruz.

Public Class Form1

    Dim xl

    'Excell nesnesi tanımlıyoruz

    Dim range

    'Range nesnemizi tanımlıyoruz

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satırsec.Click

        xl.worksheets(1).Activate()

        '1 nolu satırı seçtik

        xl.Rows("1:1").Select()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Excel nesnesini oluşturuyoruz

        xl = CreateObject("Excel.Application")

        'Yeni bir çalışma kitabı ekliyoruz

        xl.Workbooks.add()

        'Excel sayfasını görüntülüyoruz

        xl.application.visible = True

        '1 nolu çalışma sayfasını aktif ediyoruz           

        xl.worksheets(1).Activate()

        'A1 ve B1 hücrelerine değer yazıyoruz

        xl.cells(1, 1).value = "1.değer"

        xl.cells(1, 2).value = "2.değer"

        'Hücre isimlendirmede diğer bir yöntemde range nesnesidir 

        xl.cells.Range("$C$1") = "Deneme"

    End Sub

    Private Sub sutunsec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sutunsec.Click

        xl.worksheets(1).Activate()

        'C sütununu seçtik 

        xl.columns("C").select()

    End Sub

    Private Sub hucresec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hucresec.Click

        xl.worksheets(1).Activate()

        'C1 hücresini seçtik 

        xl.cells.range("$C$1").select()

        'Ya da 

        'xl.cells(1, 3).select()

    End Sub

End Class

Örneğimizde de görüldüğü gibi hücre adreslerini yazarken örneğin C1 hücresini belirtmek için   xl.cells(1, 3)  ifadesi kullanılabileceği gibi range nesnesi kullanılarak xl.cells.Range("$C$1") ifadesi de kullanılabilir.

Proje dosyasının linki:

http://www.volkanaktas.com/PrgDosya/vba/excelsecme.rar

Örneğimiz için form üzerine bir adet komut butonu ekleyelim ve şu kodları yazalım:

Public Class Form1

    Dim xl

    'Excell nesnesi tanımlıyoruz

    Dim range

    'Range nesnemizi tanımlıyoruz

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If CInt(xl.Range("$A$1").value) > 10 Then

            xl.Range("$A$1").Font.Color = QBColor(2)

        Else

            xl.Range("$A$1").ClearFormats()

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Excel nesnesini oluşturuyoruz

        xl = CreateObject("Excel.Application")

        'Yeni bir çalışma kitabı ekliyoruz

        xl.Workbooks.add()

        'Excel sayfasını görüntülüyoruz

        xl.application.visible = True

        '1 nolu çalışma sayfasını aktif ediyoruz           

        xl.worksheets(1).Activate()

        'A1 hücresine değer yazıyoruz       

        xl.cells.Range("$A$1") = "15"       

    End Sub

End Class

xl.Range("$A$1").Font.Color = QBColor(2) komut satırında QBColor(2) komutunu kullanarak hücrenin yazı rengini yeşil olarak değiştirdik. QBColor komutunun aldığı tüm renk parametreleri şunlardır:

QBCOLOR ()

Projemizin linki:

http://www.volkanaktas.com/PrgDosya/vba/excelkosullubicimlendirme.rar

Excel ile ilk uygulamamızda bir excel hücresine değer yazma uygulaması yapalım. Öncelikle form üzerine bir adet komut butonu ekleyelim. Kod olarak da şunları yazalım:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim xl

        xl = CreateObject("Excel.Application") 'Excel nesnesi oluşturuyoruz

        xl.Workbooks.add() 'Yeni bir çalışma kitabı ekliyoruz

        xl.application.visible = True 'Excel sayfasını görüntülüyoruz

        xl.worksheets(1).Activate() '1 nolu çalışma sayfasını aktif ediyoruz

        xl.cells(1, 1).value = "Deneme" 'A1 hücresine değerimizi yazıyoruz

    End Sub

End Class

Programımızı çalıştırdığımızda A1 hücresine Deneme yazıldığını görürüz.

xl.cells(1, 1) ifadesinde ilk değer satırı, ikinci değer ise sütunu belirtmektedir.

Projenin dosyasının linki:

http://www.volkanaktas.com/PrgDosya/vba/exceldegeryaz.rar

Örneğimizde programlarımızda msagent nesnesi ile ofis yardımcılarını kullanacağız. Bir Windows Application açıp ToolBox'ta sağ tıklayıp Choose Items seçeneğini tıklayalım. COM komponentlerinden Microsoft Agent Control komponentini ekleyelim.

1.Şekil: Microsoft Agent Control komponentinin eklenmesi

Biz örneğimizde genie isimli ofis yardımcısını kullandık bu ve daha fazla ofis yardımcısını http://www.microsoft.com/msagent/downloads/user.asp#character  adresinden seçerek indirebilirsiniz.

Daha sonra form üzerine bir text kutusu bir tane de komut butonu ekleyelim.

2.Şekil: Tasarım formu

ToolBox'ımıza Microsoft Agent Control komponenti eklenecektir. Sürükleyip formumuzun üzerine bırakalım. Yukarıdaki şekilde görülen şapkalı adam resmi Agent kontrolümüzdür.

Daha sonra kodumuzu aşağıdaki gibi yazalım;

Public Class Form1

    Dim Genie As AgentObjects.IAgentCtlCharacter

    Const DATAPATH = "genie.acs"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Genie.Show()

        Genie.Speak(TextBox1.Text)

        Genie.Hide()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        AxAgent1.Characters.Load("Genie", DATAPATH)

        Genie = AxAgent1.Characters("Genie")

        Genie.LanguageID = &H409

        TextBox1.Text = "Hello World!"

    End Sub

End Class

Proje dosyasının linki:

http://www.volkanaktas.com/PrgDosya/vba/msagent.rar

Bu ve diğer karakterlerle ilgili kullanabileceğiniz diğer animasyon ve işlemler için

http://download.microsoft.com/download/2/1/8/2183fc41-9313-4624-9e9e-25d26d0f7e19/docs.zip linkindeki yardım dosyasını kullanabilirsiniz.

Kaynak:MSDN

Bir veri tabanından alınan verileri word’a aktarma işlemini yapacağız. Formumuza bir adet text kutusu, bir adet de komut butonu ekleyelim. Daha sonra text kutusunun özelliklerinden data bindings bölümündeki advanced seçeneğine tıklayalım. Açılan pencerede binding bölümünden Add Project Data Source seçeneğine tıklayalım.

Gelen pencerede Database seçeneğini seçip next düğmesine basalım.

New Connection düğmesini tıklayalım.

Gelen pencerede Microsoft Access Database seçeneğini seçip Continue düğmesine basalım.

Gelen pencereden veritabanımızı seçelim ve OK butonuna basalım.

Karşımıza ana pencere veri tabanımızın türü, ismi ve yolu yazılı olarak gelecektir. Burada next düğmesine tıklayalım.

Karşımıza veri tabanının projede local olarak yer almasını isteyip istemediğimizi soran bir pencere gelecektir. Bu soruya evet diyelim.

Karşımıza oluşturduğumuz connection string’i kaydetmek isteyip istemediğimizi soran bir pencere gelir.

Gerekli ismi verip Next düğmesine tıkladığımızda karşımıza dataset içerisinde hangi tablo ve alanların kullanılacağının seçildiği bir pencere gelir. Burada kullanmak istediğimiz tablo ve alanları seçerek finish düğmesine basarak veri tabanı bağlama işlemini bitirmiş oluruz.

Formumuzu açıp bir adet komut butonu ekleyelim. İlgili alanı formumuza eklemek için Data menüsünden Show Data Sources ile projemize eklediğimiz veri tabanındaki alanların görüntülendiği Data Sources penceresini görüntüleriz.

Buradan soru alanını fare ile formumuza sürükleyip bıraktığımızda bir label ve text kutusu otomatik olarak oluşturularak gerekli veri bağlantıları kurulacaktır. DataSource penceresinde ki her nesneyi, sağlanan seçenekleri kullanarak sürükle bırak yöntemi ile forma taşıyabilirsiniz.

Şimdi kod yazımına geçebiliriz.  

Öncelikle,"System.Data.OleDB" ad uzayını programımıza dahil etmemiz gerekmektedir bunun için kod editörümüzün en üst satırına(ilk satır) aşağıdaki kod satırını yazalım;

Imports System.Data.OleDb

Daha sonra butonumuzun Click olayına aşağıdaki kod ile "OleDbConnection" nesnesi oluşturalım;

Dim sorgulama As String = "SELECT DISTINCT soru FROM sorubank"

        Dim baglantim As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\vba\vbdotnet\mdb2word\sorubank.mdb;")

         Bu işlemden sonra,"OleDbConnection" nesnesini kullanarak "yeninesne" isminde  bir "OleDbCommand" oluşturalım ve ikinci satırda veritabanı bağlantımızı aktif hale getirelim;

Dim yeninesne As New OleDbCommand(sorgulama, baglantim)

 baglantim.Open()

         Şimdi,"verioku" isimli bir "OleDataReader" tanımlayalım bir sonraki satırda "OleDbCommand" nesnesinin "ExecuteReader" metodunu kullanarak tablo yapısını oluşturalım.

Dim verioku As OleDbDataReader

verioku = yeninesne.ExecuteReader()

         Son olarak "OleDbDataReader" nesnesinin "Read" metodunu kullanarak veritabanımızın önceden belirtmiş olduğumuz tablosundaki veriyi alalım ve yine "OleDbDataReader" nesnesinin "GetString" metodunu kullanarak metin kutusu içerisine yerleştirelim ve veritabanı baglantımızı pasif hale getirerek işlemimizi sonlandıralım.

 While verioku.Read()

      TextBox1.Text = TextBox1.Text & verioku.GetString(0) _

         & ControlChars.CrLf

End While

verioku.close()

baglantim.close()

Sonuç olarak kodumuz şu şekilde olacak:

Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim j As Byte

        Dim sorgulama As String = "SELECT DISTINCT soru FROM sorubank"

        Dim baglantim As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\vba\vbdotnet\mdb2word\sorubank.mdb;")

        Dim yeninesne As New OleDbCommand(sorgulama, baglantim)

        baglantim.Open()

        Dim verioku As OleDbDataReader

        verioku = yeninesne.ExecuteReader()

        j = 0

        While verioku.Read()

            j = j + 1

            SoruTextBox.Text = SoruTextBox.Text & "S-" & j & ")" & verioku.GetString(0) & ControlChars.CrLf

        End While

        verioku.Close()

        baglantim.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objWord As Object

        Dim objDocument As Object

        Dim yol As String

        objWord = CreateObject("Word.Application")

        objDocument = objWord.Documents.Add

        objWord.Visible = True

        objDocument.Range.InsertBefore(SoruTextBox.Text)

        yol = Application.LocalUserAppDataPath

        objDocument.SaveAs(yol & "\sorular" & ".doc")

        ChDir(yol)

        objDocument.Close()

        objWord.Quit()

        objDocument = Nothing

        objWord = Nothing

        MsgBox("Sorular WORD'a aktarıldı!")

    End Sub

End Class

Proje dosyasının linki (İçerisinde veri tabanı dosyası da mevcuttur):

http://www.volkanaktas.com/PrgDosya/vba/mdb2word.rar

Örneğimiz bir klasördeki word belgeleri içinde istediğimiz bir kelimeyi aratıp o kelime bulunduğunda belgeyi açarak bulunduğu yeri işaretliyor. Örneğimizi referans kullanma yöntemi ile yaptım. Dolayısı ile 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çip OK tuşuna basıyoruz.

Daha sonra formumuza bir adet drivelist nesnesi, bir adet dirlist kontrolü, bir adet filelist kontrolü, iki adet de komut butonu ekleyelim. Ekran tasarımı şu şekilde olacak:

Kod ise şu şekilde:

Public Class Form1

    Private Sub cmdiptal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdiptal.Click

        End

    End Sub

    Private Sub DirListBox1_Change(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.Change

        FileListBox1.Path = DirListBox1.Path

    End Sub

    Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged

        DirListBox1.Path = DriveListBox1.Drive

    End Sub

    Private Sub cmdtamam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtamam.Click

        Try

            Dim aranan, belge

            Dim WordApp As Microsoft.Office.Interop.Word.Application 'word uygulamasını tanımlıyoruz

            Dim WordDoc As Microsoft.Office.Interop.Word.Document 'word belgesini tanımlıyoruz

            aranan = InputBox("Aranan metni giriniz", "Arama")

            If aranan = "" Then Exit Sub

            Me.Hide()

            WordApp = CreateObject("Word.Application") 'Word uygulamasını oluşturuyoruz

            WordApp.Visible = True 'word belgesini görünür yapıyoruz

            belge = Dir(FileListBox1.Path & "\*.doc")  'seçilen klasördeki word belgelerini aratıyoruz

            While belge <> ""

                'Klasördeki word belgelerini sırayla açıyoruz

                WordDoc = WordApp.Documents.Open(FileListBox1.Path & "\" & belge)

                WordApp.Selection.HomeKey(Unit:=6) 'Belgemizi sonuna kadar seçiyoruz

                'Daha önceden tanımlanmış olan bulma parametrelerini temizliyoruz

                WordApp.Selection.Find.ClearFormatting()

                With WordApp.Selection.Find

                    'Bulma parametrelerini tanımlıyoruz

                    .Text = aranan

                    .Forward = True

                    .Wrap = 0

                    .Format = False

                    .MatchCase = False

                    .MatchWholeWord = False

                    .MatchWildcards = False

                    .MatchSoundsLike = False

                    .MatchAllWordForms = False

                End With

                'Bulma işlemini başlatıyoruz

                WordApp.Selection.Find.Execute()

                If WordApp.Selection.Find.Found = True Then

                    Exit Sub

                End If

                belge = Dir()

                'Eğer bulunamadı ise belgeyi kapatıyoruz

                If WordApp.Selection.Find.Found = False Then

                    WordDoc.Close() 'Word belgesini kapatıyoruz

                End If

            End While

            If WordApp.Selection.Find.Found = False Then

                WordDoc.Close() 'word belgesini kapatıyoruz

                MsgBox("Aranan metin bulunamadı")

            End If

            WordApp.Quit() 'Word uygulamasını kapatıyoruz

            WordDoc = Nothing 'Word belgesini bellekten siliyoruz

            WordApp = Nothing 'Word uygulamasını bellekten siliyoruz

        Catch

            MsgBox("Aranan yazı veya dosya bulunamadı")

            Exit Sub

        End Try

    End Sub

End Class

selection.HomeKey(Unit:=6, Extend:=0) ifadesi seçimi belgenin başına taşımak ya da genişletmek için kullanılır ve kullanımı şu şekildedir:

   ifade.HomeKey(Unit, Extend)

Şu değerler bu ifade içerisinde kullanılabilir.

Eğer   Extend yerine wdExtend ya da 1 yazılırsa seçim genişletilir, wdMove ya da  0 yazılırsa seçim taşınır.

Unit ise üzerinde işlem yapılacak birimi belirler ve şu değerleri alabilir:

wdUnits tipleri

Sabit                                            Değer

wdCell                                      12

wdCharacter                              1

wdCharacterFormatting               13

wdColumn                                 9

wdItem                                    16

wdLine                                     5

wdParagraph                             4

wdParagraphFormatting              14

wdRow                                     10

wdScreen                                  7

wdSection                                 8

wdSentence                              3

wdStory                                    6

wdTable                                   15

wdWindow                                11

wdWord                                    2

Biz örneğimizde wdStory ya da 6 rakamını kullandık

WdFindWrap işlemi ise aranan metin bulunamazsa ne yapılacağını belirler

WdFind tipleri

SAbit                                 Value                     Anlamı

wdFindAsk                   2                      Aramaya devam edilip edilmeyeceği kullanıcıya sorulur.

wdFindContinue          1                      Aramaya belgenin başından veya sonundan devam edilir.

wdFindStop                                   0                                     Arama işlemi bitirilir.

Son olarak proje dosyasının linkini vereyim:

http://www.volkanaktas.com/PrgDosya/vba/wordarama.rar

Belgemize tablo eklemek için aşağıdaki örneği inceleyelim. Formumuza tablo ekle ve kapat isimli iki adet komut butonu ekleyelim ve şu kodları yazalım:

Public Class Form1

    Dim objWord As Object 'word programı

    Dim objDocument As Object 'word belgesi

    Dim objselection As Object

    Dim objtable As Object

    Dim objrange As Object

    Const END_OF_STORY = 6

    Private Sub cmdkapat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkapat.Click

        Try

            objDocument.Close() 'word belgesini kapat

            objWord.Quit()  'word uygulamasını kapat

            objDocument = Nothing 'word belgesini bellekten sil

            objWord = Nothing 'word uygulamasını bellekten sil

        Catch

            MsgBox("Önce belge açmanız gerekiyor")

            Exit Sub

        End Try

    End Sub

    Private Sub cmdtabloekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtabloekle.Click

        objDocument = objWord.Documents.Add 'yeni word belgesi açıyoruz.

        objWord.Visible = True 'word programını görünür hale getiriyoruz.

        objselection = objWord.Selection

        objselection.TypeText("Tablo 1") 'Tablodan önce Tablo 1 yazısını ekliyoruz

        objselection.TypeParagraph() 'paragrafı seçiyoruz

        objRange = objselection.Range

        objDocument.Tables.Add(objRange, 6, 2) '6 satır 2 sütun genişliğinde tablo oluşturuyoruz

        objtable = objDocument.Tables(1) 'Tablomuzu tanımlıyoruz

        objselection.EndKey(END_OF_STORY) 'Belgeyi sonuna kadar seçiyoruz

        objselection.TypeParagraph() 'Seçim tipini paragraf olarak belirliyoruz

        With objDocument.Range.Tables(1)    ' Tablomuzun genişliğini ayarlıyoruz

            .Columns(1).SetWidth(120, 0)

            .Columns(2).SetWidth(170, 0)

            .Rows(1).Cells.Shading.BackgroundPatternColorIndex = 16 'Tablonun ilk satırını parlak gri yapıyoruz

            .Rows(1).Range.Bold = True 'İlk satırı koyu yapıyoruz.

            .Cell(1, 1).Range.Paragraphs.Alignment = 1 '(1,1) hücresini ortalıyoruz

            With objDocument.Range.Tables(1)    ' 'Satırları dolduruyoruz

                .Cell(1, 1).Range.InsertAfter("İl") '1. satır 1. sütun

                .Cell(1, 2).Range.InsertAfter("İlçe")

                .Cell(2, 1).Range.InsertAfter("Diyarbakır")

                .Cell(2, 2).Range.InsertAfter("Ergani")

                .Cell(3, 1).Range.InsertAfter("Mersin")

                .Cell(3, 2).Range.InsertAfter("Merkez")

                .Cell(4, 1).Range.InsertAfter("Ankara")

                .Cell(4, 2).Range.InsertAfter("Merkez")

                .Cell(5, 1).Range.InsertAfter("Şanlıurfa")

                .Cell(5, 2).Range.InsertAfter("Merkez")

                .Cell(6, 1).Range.InsertAfter("Van")

                .Cell(6, 2).Range.InsertAfter("Özalp")

            End With

        End With

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        objWord = CreateObject("Word.Application") 'yeni word uygulaması oluşturuyoruz.

    End Sub

End Class

Program çalıştırılıp tablo ekle düğmesine basıldığında aşağıdaki gibi bir tablo oluşturulacaktır.

Tablo1

SetWidth özelliği bir tablodaki sütun genişliklerini ayarlamak için kullanılan metoddur ve kullanımı şu şekildedir:

ifade.SetWidth(Sütun genişliği, sitil)

ifade ile belirtilen yerde Cell, Cells, Column, veya Columns nesneleri kullanılabilir

ColumnWidth : Bir ya da birden fazla sütunun genişliğini nokta cinsinden ayarlar.

Sitil olarak ise şu tanımlamalar kullanılabilir:

wdAdjustFirstColumn :Yalnızca ilk sütunun genişliği belirlenen değere göre ayarlanır.Eğer birden fazla sütun varsa bu sütun genişlikleri sağ kenara göre yeniden ayarlanır.

wdAdjustNone: Seçili olan bütün sütun veya hücrelerin genişlikleri belirlenen değere göre ayarlanır. Seçili olmayan sütunların genişlikleri sağa veya sola gerekli miktarda kaydırılarak otomatik olarak ayarlanır. Varsayılan değer budur.

wdAdjustProportional: Yalnızca ilk sütunun genişliği belirlenen değere göre ayarlanır.Eğer seçili olan birden fazla sütun varsa tablonun sağ kenarına göre ve seçili olmayan sütunlarla seçili olan sütunların genişliklerinin orantılı olarak ölçülendirilmesiyle genişlikleri yeniden düzenlenir. Eğer  yalnızca bir hücre ya da sütun seçili ise tablonun sağ kenarına göre diğer hücre ya da sütunlar orantılı olarak ölçülendirilir.

wdAdjustSameWidth : Bütün sütunlar eşit olacak şekilde ayarlanır.

Eğer istenirse bu parametreler yerine şu rakamsal ifadeler de kullanılabilir.

wdAdjustFirstColumn  = 2

wdAdjustNone = 0

wdAdjustProportional = 1

wdAdjustSameWidth = 3

.Rows(1).Cells.Shading.BackgroundPatternColorIndex satırı ise hücremizin zemin rengini değiştirmek için kullanılır ve şu renk değerlerini alır:

WdColorIndex

wdAuto                      0

wdBlack                     1

wdBlue                       2

wdBrightGreen          4

wdByAuthor             -1

wdDarkBlue               9

wdDarkRed               13

wdDarkYellow          14

wdGray25                  16

wdGray50                  15

wdGreen                    11

wdNoHighlight          0

wdPink                       5

wdRed                       6

wdTeal                       10

wdTurquoise              3

wdViolet                    12

wdWhite                    8

wdYellow                  7

.Cell(1, 1).Range.Paragraphs.Alignment satırı ile tablomuzdaki hücrelerin hizalama şeklini belirledik. Herhangi bir yazı ya da paraqrafı hizalamak için de Alignment ifadesi kullanılabilir. Bu ifade şu parametre ve değerleri alır:

wdAlignParagraphCenter                  1

wdAlignParagraphDistribute             4

wdAlignParagraphJustify                  3

wdAlignParagraphJustifyHi              7

wdAlignParagraphJustifyLow          8

wdAlignParagraphJustifyMed          5

wdAlignParagraphLeft                      0

wdAlignParagraphRight                    2

wdAlignParagraphThaiJustify           9

Proje dosyasının linki:

http://www.volkanaktas.com/PrgDosya/tabloekle.rar

Herhangi bir yazıdaki hataları word programının yazım denetimini kullanarak düzeltmek için şu işlemler yapılır. Örnek olarak formumuza bir komut butonu, bir de text kutusu ekleyelim. Komut butonuna tıklandığında text kutusuna girilen yazının yazım denetimi Türkçe’ye göre yapılsın ve düzeltilmiş hali tekrar text kutusuna aktarılsın.

Kod şu şekilde olacak:

Public Class Form1

    Private Sub cmdyazimdenetimi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdyazimdenetimi.Click

        Dim dil

        Dim ObjWord As Object, yazi$

        Dim objselection As Object

        On Error Resume Next

        ObjWord = CreateObject("Word.Basic") 'Word uygulamamızı oluşturuyoruz

        objselection = ObjWord.Selection

        ObjWord.AppShow() 'word penceresini görüntülüyoruz

        ObjWord.FileNew() 'yeni belge oluşturuyoruz

        ObjWord.Insert(TextBox1.Text)  'Düzeltilecek yazı word belgesine aktarıyoruz

        ObjWord.ToolsSpelling() 'Yazım denetimini çalıştırıyoruz

        ObjWord.EditSelectAll()

        ObjWord.Selection.WholeStory()

        ObjWord.Selection.Text = TextBox1.Text

        objselection.languageID = 1055 'Heceleme dili olarak Türkçe'yi seçtik

        yazi = ObjWord.Selection$()

        TextBox1.Text = yazi.Substring(0, Len(yazi) - 1) 'düzeltilecek karakterleri belirliyoruz

        Show()     'formumuzu görüntülüyoruz

        ObjWord = Nothing 'word belgemizi hafızadan siliyoruz

    End Sub

End Class

Substring(parametre1,parametre2) fonksiyonu yazıda belli sayıdaki karakteri bulmak için kullanılır. İlk parametresi kaçıncı karakterden başlanacağı, ikinci parametresi ise kaç karakter alınacağını belirler.

Görüldüğü gibi objselection.languageID = 1055 ifadesi ile heceleme dilini Türkçe olarak belirledik

Son olarak proje dosyasının linkini vereyim:

http://www.volkanaktas.com/PrgDosya/yazimdenetimi.rar