word插入图片的同时自动插入图片名称
文章目录
- 1.打开一个需要插入的word
- 2.打开Word VBA
- 3.点击ThisDocument
- 4.粘贴代码进去,然后关闭(复制代码,别手敲!!!)
- 5.点击运行宏
- 6.选择要插入的图片目录
- 7.大功告成
1.打开一个需要插入的word
2.打开Word VBA
快捷键:Alt + F11
3.点击ThisDocument
4.粘贴代码进去,然后关闭(复制代码,别手敲!!!)
Sub PicWithCaption()Dim xFileDialog As FileDialogDim xPath, xFile As VariantDim indexindex = index + 1On Error Resume NextSet xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)If xFileDialog.Show = -1 ThenxPath = xFileDialog.SelectedItems.Item(1)If xPath <> "" ThenxFile = Dir(xPath & "\*.*")Do While xFile <> ""If UCase(Right(xFile, 3)) = "PNG" Or _UCase(Right(xFile, 3)) = "TIF" Or _UCase(Right(xFile, 3)) = "JPG" Or _UCase(Right(xFile, 3)) = "GIF" Or _UCase(Right(xFile, 3)) = "BMP" ThenWith Selection.InlineShapes.AddPicture xPath & "\" & xFile, False, True.InsertAfter vbCrLf.MoveDown wdLine.Text = "图" & index & "-" & xFile.MoveDown wdLine.MoveDown wdLineindex = index + 1End WithEnd IfxFile = Dir()LoopEnd IfEnd If
End Sub
5.点击运行宏
快捷键:F5
6.选择要插入的图片目录
7.大功告成
word插入图片的同时自动插入图片名称相关推荐
- Paste Image插件初始化设置:修改图片保存路径、自动插入图片描述信息
Paste Image插件初始化设置:修改图片保存路径.自动插入图片描述信息 Paste Image插件默认将图片保存于所编辑的Markdown文档的当前目录下,若插入的图片较多,会导致该目录下显得杂 ...
- 【爬图】——从百度图片按关键字自动下载图片
转载自:https://www.cnblogs.com/sjfeng1987/p/9902077.html Code #!usr/bin/env python # coding=utf-8import ...
- word中的表格怎么按照章节自动插入题注(即表头的编号)
问:word中的表格怎么自动插入题注(即表头的编号自动编号)? 答: 1首先搞清楚自动编号的意思.自动插入题注的意思是,在你在word中新建或者复制一个word表格的时候,表头的编号就自动生成了,而不 ...
- dw html5中怎么设置图片自动切换,DW制作九宫格全屏亮灯轮播图片且自动切换图片教程...
本文介绍的是利用DW制作九宫格全屏亮灯轮播图片并且可以自动切换图片,而且点击图片时还会亮灯,推荐过来,大家一起来学习吧! 软件名称:Adobe Dreamweaver CS3 官方中文安装版软件大小: ...
- 如何给没有图片的织梦文章内容自动加图片
大家在做织梦网站过程中,有很多时候部分文章是没有图片的,对于seo来说,这是不太友好的.图文并茂是原创内容比较重要的一部分,文章有图片不仅美观,而且达到了SEO的效果.那么如何给没有图片的织梦文章内容 ...
- 嵌入式linux图片浏览器,基于嵌入式Linux图片浏览器的设计与实现.doc
基于嵌入式Linux图片浏览器的设计与实现 PAGE PAGE II 本科学生毕业论文(设计) 题目(中 文): 基于嵌入式Linux图片浏览器的设计与实现 (英 文): The design and ...
- 自动设置图片的序号_巧用word软件中的题注功能,让你插入的对象自动排序与更新...
在word编辑文档过程中会插入很多图片作为图示,题注就是为插入的图片自动编上序号,方便我们阅读理解文章.如果我们添加或删除了图片,那么题注的编号将重新排列,图片量大的话一个个去对应修改很麻烦,且容易漏 ...
- 【在工程Word文档的大量表格中自动插入图片的python程序】
在工程Word文档的大量表格中自动插入图片的python程序 一.问题描述 在word的表格中插入图片代码 图形界面GUI设计 程序打包 一.问题描述 我的姐姐是一个工程技术公司的资料员,经常需要在w ...
- Word2019中Visio对象图片插入题注时自动删除标签与编号前的空格,编号后添加空格
问题引入 撰写论文时为了修改方便,通常以插入题注和交叉引用的方式来给图片标号,这样修改图片和图号后可以方便.自动地更新. 然而,Word在插入题注上从03到13一直没有针对中国用户优化. 插入题注的标 ...
最新文章
- DELPHI - Delphi 2007 已内部支持 GIF 动画了
- Spring –添加Spring MVC –第2部分
- 【SpringBoot】Spring boot 测试类 找到不到MySQL 驱动
- unicode编码表_关于编码
- 2.17_knight_tour_骑士周游问题 (深度优先 DFS)
- Python学习笔记三(文件操作、函数)
- python opencv3 圆检测
- COLING2018计算语言学进展
- 26. Magento 常用(1)
- When Startup Disk is Full
- 配置vmcore通过ssh转储到其他主机的方法
- 新版vip在线解析html源码
- 类似QQ表情的控件 EmotionContainer(原创)
- C语言实现移位密码算法,仿射密码算法
- c语言malloc函数的用法和意义
- 数字转型遇阻 ,Riverbed重塑APM工具
- Eclipse工具工作环境配置/统一风格
- Check It Again: Progressive Visual Question Answeringvia Visual Entailment(SAR)
- 规则 | 卖家速自查!淘宝网发起专项整治,“品牌不一致”无处藏身
- u盘误删文件怎么恢复
热门文章
- Intel Distiller工具包-量化实现1
- exit()和_exit()两个函数的区别
- responserequest概述
- Yolov5图像识别教程
- 什么是内存泄露,如何避免内存泄露 C++
- 旗鱼SailfishOS SDK for Windows初体验
- 如何重置计算机服务到默认状态,电脑慢到让人抓狂?教你如何将Windows10还原到出厂设置...
- Beyond乐队20年 细数唱片12个“最”
- 美团C++软件开发笔试题
- 2022电大国家开放大学网上形考任务-民族理论与民族政策非免费(非答案)