企业官网建设流程全解析

做标书、写论文、整理工程测试报告，几乎每份像样的文档都躲不开一件事：给图片加名字。Word里我们管它叫题注，就是每张图片下面那行“图 1-1 系统架构图”。手动加一次两次没什么，几十张上百张图一个下午全耗在这上面，而且改一张图，后面编号全乱。今天聊的就是这个看起来小、实际很磨人的需求——在Word中添加图片时自动添加图片名，甚至做成一键自动添加题注。这篇文章会从需求场景说起，讲清楚文件名从哪里来、题注的原理是什么，再给出可以直接复制的VBA宏代码，以及常见问题的排查清单。适合写毕业论文、标书、产品手册的人，也适合经常帮同事收拾Word文档的办公效率爱好者。

1. 从痛点说起：为什么需要自动给图片加名字

1.1 不只是少打几个字

我提一个场景：负责写项目验收报告的人，最后要做的是把几十张设备照片、测试截图、界面截图插进Word。每张图下方都要有一行说明，按规范是“图 1-1 xxx”。“xxx”往往就是截图时文件名里已经写好的名字，比如“图-主界面截图.png”“设备清单-打印样式.jpg”。图一多，手打名字不仅费时间，还容易打错，最后目录里生成“图 1-4”和正文对不上，返工一次就是大半天。

这个需求的核心，不是“省几次打字”，而是“让文件名和说明文字天然一致”。工程文档里，截图文件名往往是制作者精心命名的，包含了模块名、场景、版本等信息。如果把这些信息转成图片下方的规范题注，等于让文档标题和原始素材的命名规范接上了线，审查人对内容的理解成本也低得多。

1.2 手动方案能应付到什么程度

不写宏的情况下，常见做法是：先把一张图插进去，然后在图片下一行手动输入“图 1-1 xxx”。听起来不复杂，但它有几个衍生问题。

第一，编号容易断链。如果中间删了一张图，后面的“图 1-5”就变“图 1-4”，你得逐个手动改，或者依赖Word“引用”里的“插入题注”功能重新编号。第二，格式容易不统一。不同人手打的题注有的居中、有的左对齐，有的前面加“图”，有的加“Figure”，最后要统一排查。第三，图一多，“图片名”本身就可能丢掉。很多人插入图片之后，原始截图文件就归档了，文档里只留下剪贴板粘贴来的无名字图片。以前我也这么干过，后来要给一百多张图补题注，整个人是崩溃的。

所以说，手动方案应付个位数图片没问题，超过十张就应该考虑自动化。

1.3 自动化路线怎么选

围绕“Word中添加图片时自动添加图片名”这个目标，主流有三条路：用Word自带题注功能半自动处理、用VBA宏自动读取文件名、或者用第三方插件比如文档排版工具。

我最终推荐的是第二条，VBA宏方案。原因有三点：第一，Word自带题注功能其实不支持“直接读取文件名”，它只负责编号和标签，图片名还是得自己敲；第二，第三方插件是黑盒，依赖别人更新维护，在同事电脑之间传文档时经常出兼容问题；第三，VBA宏的代码并不复杂，自己写一次，后面可以反复用，还能顺手扩展成批量导入、批量重命名题注等功能。这篇的重点也放在宏方案上。

2. 文件名从哪里来，Word对象模型里有什么

2.1 图片文件名的读取路径

先说结论：在Word里要用宏获取图片的原始文件名，必须在“插入图片”这一步动手，因为一旦图片被嵌入文档，Word默认不会保存源文件路径。也就是说，“自动添加图片名”并不是事后从哪条隐藏属性里一捞就能捞出来，而是在插入时把名字记下来。

实现上最常见的做法是：宏先弹出文件选择框，用户选中图片后，从路径字符串中提取文件名（去掉扩展名），再把图片插进文档，最后把文件名写在图片下方。代码里用FileSystemObject的GetBaseName方法可以非常干净地拿到“文件名不含扩展名”的部分。有些人用字符串操作自行处理，也能用，但处理反斜杠路径和中文空格时会容易漏掉边界情况，不如系统API省心。

