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

Microsoft'un programcılar için özel olarak ürettiği font. Ben çok beğendim.

Şuradan indirebilirsiniz.

Örneğimizde bir text kutusuna girilen yazıdaki cümle sayısını bulacağız. Form üzerine bir adet buton ve bir adet de textbox ekliyoruz. Textbox'ın multiline özelliğini true yapıyoruz ki alt alta birden fazla cümle eklenebilsin.Kodumuz ise şu şekilde olacak:

Public Class Form1

Private Sub cmdbul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbul.Click

Dim i, cumlesay As Integer

For i = 1 To Len(TextBox1.Text)

If Mid(TextBox1.Text, i, 1) = "." Then cumlesay = cumlesay + 1

Next

MsgBox("Cümle Sayısı= " & cumlesay)

End Sub

End Class

Kodlarımızı inceleyecek olursak:

Yazının ilk harfinden son harfine kadar bir For döngüsü kuruyoruz. Cümlenin son harfine kadar döngümüzü kurabilmek için Len fonksiyonu ile textbox'a girilen yazının uzunluğunu buluyoruz. Mid fonksiyonu ile de cümlenin harflerini sıra ile ele alarak noktaya eşit olup olmadığını sorguluyoruz. Çünkü nokta sayısı cümle sayısına eşittir.

Son olarak proje dosyasının linkini vereyim:

Bir arkadaşım için yapmaya başladığım bir proje idi. Bilgisayarın donanımını test edip bularak verilen özelliklerle karşılaştırır. Sonuçta uyumlu ya da uyumsuz şeklinde rapor verir.

Proje Linki:

http://www.volkanaktas.com/PrgDosya/donanımtest.rar

20 Nisan Pazar günü itibari ile oğlum Talha'nın sünnet merasimini gerçekleştirdik. Gelen dost ve akrabalarımız ile güzel bir gün geçirdik. Allah evliliğini de hayırlısı ile görmeyi nasib etsin. Sünnet töreni öncesi çektirdiğimiz fotoğraflardan bir tanesini aşağıda veriyorum. Oğlum Talha ve kızım Sümeyye.Maaşallah diyelim lütfen :)

Formumuza bir text kutusu 2 adet de komut butonu ekleyelim. Bir komut düğmesine basarak text kutusuna girdiğimiz yazıyı word belgesine çeşitli formatlarda ekleyeceğiz. Diğer komut butonu ise belgeyi kapatacak. Ayrıca belgemizin dilini tespit ederek bunu da text kutusuna yazacağız.

Kod şu şekilde olacak:

Public Class Form1

    Dim objWord As Object 'word programı

    Dim objDocument As Object

    Dim objselection 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 cmdyaziekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdyaziekle.Click

        Dim dil

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

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

        objselection = objWord.Selection

        If Not TextBox1.Text = "" Then

            With objDocument.Paragraphs(1)

                .Alignment = 1

            End With

            With objselection.Font

               .Name = "Times New Roman" 'yazı tipini değiştiriyoruz

               .Size = 14 'yazı boyutunu değiştiriyoruz

               .Underline = True 'yazıyı altı çizili yapıyoruz

            End With

            objselection.boldrun() 'yazıyı kalın yapıyoruz

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

            objselection.TypeParagraph() 'paragrafı seçiyoruz

            objselection.boldrun()  'yazının kalınlık özelliğini kaldırıyoruz

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

            dil = objselection.languageID

            If dil = 1055 Then

               TextBox1.Text = TextBox1.Text & " dil Türkçe"

            Else

              If dil = 2057 Then

               TextBox1.Text = TextBox1.Text & " dil İngiltere İngilizcesi"

              Else

              If dil = 1033 Then

               TextBox1.Text = TextBox1.Text & " dil Amerikan İngilizcesi"

              End If

             End If

            End If

        End If

    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ımızda

  With objDocument.Paragraphs(1)

        .Alignment = wdAlignParagraphCenter

    End With

İfadesi ile hizalama seçili olan paragrafı hizaladık.

  .Alignment ifadesi şu değerleri alabilir:

