Makale numarası: 243844 - Son Gözden Geçirme: 28 Mayıs 2008 Çarşamba - Gözden geçirme: 8.1

Yazım denetimi için Word, Visual Basic veya Visual Basic for Applications otomatikleştirmek için

Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Yazılım, Microsoft Office ile birlikte çalışmak üzere yazılmış yazım kendi uygulama denetimi eklemek için Microsoft Word'ün yeteneklerini denetimi yazım yararlanabilirsiniz.

Word'ün otomasyon modeli, Word'de bulunan bir belgenin yazım denetimi sağlayan bir CheckSpelling işlevi içerir. Word Automation'ı kullanarak, geliştiriciler oluşturabilir dinamik olarak yeni bir belge, denetlemek istediğiniz metin ekleyin ve sonra Word, yazım denetimi vardır. Bu makalede, Word bu işlevselliği sağlamak için otomatikleştirilir gösterilmiştir.

Daha fazla bilgi

Bu kod örneği, Microsoft Visual Basic veya Microsoft Visual Basic for Applications herhangi bir değişiklik kullanabilirsiniz. Ancak, örnek, yeni bir proje oluşturmak için Visual Basic istemci kullandığınızı varsaymaktadır.

Bir yazım onay istemci oluşturma

  1. Visual Basic'ı başlatın ve yeni bir Standart exe DOSYASı) projesi oluşturun. Varsayılan olarak, Form1 oluşturulur.
  2. Bir TextBox denetimine ve KomutDüğmesi Form1'e ekleyin.
  3. Form1 kod penceresinde, aşağıdaki kodu ekleyin:
    Option Explicit
    
    Private Declare Function CoAllowSetForegroundWindow Lib "ole32.dll" (ByVal pUnk As Object, ByVal lpvReserved As Long) As Long
    
    Private Sub Command1_Click()
        Dim oWord As Object
        Dim oTmpDoc As Object
        Dim lOrigTop As Long
        
        ' Create a Word document object
        Set oWord = CreateObject("Word.Application")
        
        CoAllowSetForegroundWindow oWord, 0
    
        Set oTmpDoc = oWord.Documents.Add
        ' Position Word off screen to avoid having document visible
        lOrigTop = oWord.Top
        oWord.WindowState = 0
        oWord.Top = -3000
        
        oWord.Visible = True
        oWord.Activate
        
        ' Copy the contents of the text box to the clipboard
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
        Clipboard.Clear
        Clipboard.SetText Text1.SelText
        
        ' Assign the text to the document and check spelling
        
        With oTmpDoc
            .Content.Paste
            .Activate
            .CheckSpelling
            
            ' After the user has made changes, use the clipboard to
            ' transfer the contents back to the text box
            .Content.Copy
            Text1.Text = Clipboard.GetText(vbCFText)
            ' Close the document and exit Word
            .Saved = True
            .Close
        End With
        Set oTmpDoc = Nothing
        
        oWord.Visible = False
        
        oWord.Top = lOrigTop
        oWord.Quit
        Set oWord = Nothing
    End Sub
    
  4. Derleme ve programı çalıştırın. Yazım denetimi için Command1 komut düğmesine basın. Sözcükleri "yanlış", "textt", "Al" ve "resultes" yazımını onaylamak için Word'ün yazım onay iletişim kutusu görüntülenir. Hatalı yazılan sözcükleri düzeltmenizi sonra metni metin kutusuna gönderilir.

Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Word 2007
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
  • Microsoft Word 97 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 4.0 Enterprise Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Anahtar Kelimeler: 
kbmt kbautomation kbhowto KB243844 KbMttr
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:243844  (http://support.microsoft.com/kb/243844/en-us/ )