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

button

对不起,应该是"如何判断文档中当前行是否是分页符"

[此贴子已经被作者于2004-10-20 16:47:04编辑过]

办公之星

楼主，问题好像有语病。能否重新表述一下？

守柔

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

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兄不是用代码，则在工具/选项/视图：格式标记全部前打勾。

button

谢谢守柔斑竹指点.

dsmch

1. Sub Macro1()
   
2. For i = 1 To Range("a65536").End(xlUp).Row
   
3.     If Rows(i).PageBreak <> xlPageBreakNone Then MsgBox i - 1 & "行存在分页符"
   
4. Next
   
5. End Sub
   

复制代码

banjinjiu

dsmch 发表于 2014-8-4 06:12

这是word判断，不是excel判断。