標題: [發問] word 插圖片編號 [打印本頁]

---

作者: symis    時間: 2013-1-9 15:31     標題: word 插圖片編號

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

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

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

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

---

作者: loquat    時間: 2013-1-14 19:58

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

複製代碼

---

作者: loquat    時間: 2013-2-1 14:27

楼主，有好久没上来了，也不知道代码对您好不好用

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)