// -*- ASCII:EDT -*-

PushTagsandRegisters;
BeginGroup;
LetReg(9,"\subsubsection{");
IfSel('0','=',>
      !'SelectParagraph;>
        IfSel(''0'',''='',>
              !''Ins("\subsubsection{}");>
                 CharLeft;'',>
              !''SelCharLeft;>
                 IfSel(''''0'''',''''='''',>
                       !''''Ins("\subsubsection{}");>
                            CharLeft;'''',>
                       !''''Exe("%b\Macros\Sections\CommonSections.edt");'''')'')',>
      !'Exe("%b\Macros\Sections\CommonSections.edt");');
EndGroup;
PopTagsandRegisters;
End;
