Word 2013:取消行号VBA

Question

我被卡住了。

在我的组织中，我们需要检查给定段落的行号是否处于活动状态。我们正在尝试这样做，但遇到了一个与抑制行号有关的问题。

我们已经尝试过：

Selection.Information(wdFirstCharacterLineNumber)

和

Paragraph.Range.PageSetup.LineNumbers.Active = True

然而，我们正在努力避免的段落已经抑制了行号。我们正在试图确定当前段落是否有行号。

如果行号被抑制，LineNumbers.Active将返回当前段落的True。此外，如果行号被抑制，那么wdFirstCharacterLineNumber将返回第一段的1，尽管它显然不是1，因为我在较低的段落中看到了1。

如果给定段落的行号被抑制，我还没有找到返回bool或整数的函数。

我欢迎任何建议。谢谢。

Answer 1

行号对于整个文档都是有效的，这就是为什么您尝试返回它所包含的信息。

行号抑制是直接应用于单个段落的格式设置，因此需要查询段落属性。例如：

If Selection.Paragraphs(1).NoLineNumber Then
  'True (-1) means the line numbers are suppressed
Else
  'Flase (0) means the line numbers are visible
End If