2.2 为什么不能直接读文档里已有图片的名字

这个问题被问得非常多：“我已经有一堆图片贴在文档里了，能一下子把它们的名字自动补上吗？”分情况。如果图片当初是用“插入图片”时勾选了“链接到文件”的方式插入的，那InlineShape.LinkFormat.SourceFullName属性里还能读到源文件完整路径，文件名可以挖出来。但大多数人插入图片用的是“嵌入到文档”，源路径并不会保存在文档里，这种情况下除了自己维护一个素材清单，没有任何可靠办法自动恢复原来的文件名。

这个坑必须提前说清楚。很多人以为Word文档里图片藏着隐藏的元数据，可以随便提取，实际不是。剪贴板截图、拖拽进Word的图片，更是连文件名都不存在，只能靠人工起标题。所以“自动添加图片名”的正确使用姿势，是把它做成一个“插入时就自动完成”的动作，而不是事后补救。

2.3 题注、域与样式：Word排版的“三条腿”

Word里一个规范的图片说明，通常由三部分构成：题注标签（“图”）、自动编号（“1-1”或“3”）、说明文字（图片名）。专业上，前两者靠“题注（Caption）”和“SEQ 域”实现，后者靠普通文本或样式。很多人只会在图片下面敲一行字，没有用Word的题注体系，所以一旦插入一张新图，全部编号就要手动改，这就是痛苦的根源。

我强烈建议在宏里使用SEQ域来生成编号。SEQ域是Word的“顺序编号”域，类似Excel里的自动序号，插入后可以用F9批量刷新编号。和Word“引用”菜单里的“插入题注”本质上是同一套机制。用域的好处是，后面不管删图、加图，只要让Word更新域，编号就会自动重新排列。配合题注样式，还能实现全文图、表、公式统一编号格式。

2.4 这条链路上最容易掉坑的一环

我自己踩过的最大一个坑，是“插入位置”的把握。很多人写宏，执行完AddPicture之后紧接着输入文字，结果文字跑到了图片上方，或者和图片挤在同一行。原因是：Word的嵌入型图片是“字符级对象”，图片插入后光标位置可能在图片之前，也可能在图片之后，取决于当前视图和定位方式。

为了避免这个问题，最可靠的办法是插入图片后，通过InlineShape.Range拿到图片对应的字符范围，再在它的结束位置之后插入文字。我最初写宏时习惯用Selection.EndKey去定位光标，结果在图文混排的段落里经常出错，改成Range定位之后，这个问题才算根治。这属于经验问题，不会写在微软帮助文档里。

3. 实操：写一个“插入图片自动带名字”的宏

3.1 打开开发工具，录一个宏看看Word在干嘛

在你开始写VBA之前，先把“开发工具”选项卡打开。步骤是：Word左上角“文件”→“选项”→“自定义功能区”，右侧勾选“开发工具”。这个选项卡在Office 2010以上版本都有，365里默认隐藏。勾上之后，顶部菜单栏就能看到Visual Basic入口。

接着，我建议你录制一个空白宏，体验一下录制的代码长什么样。点击“开发工具”→“录制宏”，随便取个名，然后手动执行一遍：插入一张图片、换行、输入“图 xxx”。停止录制后，到“宏”→“查看宏”→“编辑”，你就能看到Word把刚才的操作翻译成了一小段VBA代码。这段代码往往不够优雅，但它是你后续修改的最佳起点，能让你直接看到AddPicture和TypeText的真实写法。

3.2 核心代码：选择图片 → 取文件名 → 插入题注

下面这段宏是我一直在用的精简版，适合单张图片插入场景。先说明一下整体设计：弹文件选择框，用户选图；用FileSystemObject取出图片基础名；以嵌入方式把图片插入当前光标位置；另起一行居中写入“图 [文件名]”；并把这一行套用Word内置的“题注”样式，保证后续目录和交叉引用能统一识别。

