13/04/04 18:17:27.62
>>806
自己レス
いろいろ調べたら次のマクロでできました。
ありがとうございました。
Sub ページ区切りをセクション区切りに()
Dim myfind As Boolean, myrange As Range
Do
Set myrange = ActiveDocument.Content
myfind = myrange.Find.Execute(findtext:="^m", MatchSoundsLike:=False)
If myfind Then
myrange.Select
Selection.Delete
Selection.InsertBreak Type:=wdSectionBreakNextPage
End If
Loop Until myfind = False
End Sub