The following line is saving as .doc:
ActiveDocument.SaveAs FileName:=strDrive & "" & fisword & ".doc", FileFormat:=wdFormatDocument
Have you tried .docx instead?
ActiveDocument.SaveAs FileName:=strDrive & "" & fisword & ".docx", FileFormat:=wdFormatDocument