Sub InsertPictureWithCaption() Dim fd As FileDialog Dim picPath As String Dim picName As String Dim fs As Object Dim shp As InlineShape Dim capRange As Range ' 1. 选择图片文件 Set fs = CreateObject("Scripting.FileSystemObject") Set fd = Application.FileDialog(3) ' msoFileDialogFilePicker = 3 With fd .Title = "选择要插入的图片" .Filters.Clear .Filters.Add "图片", "*.jpg;*.jpeg;*.png;*.bmp;*.gif;*.tif" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub picPath = .SelectedItems(1) End With ' 2. 提取文件名（不含扩展名） picName = fs.GetBaseName(picPath) ' 3. 在光标处插入图片（嵌入型） Set shp = Selection.InlineShapes.AddPicture( _ FileName:=picPath, _ LinkToFile:=False, _ SaveWithDocument:=True) ' 4. 在图片后插入换行和题注 Set capRange = shp.Range capRange.Collapse Direction:=wdCollapseEnd capRange.Text = vbCr & "图 " & picName ' 5. 套用题注样式并居中 capRange.Style = ActiveDocument.Styles(wdStyleCaption) capRange.ParagraphFormat.Alignment = wdAlignParagraphCenter End Sub

逐段解释重点：

• Application.FileDialog(3)里的3是msoFileDialogFilePicker的枚举值，表示文件选择对话框。网上很多代码直接写msoFileDialogFilePicker，引用Office类型库时没问题，但如果你的VBA工程没完整勾选引用，直接用数字更稳。
• fs.GetBaseName(picPath)是我处理文件名最推荐的方法，它能自动剥掉扩展名，保留“微信图片_20230102103012”这类长名字。
• 图片通过Selection.InlineShapes.AddPicture插入，默认就是嵌入型，也就是图片像一个超大字符一样回到文档流里，后续换行、排版都比较可控。
• 题注样式wdStyleCaption是Word内置样式，设置后，这段文字会被“题注”体系识别，同时可以配合自动图表目录使用。

运行宏之后的效果是：图片出现在光标处，下一行自动出现居中、应用题注样式的“图 文件名”。如果文件名带中文、下划线、空格，都能原样保留，这是我认为最接近真实业务需求的形态。

提示：如果你希望编号自动生成，而不是只写文件名，可以在该宏的基础上，把“图 ”改成Word的“插入题注”功能来生成标签和编号，然后把文件名作为说明文字。操作时先手动插入一个题注，再打开录制宏看一下Word生成的结构，按那个结构扩展几行代码即可。编号这块交给Word自己的SEQ域机制是最稳的，不建议在宏里硬写数字。

3.3 升级版：批量导入整个文件夹的图片

既然已经会用宏了，批量场景自然想一起解决。我自己在整理某个产品手册时写过一个批量版本，思路是：输入一个本地文件夹路径，程序自动搜索里面的jpg/png图片，从头到尾逐张插入到文档里。每张图片后面跟一个题注，图片名取自文件名。这样一来，几十张图的操作就压缩成了“填路径，点运行”。

Sub BatchInsertPicturesWithCaptions() Dim folderPath As String Dim fileName As String Dim picPath As String Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") folderPath = InputBox("请输入图片文件夹完整路径，例如 D:\截图") If folderPath = "" Then Exit Sub If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" fileName = Dir(folderPath & "*.jpg") Do While Len(fileName) > 0 picPath = folderPath & fileName Selection.InlineShapes.AddPicture FileName:=picPath, _ LinkToFile:=False, SaveWithDocument:=True Selection.EndKey Unit:=wdLine Selection.TypeParagraph Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Font.Size = 9 Selection.TypeText Text:="图 " & fs.GetBaseName(picPath) Selection.TypeParagraph Selection.TypeParagraph fileName = Dir ' 继续取下一个文件 Loop MsgBox "批量插入完成" End Sub

这段代码没有涉及太复杂的对象模型，核心就是Dir函数遍历文件夹内jpg文件，拿到一个插入一个。这里有几个细节：

