"Visual Basic"),此处略去不说 。。word图表目录怎么自动生成的,插图清单要怎样才能自动生成( 二 )。" />

word图表目录怎么自动生成的,插图清单要怎样才能自动生成( 二 )

word图表目录怎么自动生成的,插图清单要怎样才能自动生成
文章插图
2)修改sheet1 , 使其作为目录页 。

word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
二、写VBA处理
1)首先打开VBA开发环境(其实就是打开"开发工具"->"Visual Basic") , 此处略去不说 。
word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
2)其次 , 复制以下代码到开发环境 。
Sub getAllWorkSheets()
' 得到所有的sheet页名称 , 并加上超连接
totalNum = Worksheets.Count
Sheet1.Activate
Range("B:B").Select
Selection.NumberFormatLocal = "@"
' 从2开始就是不带“目录”Sheet页 , 如果要带 , 则从1开始
For index_i = 2 To totalNum
sheetName = Worksheets(index_i).Name
Cells(index_i, 2) = sheetName
tar_sheet = "'" & sheetName & "'"
Cells(index_i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
tar_sheet & "!A1", TextToDisplay:=sheetName
Next index_i
End Sub
word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
【word图表目录怎么自动生成的,插图清单要怎样才能自动生成】3)其中第四行的 Sheet1 需灵活设定 。
word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
4)复制上述代码后 。
word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
5)如果第四行不是Sheet1 , 打开此处查看Sheet名称 , 方式如下:
打开 视图->工程资源管理器 然后查看 , 参考图 。
word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
6)这里目录页是Sheet1 。
word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
三 运行VBA
1)在复制的代码中按 “F5”,或者在工具栏点击绿色三角 , "运行子过程/用户窗体" 。
word图表目录怎么自动生成的,插图清单要怎样才能自动生成

文章插图
2)最后 , 打开"目录"sheet页 , OK , 搞定 。
以上就是关于word图表目录怎么自动生成的 , 插图清单要怎样才能自动生成的全部内容 , 以及插图清单要怎样才能自动生成的相关内容,希望能够帮到您 。

推荐阅读