返回列表 上一主題 發帖

[發問] word 插圖片編號

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-1-9 15:31 | 只看該作者

[發問] word 插圖片編號

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

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

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

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

loquat

帖子
48 
主題
1 
精華
0 
積分
53 
點名
0  
作業系統
XP 
軟體版本
2010 & 2003 
閱讀權限
20 
性別
男 
來自
China 
註冊時間
2013-1-12 
最後登錄
2013-11-23 
3#
發表於 2013-2-1 14:27 | 只看該作者
楼主，有好久没上来了，也不知道代码对您好不好用
向高手学习

TOP

loquat

帖子
48 
主題
1 
精華
0 
積分
53 
點名
0  
作業系統
XP 
軟體版本
2010 & 2003 
閱讀權限
20 
性別
男 
來自
China 
註冊時間
2013-1-12 
最後登錄
2013-11-23 
2#
發表於 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
複製代碼
向高手学习

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題