如何快速按顺序更新图片和表格序号？

artyom96

单位里有多份报告的图片和表格都是从别的模板里复制过来的，所以序号都是乱序。之前有尝试过 更新域，但只有部分序号变了，无法做到全文档的统一。

目前正在从头到尾全靠手动改，工作量太大了，还容易出错。

想问下各位大神有没有办法解决这个问题呀？非常感谢！
（单位word版本是2007）

snow653124

简单点来说 就是删除原有图片或表格的序号，然后重新编号
但
你原来的需要样式呢，重新编号的样式？
你这样问，怎么可能有回复

搓手搓脚

通常这种图片和表格编号的都是使用域代码的，手动逐个输入的话有增删图片或者表格的话很难受的。

zhanglei1371

chatgpt：
Sub UpdateTableAndImageNumber()
   Dim xTbl As Table              ' declare table object
   Dim xPic As Shape           ' declare picture object
   Dim nIndex As Long         ' index
   
   nIndex = 0             ' initialize index to zero
      
  For Each xTbl In ActiveDocument.Tables  ' loop through all tables in the document
    nIndex = nIndex + 1          ' increment index for every table   
    xTbl.Range.Select         ' select the whole table     
   Selection.Style = "Table Grid"     ' assign a valid style name to it
   Selection.style = "Table Grid " & nIndex    ' update style name with index  
  Next xTbl ' loop through next table

For Each xPic In ActiveDocument.Shapes    ' loop through all shapes in the document

nIndex = nIndex + 1         ' increment index for every shape

With xPic                         ' refer to current shape of iteration   
.Name = "MyImage_" & nIndex    'update image's name with index           

End With                          ' end referencing current shape of iteration              

Next xPic                           ' go to next shape                     
End Sub

vbee

先要改为题注 样式