Dim wd As New Word.Application strpath = File1.Path & "\" & File1.FileName Flag = wd.Documents.Open(FileName:=strpath, passworddocument:=pass)
引用word库文件,编译成dll后就可以直接import的
这是Invoke Word's Spell Checker的代码,楼主可以借鉴一下If txtComment.Text.Length > 0 Then Dim word As New Word.ApplicationClass() Dim doc As Word.DocumentClass = _ word.Documents.Add() word.Visible = False Clipboard.SetDataObject(txtComment.Text) doc.Content.Paste() doc.Activate() doc.CheckSpelling() doc.Content.Copy() If Clipboard.GetDataObject.GetDataPresent( _ DataFormats.Text) Then txtComment.Text = _ CType(Clipboard.GetDataObject.GetData( _ DataFormats.Text), String) End If doc.Saved = True doc.Close() word.Quit() End If
可以先建立一个空doc,然后一边往里面写文本,一边edit
strpath = File1.Path & "\" & File1.FileName
Flag = wd.Documents.Open(FileName:=strpath, passworddocument:=pass)
Dim word As New Word.ApplicationClass()
Dim doc As Word.DocumentClass = _
word.Documents.Add()
word.Visible = False Clipboard.SetDataObject(txtComment.Text)
doc.Content.Paste()
doc.Activate()
doc.CheckSpelling() doc.Content.Copy()
If Clipboard.GetDataObject.GetDataPresent( _
DataFormats.Text) Then
txtComment.Text = _
CType(Clipboard.GetDataObject.GetData( _
DataFormats.Text), String)
End If doc.Saved = True
doc.Close()
word.Quit()
End If