word vba 插入交叉引用域

Sub InsertCrossRefField() ' 插入交叉引用域 Dim refType As String Dim refText As String Dim refItem As String Dim refNum As Integer Dim refStyle As String Dim refField As Field

' 设置引用类型
refType = "图表"
' 设置引用文本
refText = "第"
' 设置引用项
refItem = "图表 1"
' 设置引用编号
refNum = 1
' 设置引用样式
refStyle = "样式 1"

' 插入交叉引用域
Set refField = Selection.Range.Fields.Add(Selection.Range, wdFieldEmpty, _
    " REF " & refType & " " & refText & " " & refItem & " \\# " & refNum & " " & refStyle)
' 更新域
refField.Update

End Su