extract vba to .bas
fix bug: getfilename and change SaveAs to SaveAs2(word2010)