资源描述:
《VBNET操作word文档代码.doc》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、VB.NET操作WORD(VBA)VB.NET操作WORD1PublicClassWordOpLib234PrivateoWordApplicAsWord.ApplicationClass5PrivateoDocumentAsWord.Document6PrivateoRangeAsWord.Range7PrivateoShapeAsWord.Shape8PrivateoSelectionAsWord.Selection91011PublicSubNew()12'激活comword接口13oWordApplic=NewWord.ApplicationClass14oWo
2、rdApplic.Visible=False1516EndSub17'设置选定文本18PublicSubSetRange(ByValparaAsInteger)19oRange=oDocument.Paragraphs(para).Range20oRange.Select()21EndSub22PublicSubSetRange(ByValparaAsInteger,ByValsentAsInteger)23oRange=oDocument.Paragraphs(para).Range.Sentences(sent)24oRange.Select()25EndSub26
3、PublicSubSetRange(ByValstartpointAsInteger,ByValendpointAsInteger,ByValflagAsBoolean)27Ifflag=TrueThen28oRange=oDocument.Range(startpoint,endpoint)29oRange.Select()30Else3132EndIf33EndSub3435'生成空的新文档36PublicSubNewDocument()37Dimmissing=System.Reflection.Missing.Value38DimisVisibleAsBoole
4、an=True39oDocument=oWordApplic.Documents.Add(missing,missing,missing,missing)40oDocument.Activate()41EndSub42'使用模板生成新文档43PublicSubNewDocWithModel(ByValFileNameAsString)44Dimmissing=System.Reflection.Missing.Value45DimisVisibleAsBoolean=False46DimstrNameAsString47strName=FileName48oDocume
5、nt=oWordApplic.Documents.Add(strName,missing,missing,isVisible)49oDocument.Activate()50EndSub51'打开已有文档52PublicSubOpenFile(ByValFileNameAsString)53DimstrNameAsString54DimisReadOnlyAsBoolean55DimisVisibleAsBoolean56Dimmissing=System.Reflection.Missing.Value5758strName=FileName59isReadOnly=
6、False60isVisible=True6162oDocument=oWordApplic.Documents.Open(strName,missing,isReadOnly,missing,missing,missing,missing,missing,missing,missing,missing,isVisible,missing,missing,missing,missing)63oDocument.Activate()6465EndSub66PublicSubOpenFile(ByValFileNameAsString,ByValisReadOnlyAsBo
7、olean)67DimstrNameAsString68DimisVisibleAsBoolean69Dimmissing=System.Reflection.Missing.Value7071strName=FileName72isVisible=True7374oDocument=oWordApplic.Documents.Open(strName,missing,isReadOnly,missing,missing,missing,missing,missing,missing,missing,missing,isVisible,m