Word 2013:抑制行号VBA

时间:2016-03-16 14:45:42

标签: vba ms-word word-2013

我被困住了。

在我的组织中,我们需要检查给定段落的行号是否有效。我们正在尝试这样做,但遇到了抑制行号的问题。

我们尝试过:

Selection.Information(wdFirstCharacterLineNumber)

Paragraph.Range.PageSetup.LineNumbers.Active = True

但是,我们试图避免的段落已经抑制了行号。我们正在尝试确定当前段落是否包含行号。

如果行号被取消,LineNumbers.Active会返回当前段落的True。此外,如果行号被抑制,那么wdFirstCharacterLineNumber会为第一段返回1,即使它显然不是1,因为我在下段中看到1

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

我欢迎任何建议。谢谢。

1 个答案:

答案 0 :(得分: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