• Dir函数在第一次调用时传完整路径，之后用无参数的Dir继续取下一个文件，这是老牌VBA遍历文件的写法。
• 如果你要同时处理png、bmp等多种格式，可以在循环里继续判断扩展名，或者先做一次文件列表收集。
• 插入两张图之间我加了一个空白段落，是为了保证图片不会连在一起，便于后期调整。
• 批量模式下，我直接把字体大小设置成9号，在文档里看起来和学术论文常用的五号字接近；你可以按自己的排版规范改。

3.4 题注样式怎么设置才能匹配图表目录

宏已经把文字命名为“图 xxx”了，但Word里的目录能不能识别它，还要看样式。用wdStyleCaption仅仅是让文字挂上了“题注”样式，如果文档的目录没有针对“题注”样式做提取，目录里还是不会自动出现图片索引。

如果你想让这些标题出现在“图表目录”中，操作是：回到Word“引用”→“插入表目录”→“题注”标签选择“图”，再勾选“包括题注编号和章节号”。前提是你文档里的题注都用了统一样式和统一标签。这也是为什么我不建议直接在代码里硬写“图”字，而是建议用题注标签、样式这一整套机制的原因。硬写可以应付显示，但无法被Word的图表目录自动抓取。

3.5 把宏绑定到快速访问工具栏或快捷键

宏写完之后，每次从“宏”窗口里找到并运行，效率损耗还是太大。我建议把它绑定到快速访问工具栏，或者直接设置快捷键。步骤是：文件→选项→快速访问工具栏→“从下列位置选择命令”→“宏”，找到你的宏，添加到右侧。此时你也能在左侧看到这个宏的图标，右键它选择“属性”，甚至可以分配一个快捷键。

实际办公中更推荐快捷键方式。选中一张图片后按一下快捷键，直接弹文件选择框，省掉鼠标点层层菜单。我个人习惯把“插入图片并添加题注”绑定到Alt+P，把批量插入绑定到Alt+B，这样整理素材很快。不过要注意，如果文档中已经存在同名快捷键，Word会提示你当前快捷键已被占用，需要换一个组合。

3.6 剪贴板截图怎么办

很多同事的截图习惯是先用微信或系统自带截图工具截到剪贴板，然后直接Ctrl+V粘贴进Word。这种图片没有文件名，任何宏都无法自动提取。我的建议是两条路：要么改习惯，让截图保存后直接使用我们刚才的宏插入；要么在宏里做人工兜底，检测到剪贴板图片时弹出输入框，让人手动给图片起名。

检测剪贴板是否有图片，可以用Application.ClipboardFormats判断，但我实际用下来觉得这个分支在文档里会带来误判，比如在某些版本的Word里，复制过文字后剪贴板里也能检测到几类格式。所以我的建议是：不要对剪贴板做太复杂的自动化，老老实实用文件选择框插入。遇到已经粘好的截图，后期用“题注”功能手动补题注即可。自动化讲究的是把高频动作自动化，低频的补注释动作就留给人类手工去处理。

4. 常见问题排查与避坑清单

4.1 图片插入后文件名拿到的是空值

如果GetBaseName返回空字符串，最可能的原因是文件选择框没有正常返回路径。常见原因包括：用户在对话框里取消了选择、SelectedItems(1)下标越界、文件路径中有系统不允许的非法字符。排查方法：在宏的第二步加一个MsgBox picPath，先确认路径是否正确。路径正确但文件名依然取不到，就要检查Scripting.FileSystemObject引用是否可用。在VBA编辑器里点“工具”→“引用”，确认勾选了“Microsoft Scripting Runtime”；如果不想依赖引用，也可以用Dir函数加字符串截取的方式替代，但代码会丑一些。

4.2 题注编号“图 0-1”“图 1-01”格式乱

如果你在宏里使用了SEQ域，域文本写错了就会出现意外格式。比如SEQ 图 \* ARABIC中间多个空格、或者标签名包含中文，都会导致编号不递增或显示错乱。我的经验是把标签名统一成“图”，不要在域代码里混入标点。多级编号连章节号的情况，需要通过Word“多级列表”→“定义新多级列表”→“将编号链接到样式”中去配置，这部分的坑主要在于域代码中要包含章节级格式标记\s 1，例如SEQ 图 \s 1 \* MERGEFORMAT表示按一级章节重新编号。这些配置写在宏里容易踩坑，不如在文档里先手动搭好题注体系，然后宏只负责插入文件名，编号交给Word域去刷新。

