如何用word VBA自动生成交叉引用（引用类型：编号项；引用内容：页码）？

xifeng116

我们可以用Word的交叉引用功能实现对在word文档里面的编号项、标题、书签等内容的引用，引用内容可包含页码、段落编号及段落文字等，并生成超链接。
现在想实现引用一系列有自动编号项目的页码并填到对应的表格，项目少时可以手动插入交叉引用，但项目非常多时，如何用word VBA把选区内（因word文档中还有其他表格及编号项，只对选择内容操作）的编号项自动生成交叉引用（引用类型：编号项；引用内容：页码）填到选区内的第一个表格的最后一列？

duquancai

附件 打开  按钮》》》》》》

xifeng116

duquancai 发表于 2016-12-15 13:55
附件 打开  按钮》》》》》》

非常感谢大师的无私相助！代码是我正是想要的，也从中得到了学习和启发。

xifeng116

duquancai 发表于 2016-12-15 13:55
附件 打开  按钮》》》》》》

对您的代码进行改进，文档多个表格时，按选定的表格插入，代码如下：
Sub 插入索引页码()
    Dim c As Cell
    Application.ScreenUpdating = False
    myNums = ActiveDocument.GetCrossReferenceItems(wdRefTypeNumberedItem)
    For n = 1 To UBound(myNums)
        If InStr(LCase$(myNums(n)), "项目名称") Then

            With Selection.Tables(1).Range.Columns(4)
                For i = 2 To .Cells.Count
                    .Cells(i).Range.Delete
                    With .Cells(i).Range
                        .InsertAfter "第": .Collapse 0: .End = .End - 1
                        .InsertCrossReference 0, 7, n + i - 2, True
                        .InsertAfter "页"
                    End With
                Next
            End With
            Application.ScreenUpdating = True
            MsgBox "交叉引用插入完毕！"
            Exit Sub

        End If
    Next n
    MsgBox "无法找到编号项！"
End Sub

想实现“第X页”的效果，但按照上面的代码输出的结果却是“第页X”！请问如何修正？

xifeng116

Sub 插入索引页码()
    Dim c As Cell
    Application.ScreenUpdating = False
    myNums = ActiveDocument.GetCrossReferenceItems(wdRefTypeNumberedItem)
    For n = 1 To UBound(myNums)
        If InStr(LCase$(myNums(n)), "项目1") Then

            With Selection.Tables(1).Range.Columns(8)
                For i = 2 To .Cells.Count
                    .Cells(i).Range.Delete
                    With .Cells(i).Range
                        .InsertAfter "第页": .Collapse 0: .End = .End - 2
                        .InsertCrossReference 0, 7, n + i - 2, True
                    End With
                Next
            End With
            Application.ScreenUpdating = True
            MsgBox "交叉引用插入完毕！"
            Exit Sub

        End If
    Next n
    MsgBox "无法找到编号项！"
End Sub

问题已经解决，重新设置Range.Collapse方法和Range.End 属性即可

FFFSSS111

大佬您好，我在搜索“如何批量交叉引用”时搜到您这篇帖子，觉得我想要的效果和您的很类似，特地注册账号来请教您，希望您能解答或指点一下学习的方向。  请问如何将选区内的标题编号、内容和页码批量的交叉引用并显示在一行（word设置样式且使用自动编号时，交叉引用好像并不能将编号和标题内容全部引用，页码也需要单独引用），引用后的内容就只需要显示在同一篇word文档中即可，望大佬抽空解答，谢谢！