Word 2013：取消行号 VBA

Question

我卡住了。

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

我们已经尝试过：

Selection.Information(wdFirstCharacterLineNumber)

和

Paragraph.Range.PageSetup.LineNumbers.Active = True

但是，我们试图避免的段落隐藏了行号。我们试图确定当前段落是否有行号。

如果当前段落的行号被抑制 LineNumbers.Active returns True。此外，如果行号被抑制，那么第一段的 wdFirstCharacterLineNumber returns 1 即使它显然不是 1 正如我在较低的 1 中看到的那样段.

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

我欢迎任何建议。谢谢。

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

Word 2013：取消行号 VBA

Word 2013: Suppress Line Numbers VBA

vba

ms-word

word-2013