InsertCrossReference 在最后一项上失败

Question

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

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

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

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

这是我的外部参照

1. 你好
2. 再见

其中 1 和 2 是标准编号列表，我在“Bye”之后的文档中没有任何内容，然后我运行：

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:=" "