返回列表 上一主題 發帖

[發問] word 插圖片編號

[發問] word 插圖片編號

假設word中有很多圖片,夾雜文字,第一張圖的上方註明(圖1),餘此類推,一共有100張圖,

現在第20張圖前面要插一張圖,編號(圖20),那原本的圖20就要改為圖21,後面的共要改80次?

想請問能否有快速更改方法? 或者有其他好辦法? (除了用圖20a的方法外)

我是用word2003,但更新版有此功能也可告知,謝謝!
Symis

楼主,有好久没上来了,也不知道代码对您好不好用
向高手学习

TOP

改起来就比较麻烦吧,一开始就应该使用插入题注的方式给图片和表格等编号
那样的话,以后插入或者删除图片,表格,公式啥的,都可以按自动更新编号
现在要改的话,可以用VBA,根据规则去循环+1
  1. Sub PrivateChange()
  2. Dim i As Integer
  3. For i = 20 To 100
  4. With Selection.Find
  5.     .ClearFormatting
  6.     .Text = "图" & i                    '根据需要修改这两处位置
  7.     .Replacement.ClearFormatting
  8.     .Replacement.Text = "图" & (i + 1)  '根据需要修改这两处位置
  9.     .Execute Replace:=wdReplaceAll, Forward:=True, _
  10.         Wrap:=wdFindContinue
  11. End With
  12. End Sub
複製代碼
向高手学习

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題