InsertCrossReference在最后一项上失败

Question

我想我发现了InsertCrossReference的一个错误。如果我将from代码用于文档中的最后一个列表项，并且该列表项之后没有任何内容，则它将失败，并返回错误"运行时错误‘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:=" "