1 değeri ortaya hizalama

0 değeri sola hizalama

2 değeri sağa hizalama

Yazımızı kalın yapmak için iki ayrı yöntem kullanabiliriz..

Birinci yöntem de  objselection.boldrun ifadesini kullanabiliriz.

Elbette öncelikle bir alanın seçilmesi gereklidir. Çünkü objselection ifadesi ile seçili olan alan üzerinde işlem yapılır.

objselection.TypeParagraph ifadesi ile paragrafı seçiyoruz.

objselection.boldrun ilk yazıldığında yazıyı kalın yapar tekrar yazıldığında ise yazının kalınlık özelliğini kaldırır.

objselection.Font.bold=true yazarak da yazımızı kalın yapabiliriz.

objselection.Font.bold=false yazarak yazının kalınlık özelliğini kullanabiliriz.

Biz programımızda objselection.Font.Underline=true yazarak yazımızı altı çizili yaptık.

objselection.Font.Italic=true yazılarak seçili olan yazı eğik hale getirilebilir.

Ayrıca örneğimizde objselection.languageID ifadesi ile belgemizin dilini tespit ettik. Biz burada yalnızca birkaç adet dil tanımlaması kullandık.

objselection.languageID ifadesinin aldığı tüm parametreler şunlardır: 

Son olarak proje dosyamızın linkini verelim:

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

Öncelikle projemize OpenFileDialog nesnesini , formumuza  da 3 adet buton ekleyelim. Biri belge açma, biri önizleme biri de kapatma için olsun. Kod ise şu şekilde olacak:

Public Class Form1

    Dim objWord As Object 'word programı

    Dim objDocument As Object

    Private Sub cmdbelgekapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbelgekapa.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 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

    Private Sub cmdbelgeac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbelgeac.Click

        OpenFileDialog1.Title = "Belge seçiniz..."

        OpenFileDialog1.Filter = "Word Belgeleri (*.doc)|*.doc|Zengin Metin Biçimi (*.rtf)|*.rtf"

        OpenFileDialog1.FilterIndex = 1

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.Cancel Then

            MsgBox("Dosya seçilmedi")

        Else

            objDocument = objWord.Documents.Open(OpenFileDialog1.FileName)

            objWord.Visible = True

        End If

    End Sub

    Private Sub cmdonizleme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdonizleme.Click

        objWord.WindowState = 0

        'word penceresini tam ekran yapıyoruz

        objWord.Visible = True

        objWord.Activate()

        objDocument.PrintPreview()

    End Sub

End Class

WindowState özelliği word penceremizin ekran boyutunu belirler ve şu değerleri alabilir:

Normal pencere için 0 değeri

Tam ekran yapmak için 1 değeri

Simge durumuna küçültmek için 2 değeri

Son olarak proje dosyamızın linkini vereyim

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

Örneğimizde klavyeden girilen bir sayının faktöriyelini bulacağız. Mesela 4 sayısının faktöriyeli matematikte şu şekilde bulunur:

4*3*2*1=24

4 sayısının faktöriyeli 24'tür. Buna göre programımızda 1 den klavyeden girilen sayıya kadar bir döngü oluşturacağız. Ve döngü değeri ile çarpım değerini her defasında yeniden çarpacağız. Kodumuz şu şekilde olacak:

Public Class Form1

Private Sub cmdsayigir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsayigir.Click

Dim i, sayi, fak As Integer

sayi = InputBox("Faktöriyeli bulunacak sayıyı girin")

For i = 1 To sayi

Next i

MsgBox(sayi & " sayısının faktöriyeli = " & fak)

End Sub

End Class

Son olarak proje dosyasını vereyim:

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

Bu örneğimizde yeni belge açma, kaydetme, kapatma olaylarını yapalım ve hata kontrolünü de ekleyelim. Çünkü eğer bir belge açılamadı ise kayıt ya da kapatma olayını yapmaya kalktığımızda hata verecektir. Form üzerine 3 adet button nesnesi ekleyelim. Kod olarak da aşağıdaki satırları yazalım.

Ö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.