Thread: [Solved] Word Macro: Save file as text with current file name
View Single Post
 
Old 10-22-2010, 12:23 PM
Kimberly Kimberly is offline Windows 7 Office 2010 (Version 14.0)
Expert
  
Join Date: May 2010
Posts: 517
Kimberly is on a distinguished road
Default
How about

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