PublicClass WordClassClass WordClass PublicFunction wirteWord()Function wirteWord(ByValstrAsString, ByVal title AsString) AsBoolean Dim WordApp As Word.Application Dim WordDoc As Word.Document Try Dim obj AsObject= System.Reflection.Missing.Value '取得Word文件保存路径 Dim filename AsObject="C:InetpubwwwrootSLOA_NETdocumentDocManage"+ title +".doc" '创建一个名为WordApp的组件对象 WordApp =New Word.ApplicationClass 'vs.net 2005里已经没有applicationclass了,直接用application即可 '创建一个名为WordDoc的文档对象 WordDoc = WordApp.Documents.Add() '在文档空白地方添加文字内容 WordDoc.Paragraphs.Last.Range.Text =str '保存 WordDoc.SaveAs(filename) '关闭WordDoc文档对象 WordDoc.Close() '关闭WordApp组件对象 WordApp.Quit() ReturnTrue Catch ex As Exception IfNot WordDoc IsNothingThen WordDoc.Close() EndIf IfNot WordApp IsNothingThen WordApp.Quit() EndIf ReturnFalse EndTry End Function PublicFunction readWord()Function readWord(ByVal title AsString) AsString Dim WordApp As Word.Application Dim WordDoc As Word.Document Try Dim obj AsObject= System.Reflection.Missing.Value Dim filename AsObject="C:InetpubwwwrootSLOA_NETdocumentDocManage"+ title +".doc" WordApp =New Word.ApplicationClass WordDoc = WordApp.Documents.Open(filename) Dim comment AsString= WordDoc.Range.Text WordDoc.Close() WordApp.Quit() Return comment Catch ex As Exception IfNot WordDoc IsNothingThen WordDoc.Close() EndIf IfNot WordApp IsNothingThen WordApp.Quit() EndIf ReturnNothing EndTry End Function PublicFunction printWord()Function printWord(ByVal title AsString) AsBoolean Dim WordApp As Word.Application Dim WordDoc As Word.Document Try Dim obj AsObject= System.Reflection.Missing.Value Dim filename AsObject="C:InetpubwwwrootSLOA_NETdocumentDocManage"+ title +".doc" WordApp =New Word.ApplicationClass WordDoc = WordApp.Documents.Open(filename) WordApp.Visible =True 'WordApp.ActivePrinter = WordDoc.Range.Text 'WordDoc.Close() 'WordApp.Quit() ReturnTrue Catch ex As Exception 'If Not WordDoc Is Nothing Then 'WordDoc.Close() 'End If 'If Not WordApp Is Nothing Then 'WordApp.Quit() 'End If 'Return Nothing EndTry ReturnFalse End Function PublicFunction printSetWord()Function printSetWord(ByVal title AsString) Dim WordApp As Word.Application Dim WordDoc As Word.Document Try Dim obj AsObject= System.Reflection.Missing.Value Dim filename AsObject="C:InetpubwwwrootSLOA_NETdocumentDocManage"+ title +".doc" WordApp =New Word.ApplicationClass WordDoc = WordApp.Documents.Open(filename) WordApp.Visible =True WordApp.PrintPreview =True 'WordDoc.Close() 'WordApp.Quit() Catch ex As Exception 'If Not WordDoc Is Nothing Then 'WordDoc.Close() 'End If 'If Not WordApp Is Nothing Then 'WordApp.Quit() 'End If 'Return Nothing EndTry End Function PublicFunction viewWord()Function viewWord(ByVal title AsString) Dim WordApp As Word.Application Dim WordDoc As Word.Document Try Dim obj AsObject= System.Reflection.Missing.Value Dim filename AsObject="C:InetpubwwwrootSLOA_NETdocumentDocManage"+ title +".doc" WordApp =New Word.ApplicationClass WordDoc = WordApp.Documents.Open(filename) WordApp.Visible =True WordApp.PrintPreview =True Catch ex As Exception IfNot WordDoc IsNothingThen WordDoc.Close() EndIf IfNot WordApp IsNothingThen WordApp.Quit() EndIf ReturnNothing EndTry End Function End Class