Sub כל_ההערות_בפעם_אחת()
'
'
'
    Application.Run MacroName:="רצף_הערות_חלק_ג"
    ActiveDocument.Save
    Application.Run MacroName:="כל_ההערות_בפעם_אחת"




End Sub