Sub PageBreaksToSectionBreaks()
'
' PageBreaksToSectionBreaks Macro
' Written 30-Aug-2006 by Steven Marzuola
' Converts all page breaks in a Word document to section breaks

Dim myFound As Boolean
Selection.HomeKey Unit:=wdStory
Selection.MoveLeft Unit:=wdCharacter, Count:=1
With Selection.Find
   .ClearFormatting
   .Text = "^m"
   .Replacement.Text = "^m"
   .Forward = True
   .Wrap = wdFindStop
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
   .Execute
   myFound = .Found
End With

While myFound
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.InsertBreak Type:=wdSectionBreakNextPage
   Selection.Find.Execute
   myFound = Selection.Find.Found
Wend

End Sub