Question

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

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

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

如果你想要一个例子，如果我设置了以下内容：

这是我的外星人

你好
再见

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

InsertCrossReference在最后一项失败

1 个答案: