vba - InsertCrossReference 在最后一项上失败

Question

我想我发现了 InsertCrossReference 的错误。如果我对文档中的最后一个列表项使用代码，而该列表项之后没有任何内容，它将失败并显示错误“运行时错误‘4198’命令失败”。如果您手动执行，则一切正常。所以你在想，我把代码写错了，但事实并非如此。为了确保，我记录了一个插入交叉引用的宏，然后运行它记录的宏，同样的错误发生了。

我用谷歌搜索了这个问题，看到有几个人提出了这个问题，但是 a) 他们没有指出它只对最后一个列表项失败，并且在该列表项之后的文档中没有任何内容 b) 他们没有'没有任何解决方法的答复。

我使用的是 Word 2010，但我也在 Word 2013 上尝试过，同样的事情发生了。

如果你想要一个例子，如果我设置如下:

这是我的外部参照

1. 你好
2. 再见

其中 1 和 2 是标准编号列表，“再见”后文档中没有任何内容，然后我运行:

ActiveDocument.Range(16, 16).InsertCrossReference ReferenceType:="Numbered item", _
ReferenceKind:=wdNumberFullContext, ReferenceItem:="2", InsertAsHyperlink _
:=True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "

注意在“再见”之后没有任何内容是关键。如果你开始一个新行，有或没有列表类型，上面的代码都可以工作

如果有人对此有任何解决方法，我将不胜感激

Answer 1

您不能在文档的最后一个段落标记之后插入任何内容。我过去遇到过这个问题。我的解决方法是实用地添加一个段落标记。

类似下面的内容:

Dim CRRange as Word.Range 'Make a range object to store where the cross reference will go.
set CRRange = ActiveDocument.Range(16,16)

if CRRange.end >= ActiveDocument.Range.End then 'Check to see if we reached the end of the document
    ActiveDocument.Paragraphs.Add Range:=ActiveDocument.Range(ActiveDocument.Range.End -1, ActiveDocument.Range.End -1)
End If

CRRange.InsertCrossReference ReferenceType:="Numbered item", _
    ReferenceKind:=wdNumberFullContext, ReferenceItem:="2", InsertAsHyperlink _
    :=True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "