电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

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

如何在word中插入图片的同时插入图片的文件名_第1页
1/6
如何在word中插入图片的同时插入图片的文件名_第2页
2/6
如何在word中插入图片的同时插入图片的文件名_第3页
3/6
如何在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

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

如何在word中插入图片的同时插入图片的文件名

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部