VB怎么在word文档的图片下一行自动添加图几信息？

mymoon

实在太烦了，手打了20多个图1、图2……。脚本能实现这种功能不？能设置字号、居中等格式不？

feilne27

可以把图片保存到文件夹里，WORD设置好字体格式，VBA一次性依次插入图片，写字。如果一行超过一张图（多列），建议在WORD里设置表格，插入图片，打字。

onedayday-wb

word自带的题注就是解决你的问题

pumpkinlee

楼上两位答主都没理解对需求。楼主需求应该是word文档中已经插入了大量图片（比如100张图），现在需要批量添加题注。逐个添加题注肯定大家都会的。

不用VBA用查找替换就可以搞定，当然如果有大量文件频繁使用搞成VBA每次用的时候运行一下也可以。
方法如下：
1. 给第一个图片插入题注，设置合适的题注编号和格式（楼主已经做好了）
2. 复制刚刚插入的题注（本质上是复制了题注的域代码），注意这个时候复制的题注是已经设置好格式的，例如字体字号颜色居中啥的格式也都被复制了。
3. 搜索替换^g 为^&^p^c 。此时已经给每个图片插入了题注，但是都是题注1。而且第一图片（或者你已经设置了题注的多张图片）会有两个题注，需要删除多余的一个。
4.Ctrl+A全选。F9更新所有域。自动刷新到所有图片题注为正确顺序。大功告成。

简单解释一下：搜索^g的意思是查找图片，所有如果有不需要编号的图片这种方法也会加上编号，需要规避。^&是查找的内容，即图片。^p是换行，即图片下另起一行写题注。^c 是剪贴板内容，也就是刚刚复制的第一个图注（包含格式）。所以整个查找替换的含义是查找到图片，替换为图片自身+换行+复制的题注（其实就是题注的域代码和格式）
Word查找替换的通配符可以参考这个：https://www.cnblogs.com/whchensir/p/5768030.html  

xuxinliang

pumpkinlee 发表于 2021-6-2 22:12
楼上两位答主都没理解对需求。楼主需求应该是word文档中已经插入了大量图片（比如100张图），现在需要批量 ...

大神，很给力啊。。同样请教一个问题。
交叉引用，如何快速插入交叉引用啊？
写文章，一般要求，在正文中，对插入的图片进行引用说明，
这就涉及到交叉引用的问题了。有没有比较快地交叉引用呢？

xuxinliang

onedayday-wb 发表于 2021-6-2 21:01
word自带的题注就是解决你的问题

那么交叉引用如何快速呢？

Domado

录制宏 然后可以用代码方便解决问题

列明

想要的功能不會寫成VBA？
別急，
開啓録製宏，
動手做一遍，
關閉録製宏，
office自動幫你寫好了VBA，
再加工修改一下就好了。

Wapj_Wolf

VBA不是很熟的进来观摩一下。

richens

excel写VBA就写过，但WORD使用VBA来批量处理没玩过。