Cara mengotomatiskan Word dari Visual Basic atau Visual Basic untuk aplikasi untuk pemeriksaan ejaan

Kembali ke atas

Menciptakan mantra cek klien

1. Mulai Visual Basic dan buat baru Standar EXE proyek. Form1 dibuat secara default.
2. Tambahkan kontrol TextBox dan CommandButton untuk Form1.
3. Dalam jendela kode untuk Form1, tambahkan kode berikut:

   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. Mengkompilasi dan menjalankan program. Tekan Command1 tombol perintah untuk menjalankan spell check. Kata mantra cek dialog kotak akan muncul untuk mengkonfirmasi ejaan kata-kata "salah eja", "textt" "menerima", dan "resultes". Setelah Anda memperbaiki kata yang salah eja, teks adalah kembali ke kotak teks.

Kembali ke atas