Word 2013:禁止显示行号VBA

Question

我被困住了。

在我的组织中，我们需要检查给定段落的行号是否处于活动状态。我们正在尝试执行此操作，但遇到了抑制行号的问题。

我们尝试过：

Selection.Information(wdFirstCharacterLineNumber)

和

Paragraph.Range.PageSetup.LineNumbers.Active = True

但是，我们试图避免的段落已经禁止了行号。我们正在尝试确定当前段落是否有行号。

如果禁止显示行号LineNumbers.Active则返回当前段落的True。此外，如果取消行号，则wdFirstCharacterLineNumber返回第一段的1，即使它显然不是1，因为我在较低的段落中看到1。

我还没有找到一个函数，如果给定段落的行号被抑制，则返回布尔值或整数。

我欢迎任何建议。谢谢。

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