Sub saveastxt() ActiveDocument.SaveAs2 FileName:=Replace(ActiveDocument.Name, "docx", "txt") FileFormat = wdFormatText End Sub