word 插圖片編號 - Word - 麻辣家族討論版版

麻辣家族討論版版 » Word » word 插圖片編號

返回列表下一主題上一主題發帖

[發問] word 插圖片編號

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

1^# 跳轉到 »

發表於 2013-1-14 19:58 | 顯示全部帖子

改起来就比较麻烦吧，一开始就应该使用插入题注的方式给图片和表格等编号
那样的话，以后插入或者删除图片，表格，公式啥的，都可以按自动更新编号
现在要改的话，可以用VBA，根据规则去循环+1

Sub PrivateChange()
Dim i As Integer
For i = 20 To 100
With Selection.Find
.ClearFormatting
.Text = "图" & i '根据需要修改这两处位置
.Replacement.ClearFormatting
.Replacement.Text = "图" & (i + 1) '根据需要修改这两处位置
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
End Sub

複製代碼

向高手学习

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

2^#

發表於 2013-2-1 14:27 | 顯示全部帖子

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

向高手学习

靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。

返回列表下一主題上一主題