导读： 这里计算机教程网给大家提供一些比较常用的WORD VBA超链接代码，可以提高大家的办公效率
Sub 统计word中超链接总数() '成功
MsgBox ActiveDocument.Hyperlinks.Count
End Sub
Sub 获取超链接名称1() '成功
MsgBox ActiveDocument.Hyperlinks(1).Name '获取第一个超链接名称
End Sub
Sub 获取超链接名称2() '成功
MsgBox ActiveDocument.Hyperlinks.Item(1).Name '获取第一个超链接名称
End Sub
Sub 删除超链接() '成功
ActiveDocument.Hyperlinks(1).Delete '删除第一个超链接，只删除链接，不删除承载链接的载体
End Sub
Sub 在文字上创建一个超链接1() '成功
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="http:\\www.jsjjcw.com"
'在文中选中的一段文字Selection.Range上创建超链接， 链接到"http:\\www.jsjjcw.com"
End Sub
Sub 在文字上创建一个超链接2()
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="C:\my document\mybook.doc", SubAddress:="mybookmark"
'在文中选中的一段文字Selection.Range上创建超链接， 链接到文件"C:\my document\mybook.doc"的"mybookmark"书签处
End Sub
Sub 在图形上创建一个超链接()
ActiveDocument.Hyperlinks.Add Anchor:=Selection.ShapeRange(1), Address:="http:\\www.jsjjcw.com"
'在文中选中的一个图形Selection.ShapeRange(1)上创建超链接， 链接到"http:\\www.jsjjcw.com"
End Sub
'word中，域（field）的断开链接方法（unlink）、超链接（hyperlink）的断开链接方法（delete）、linkformat的断开链接方法（breaklink）、chartdate的断开链接方法（breaklink）的区别：
'1、chartdate的断开链接方法（breaklink）：word中有一个图表，图表背后有源数据，断开该图表与其背后的数据源之间的链接。
'2、linkformat的断开链接方法（breaklink）：断开源文件与指定的OLE对象、图片、链接域之间的链接。
'3、超链接（hyperlink）的断开链接方法（delete）：单击word中的一段文字或一个图形，不再可以打开一个网站或一个文件，两者之间的链接断开。
'4、域（field）的断开链接方法（unlink）：word中有一段文字（即域），这段文字可以更新，可以更新的原因是背后有数据源，断开该文字与数据源之间的链接。
linkformat（WdLinkType），指定链接的类型。linkformat分类如下：
在Word VBA中，WdLinkType是一个枚举类型，用于表示链接的类型。它定义了不同类型的链接，可以在VBA代码中使用这些枚举值来操作和管理链接。
下面是WdLinkType枚举的常见值及其含义：
wdLinkTypeOLE: 表示链接是一个OLE对象的链接。
wdLinkTypePicture: 表示链接是一个图片的链接。
wdLinkTypeText: 表示链接是一个文本文件的链接。
wdLinkTypeReference: 表示链接是一个引用的链接。
wdLinkTypeInclude: 表示链接是一个包含文件的链接。
wdLinkTypeImport: 表示链接是一个导入文件的链接。
wdLinkTypeDDE: 表示链接是一个DDE连接的链接。
wdLinkTypeDDEAuto: 表示链接是一个自动更新的DDE连接的链接。
wdLinkTypeChart: 表示链接是一个图表的链接。
wdLinkTypeLinked: 表示链接是一个已连接的文件的链接。
wdLinkTypeImported: 表示链接是一个已导入的文件的链接。
wdLinkTypeIncludePicture: 表示链接是一个包含图片的链接。
wdLinkTypeIncludeText: 表示链接是一个包含文本的链接。
在VBA中，Field和Hyperlink是两个不同的对象，具有不同的功能和用途。
Field对象：Field对象用于在文档中插入和管理字段。字段是一种特殊的文本，可以包含动态内容，如日期、页码、目录等。通过使用Field对象，你可以在VBA中对字段进行创建、修改和更新操作。
以下是一个示例代码，演示如何在VBA中创建和更新一个日期字段：
Sub InsertDateField()
Dim doc As Document
Set doc = ActiveDocument
' 插入日期字段
Dim field As field
Set field = doc.Fields.Add(Range:=Selection.Range, Type:=wdFieldDate)
' 更新字段内容
field.Update
End Sub
Hyperlink对象：Hyperlink对象用于在文档中创建和管理超链接。超链接是一种在文档中创建链接到其他位置、文件或网页的方式。通过使用Hyperlink对象，你可以在VBA中创建、修改和删除超链接。
以下是一个示例代码，演示如何在VBA中创建一个超链接：
Sub InsertHyperlink()
Dim doc As Document
Set doc = ActiveDocument
' 插入超链接
Dim hyperlink As hyperlink
Set hyperlink = doc.Hyperlinks.Add(Anchor:=Selection.Range, Address:="http://www.jsjjcw.com", TextToDisplay:="计算机教程网")
End Sub
总结：
Field对象用于处理文档中的字段，可以插入和管理动态内容。
Hyperlink对象用于创建和管理超链接，可以在文档中创建链接到其他位置、文件或网页的方式。