如何把VB中TEXT数据输出到word模板中的指定位置

展开全部 要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。

VERSION 1.0 CLASSBEGINMultiUse = -1 'TruePersistable = 0 'NotPersistableDataBindingBehavior = 0 'vbNoneDataSourceBehavior = 0 'vbNoneMTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = ＂SetWord＂Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = FalsePrivate mywdapp As Word.ApplicationPrivate mysel As Object'属性值的模块变量Private C_TemplateDoc As StringPrivate C_newDoc As StringPrivate C_PicFile As StringPrivate C_ErrMsg As IntegerPublic Event HaveError()Attribute HaveError.VB_Description = ＂出错时激发此事件.出错代码为ErrMsg属性＂'***************************************************************'ErrMsg代码：1-word没有安装 2 - 缺少参数 3 - 没权限写文件' 4 - 文件不存在''***************************************************************Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As IntegerAttribute ReplacePic.VB_Description = ＂查找FindStr，并替换为PicFile所指向的图片文件，替换次数由time参数确定，为0时，替换所有＂'********************************************************************************' 从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像' 替换次数由time参数确定，为0时，替换所有'********************************************************************************If Len(C_PicFile) = 0 ThenC_ErrMsg = 2Exit FunctionEnd IfDim i As IntegerDim findtxt As Booleanmysel.Find.ClearFormattingmysel.Find.Replacement.ClearFormattingWith mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withmysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)If Not findtxt ThenReplacePic = 0Exit FunctionEnd Ifi = 1Do While findtxtmysel.InlineShapes.AddPicture FileName:=C_PicFileIf i = Time Then Exit Doi = i + 1mysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)LoopReplacePic = iEnd FunctionPublic Function FindThis(FindStr As String) As BooleanAttribute FindThis.VB_Description = ＂查找FindStr，如果模板中有FindStr则返回True＂

vb.net 如何在word文档的指定位置插入图片

'工程>引用>Microsoft Word 11.0 Object LibraryDim oWordApp As New Word.ApplicationDim oWordDoc As Word.DocumentSet oWordDoc = Documents.Open(FileName:=＂D:\ABC.DOC＂)oWordDoc.Content.InsertAfter Text：=＂请输入你要输入的内容＂ '插入文字，请使用这种格式'oWordDoc.Shapes.AddPicture FileName:=＂D:\a.jpg＂ '插入图片oWordDoc.SaveoWordDoc.CloseoWordApp.Quit

转载请注明出处51数据库 » vb读取word指定位置