4.3 图片拖动后题注不跟着走

Word文档里，嵌入型图片和它后面的题注段落之间没有绑定关系。如果你用鼠标拖动图片改变位置，题注文字不会跟着移动。解决办法也很老派：排版时不要把图片和题注分开移动，要么用键盘方向键微调，要么把图片和题注放进同一个图文框中，让它们在结构上成为一个整体。VBA宏只能保证插入时位置正确，后期排版还需要作者按规范操作。

更推荐的方案是：在宏里插入图片后，把图片段落和题注段落放在同一个“表格单元格”里，外面套一个单列单行的表格，再把边框设为无。这样拖动单元格时图片和题注始终在一起。缺点是表格嵌套多了之后文档结构变复杂，Word在低配电脑上编辑可能变卡。是否采用，取决于文档规模和你的排版洁癖程度。

4.4 宏安全提示总是弹窗怎么办

默认Office出于安全考虑会禁用宏。如果你只是自己电脑上用，可以这样设置：文件→选项→信任中心→信任中心设置→宏设置→勾选“启用所有宏”，同时勾选“信任对VBA工程对象模型的访问”。但这样会降低安全性，不建议在关键工作电脑上长期开启。更好的做法是对宏文件数字签名，或者把宏保存到个人宏工作簿，并使用受信任位置。

如果每次打开文档都提示“宏已被禁用”，通常是因为你的宏保存在普通文档而不是Personal工作簿。个人宏工作簿默认位于Word的启动目录，Word每次启动都会自动加载，而普通文档需要用户显式启用。所以你如果希望这个宏长期可用，最好把它转移到个人宏工作簿。

4.5 不同Word版本的兼容性

这套VBA代码在Office 2010、2013、2016、2019、365上都能运行，因为核心对象模型十年没有大变。需要注意两点：一是FileDialog文件选择框在新版Office中交互界面变了，但功能等价；二是不同系统主题下窗口外观不同，这不会影响代码。如果你用的Mac版Word，情况略有不同；Mac Office的VBA支持度不如Windows版完善，尤其Application.FileDialog支持不充分，建议在Mac上使用“插入”→“图片”的原生功能，再配合“题注”功能手动补图片名，或者直接走一次Windows环境处理。

4.6 不想写宏的方案：原生题注+交叉引用

如果你只是偶尔写个汇报文档，不想碰VBA，我也可以给你一个纯手工方案。用Word“引用”→“插入题注”，在图片下方插入题注标签“图”，编号自动生成，然后你在编号后面手动输入图片名。这其实也能满足“自动添加图片名”的一部分需求，尤其是“自动编号”这块。而“自动读取文件名”这一步确实做不到，字还是得你自己打。

另一种变通思路是：图片插入前，先用文件管理器把需要插入的图片全部改成“图1-设备A.png”“图2-设备B.png”这种规范的命名，插入后手动敲一遍名字。虽然省不了打字，但至少保证写作时素材命名是相关的，方便协作。如果想进一步自动化但不想看代码，可以搜一下“Word题注插件”“文档排版助手”这类工具，它们大多实现了类似功能。只是我仍然建议你自己能看懂宏的原理，因为现成插件无法忍受的时候，最后能救你的永远是自己写的那几十行VBA。

最后再分享一个我在实际项目里沉淀下来的习惯：所有要进Word的截图，我都在截图工具里把文件命名成最终文档里想让读者看到的名字，然后用上面这个宏一键插入。名字里带上模块名和版本号，比如“支付模块-主流程-20240409.png”；插入之后，文档题注就完整呈现了。这套流程我用了好几年，几乎没再为图题注返过工。你如果也有类似的重复劳动，不妨把这篇里的宏复制过去试试，先跑通单张，再上批量，很快就能感受到什么叫顺手。