document.selection.Replace "^[\da-y補]","1",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "1\s(.+?)\s(.+)","1~\1~\2",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace " 教師.+\n[^1z]+\n","",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace " 教師.+\n","",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "1\s(\w+)\n","1~\1~",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "\s","",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "\n(z.+)","~\1",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "\n([^1]+)","\1",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "^([^1]+)\n","",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "z","~z",eeFindNext Or eeReplaceAll
document.selection.Replace "~~z","~",eeFindNext Or eeReplaceAll
document.selection.Replace "~z","~",eeFindNext Or eeReplaceAll
document.selection.Replace "1~(.+)~(.+)~(.+)","\1#\1@\3,\1#\1@\1：\2",eeFindNext Or eeReplaceAll Or eeFindReplaceRegExp
document.selection.Replace "" & Chr(7) & "教師.+","",eeFindNext Or eeFindReplaceEscSeq Or eeReplaceAll Or eeFindReplaceRegExp