word图片自动编号

word图片、表格自动编号

在写论文、报告或标书时，为了使数据更加直观，文档中会使用大量图片、表格或图表等元素。

如果图片、表格或图表太多，为了对它们进行区分，我们会在每一张图片(或表格、图表)底部进行编号。编号样式通常为：图1，图2，图3……或者为表1，表2，表3……等。

对于这种情况，许多人会手工输入图片的编号。真的是头晕眼花。还容易出错！

其实，学会利用Word题注+查找和替换功能就能为图片自动编号，不仅能避免手工输入编号带来的烦恼，还非常省事！1000张图片自动编号，10秒搞定

图片自动编号

一、先设置章节

使用word 自带的章节样式，例如：标题一、标题二，不然和标题联动的设置都会出问题


二、为图片添加题注

Word中题注的作用就是给文档里的图片、表格、图表或公式等元素添加自动标注，即编号和注释文字。下面以为图片添加题注为例进行讲解(注：为表格、图表或公式添加题注的方法与为图片添加题注基本相同)。

1. 选中图片，点击【引用】-【题注】-【插入题注】。

2. 打开“题注”对话框，这里是为图片添加题注，所以我们在“标签”下拉列表中选择“图”。

3. 如果需要对图片设置说明信息，则在题注编号后面输入相应的说明文字，然后单击“确定”按钮即可。

4. 这样我们就为第一张图片加好了题注。


技巧提示：在“题注”对话框的“位置”下拉列表框中还可以设置题注位于对象的上方或是下方。默认情况下为“所选项目下方”选项，表示题注位于对象的下方。

三、为图片批量编号

单张图片添加题注学会了，那么，若要为文档中的其他图片添加题注，是不是用相同的方法呢？这个方法虽然也可行，但不够高效。

接下来，教你2个批量为图片添加编号的小妙招：

利用【F4】快捷键（mac版使用CMD+Y）

在Word里用过【F4】快捷键的朋友就会知道，它的作用是重复上一步操作。因此，当我们插入一次题注编号后，按【F4】键，可重复插入编号(如要添加注释说明文字，直接在编号后输入即可)。


利用查找和替换

Word里的查找替换功能非常强牛，特别是在批量处理相同格式的内容时，使用该功能效率倍增。因此，我们可以利用查找和替换来批量添加编号。

(1)选择题注，按下【Alt+F9】快捷键，切换到域代码状态。

(2)选中域代码，这里不包含后面的图片注释文字。按【Ctrl+C】键复制，再按【Ctrl+H】键打开“查找和替换”对话框。

(3)在查找文本框中输入【^g】；在替换文本框中输入【^&^p^c】，然后点击【全部替换】按钮。

(4)此时，所有图片下方均添加了编号。按下【Ctrl+A】键全选所有内容，再按【F9】刷新，最后，再按【Alt+F9】切回正常状态，这样就完成了图片的编号。

代码解析：^g 表示图片；^& 指要查找的内容；^p 表示换行符(也就是换一行)；^c 表示剪切版的内容(即第二步中复制的代码内容)。

(5)然后，在每张图片的编号后添加上相应的说明文字即可。


四、“图”字和数字直接删掉空格，最后添加空格

1. 右击图片题注，样式里全选所有图题注

2. 在查找内容处，输入：空格，替换处什么都不填。

3. 全部替换删掉图字和数字之间的空格

4. 选中使用通配符，在查找内容处，输入：(*)^13，替换处，输入：\1 ^13

5. 单击【全部替换】。 

   
   注：要是现成的图题注，需要先去掉所有空格；再在查找内容处，输入：([一-龥][一-龥])(*)^13，替换处，输入： \1\2^13；最后单击【全部替换】

表格自动编号

1. 粘贴如下代码，创建宏，并设置题注标题

Sub 表格题注()
'
'
    If ActiveDocument.Tables.Count >= 1 Then
        Set act_Doc = ActiveDocument
        For Each otable In act_Doc.Tables
            CaptionLabels.Add Name:="表星星星"
            With otable.Range.InsertCaption(Label:="表星星星", Position:=wdCaptionPositionAbove)
            'Position:=wdCaptionPositionBelow
            End With
        Next
    End If
 
End Sub

2. 使用宏将所有表格命名为”表星星星”格式，使用第一张表添加题注，接下来复制新建的表格题注，例：表1 ，（注：必须复制“表1”和后面的空格）
3. 然后查找替换，使用通配符，查找内容：表星星星*或表[星]{1,}*[0-9]{1,},替换内容：^c