如何判断文档中当前行是否是分页符

此问题有些怪，以下代码供参考（可能有更好地办法）

Sub test() Dim Bb As Integer, Bf As Integer, Sb As Integer, Sf As Integer With Selection Bb = .Information(wdNumberOfPagesInDocument)‘替换前总页数 Sb = ActiveDocument.Sections.Count’替换前总节数 .Text = "Test a wdPageBreak?" Bf = .Information(wdNumberOfPagesInDocument)‘替换后总页数 Sf = ActiveDocument.Sections.Count’替换后总节数 If Bb > Bf And Bf = Sf Then MsgBox "It's a PageBreak"‘分页符 ElseIf Bb > Bf And Bf > Sf Then MsgBox "It's a SectionBreakNextPage"’下一页型分节符 ElseIf Bb = Bf And Bf > Sf Then MsgBox "It's a SectionBreakContinuous"‘连续型分节符 Else MsgBox "It isn't a PageBreak" End If ActiveDocument.Undo 1’撤消替换操作 End With End Sub

上述代码是指已选定的当前，下列代码应用于光标位置行（即没有选定）：

Sub test2() Dim MyRange As Range, SelStart As Long, SelEnd As Long, StSel As Range On Error Resume Next Application.ScreenUpdating = False With Selection Set StSel = .Range SelStart = .Start .MoveDown SelEnd = .Start + 1 Set MyRange = ActiveDocument.Range(SelStart, SelEnd) If MyRange Like "*" & Chr(13) = True And _ MyRange.Find.Execute(findtext:="^m") = True Then _ MsgBox "当前行中有手动分页符" StSel.Select End With Application.ScreenUpdating = True End Sub

如果BUTTON兄不是用代码，则在工具/选项/视图：格式标记全部前打勾。

谢谢守柔斑竹指点.