如何在word中插入图片的同时插入图片的文件名VIP专享VIP免费

如何在word中插入图片的同时插入图片的文件名如何在word如何在word中插入图片的同时插入图片的文件如何在word中插入图片的同时插入图片的文件名名中插入图片的同时插入图片的文件名[键入文档副标题]kflxd如何在word中插入图片的同时插入图片的文件名图片放在一个文件夹里.写代码插入WORD文件,插一张同时插上文字.没技术含量啊.1234567891011121314151617181920OptionExplicit'----------遍历文件夹，获取文件列表PublicFunctionBsearchFile(ByValspathAsString,ByValfilesufAsString,ByReffilelist()AsString)AsIntegerDimMyName,Dic,Did,i,T,f,TT,MyFileName,lj,KeDimjAsIntegerj=0lj=spath&"\"T=TimerSetDic=CreateObject("Scripting.Dictionary")'---------创建一个字典对象SetDid=CreateObject("Scripting.Dictionary")Dic.Add(lj),""i=0DoWhilei""IfMyName<>"."AndMyName<>".."ThenIf(GetAttr(Ke(i)&MyName)AndvbDirectory)=vbDirectoryThenDic.Add(Ke(i)&MyName&"\"),""2122232425262728293031323334353637383940414243444546EndIfEndIfMyName=DirLoopi=i+1LoopForEachKeInDic.KeysMyFileName=Dir(Ke&filesuf)DoWhileMyFileName<>""Did.Add(Ke&MyFileName),""filelist(j)=Ke&MyFileNameMyFileName=Dirj=j+1LoopNextBsearchFile=jEndFunction'-----------重复插入图片PublicSubRepeatInsertPic(ByValpfileAsString)DimrgAsRangeDimdocAsDocumentSetdoc=ActiveDocumentSetrg=doc.Range(doc.Range.End-1,doc.Range.End)rg.InsertAfterpfile&vbCrLfSetrg=doc.Range(doc.Range.End-1,doc.Range.End)4748495051525354555657585960616263646566676869707172rg.InlineShapes.AddPicturepfileSetrg=doc.Range(doc.Range.End-1,doc.Range.End)rg.InsertParagraphAfterSetrg=NothingSetdoc=NothingEndSub'----------遍历文件夹，获取文件列表PublicFunctionBsearchFile(ByValspathAsString,ByValfilesufAsString,ByReffilelist()AsString)AsIntegerDimMyName,Dic,Did,i,T,f,TT,MyFileName,lj,KeDimjAsIntegerj=0lj=spath&"\"T=TimerSetDic=CreateObject("Scripting.Dictionary")'---------创建一个字典对象SetDid=CreateObject("Scripting.Dictionary")Dic.Add(lj),""i=0DoWhilei""IfMyName<>"."AndMyName<>".."ThenIf(GetAttr(Ke(i)&MyName)AndvbDirectory)=vbDirectoryThenDic.Add(Ke(i)&MyName&"\"),""EndIfEndIf7374757677787980818283848586878889909192939495969798MyName=DirLoopi=i+1LoopForEachKeInDic.KeysMyFileName=Dir(Ke&filesuf)DoWhileMyFileName<>""Did.Add(Ke&MyFileName),""filelist(j)=Ke&MyFileNameMyFileName=Dirj=j+1LoopNextBsearchFile=jEndFunction'--------------插入图片SubInsertPicFromFolder()DimspathAsStringspath="D:\MyDocuments\MyPictures\test"'-----------这个图片保存路径可以自己去"改?DimhzAsStringhz="*.gif"'-----------这里是文件通配符Dimflist(2000)AsString'----------定义数组，最多2000个图片EraseflistDimicAsIntegeric=BsearchFile(spath,hz,flist)99100101102103104105106107108Ific>0ThenDimfForEachfInflistIfVBA.Trim(f)<>""ThenCallRepeatInsertPic(f)NextMsgBox"插入"&ic&"张图片成功，请检查！",vbInformation+vbOKOnly,"提示"ElseMsgBox"路径下无图片文件，请检查！",vbCritical+vbOKOnly,"提示"EndIfEndSub