怎么自动添加锚链，并用链接指向该锚链

zifengg

LZpVD8J7.rar (9.52 KB, 下载次数: 14)

2005-12-30 16:49 上传

点击文件名下载附件
怎么自动添加锚链，并用链接指向该锚链

　　上面是一个每天例行的工作薄，其中有三个表格，表格都是由数据库导出到EXCLE表格中，再转帖至WORD文档。（分别命名为表格一，表格二，表格三） 　　其中要做的事情是： 　　１：将表格三里每一个合并过的单元格中的“股票（代码）”部分增加为锚链； 　　2：用表格一对应表格三的“股票”，在“摘要”中使用链接指向该锚链； 　　3：在表头设定一个锚链，并使所有的返回都指向该锚链。 　　如果想将这一部分的内容，用宏或是其他的方法较快捷地完成，应该怎么做？

守柔

什么叫锚链？是锁定标记是的锚链吗？我理解不是，好象是超级链接吧？

能否请大哥范例一个，我学习一下这个“锚链”是什么样子的吗？

然后，我们会处理的。

谢谢。

zifengg

不好意思，对WORD不太熟悉，锚链应该是网页中的叫法，在WORD中可能应该叫标签或书签什么的。见笑。 还有，不要叫我大哥，我是女的。

[此贴子已经被作者于2005-12-31 11:13:03编辑过]

zzy20671

我也正需要这个

zhaoxh889

深有同感，我在工作中有时也会遇到做很多书签，不断点击某处的超链跳到指定处的问题，其实有把WORD做得有点像网页，每天在这上面要花大量的时间

请各位高手给我们一些指点

守柔

请楼主测试一下： Option Explicit Sub Example() Dim myTable As Table, myBM As String, Columnid As Byte, aCell As Cell Dim myRange As Range, Rowid As Integer, i As Integer, n As Integer Dim startPost As Long, EndPost As Long myBM = "myBookMark" With ActiveDocument Set myTable = .Tables(2) '定义一个表格对象为文档中的表格2 Set myRange = myTable.Cell(1, 1).Range '定义一个RANGE对象为表格2的第一个单元格 myRange.SetRange myRange.Start, myRange.End - 1 '重新定义RANGE对象(去除单元格结束标记) .Bookmarks.Add Name:=myBM & "0", Range:=myRange '此RANGE对象添加一个书签(返回) For Each aCell In myTable.Range.Cells '在该表格中循环 Rowid = aCell.RowIndex '取得行号 Columnid = aCell.ColumnIndex '取得列号 If Rowid > 2 Then '如果行号>2 If Columnid = 2 Then '如果在第2列(股票代码) Set myRange = aCell.Range '定义一个RANGE对象 myRange.SetRange myRange.Start, myRange.End - 1 '去除段单元格结束标记 .Bookmarks.Add Name:=myBM & aCell.RowIndex - 2, Range:=myRange '添加书签 ElseIf Columnid = 7 Then '如果为第7列(报告摘要) Set myRange = aCell.Range myRange.SetRange myRange.Start, myRange.End - 1 .Bookmarks.Add Name:="摘要" & aCell.RowIndex - 2, Range:=myRange End If End If Next Set myRange = .Range(myTable.Range.End, myTable.Range.End) myRange.InsertAfter "▲返回" '在该表格后面自动插入一个文字,并且为右对齐 myRange.ParagraphFormat.Alignment = wdAlignParagraphRight .Hyperlinks.Add Anchor:=myRange, SubAddress:=myBM & "0" '添加一个超级链接,指向第一个单元格 Set myTable = .Tables(4) '定义一个表格对象,为活动文档的第四个表格 For Each aCell In myTable.Range.Cells '在单元格中循环 If VBA.InStr(aCell.Range.Text, "报告日期") > 0 Then '如果带有指定文本,注意此处标识不显著 Set myRange = aCell.Range startPost = VBA.InStr(myRange.Text, "(") '以左右括号为标识 EndPost = VBA.InStr(myRange.Text, ")") myRange.SetRange myRange.Start + startPost, myRange.Start + EndPost - 1 n = n + 1 '累加 .Hyperlinks.Add Anchor:=myRange, SubAddress:=myBM & n '增加超级链接 myRange.SetRange myRange.Paragraphs(1).Range.Start, myRange.Paragraphs(1).Range.Start i = i + 1 '累加 .Bookmarks.Add Name:="股票" & i, Range:=myRange '添加书签 .Hyperlinks.Add Anchor:=.Bookmarks("摘要" & i).Range, SubAddress:="股票" & i '将摘要的超级链接指向此书签对象 ElseIf VBA.InStr(aCell.Range.Text, "返回") > 0 Then Set myRange = aCell.Range myRange.SetRange myRange.Start, myRange.End - 1 .Hyperlinks.Add Anchor:=myRange, SubAddress:=myBM & "0" End If Next End With End Sub Sub DelAllBMHpyerlinks() '初始化,清除所有书签和断开所有超级链接 Dim oBM As Bookmark With ActiveDocument For Each oBM In .Bookmarks oBM.Delete Next .Fields.Unlink End With End Sub

[此贴子已经被作者于2006-1-6 18:52:44编辑过]