返回列表 上一主題 發帖

[發問] word 插圖片編號

[發問] word 插圖片編號

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

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

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

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

改起来就比较麻烦吧,一开始就应该使用插入题注的方式给图片和表格等编号
那样的话,以后插入或者删除图片,表格,公式啥的,都可以按自动更新编号
现在要改的话,可以用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

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

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題