Save Document as Text File

gmayor · #1 11-25-2017, 09:42 PM

Use instead:

Code:

Sub saveastxt()
Dim RetVal As Object
Dim strName As String
    On Error Resume Next
    ActiveDocument.Save
    If ActiveDocument.Path = "" Then
        MsgBox "Document not saved!"
        GoTo lbl_Exit
    End If
    strName = Replace(ActiveDocument.FullName, ".docx", ".txt")
    ActiveDocument.SaveAs2 FileName:=strName, FileFormat:=wdFormatText
    ActiveDocument.Close 0
    RetVal = Shell("notepad.exe " & strName, 1)
lbl_Exit:
    Exit Sub
End Sub

gerison · #2 11-26-2017, 10:01 AM

Thank you so much. Works like a charm. Just two things would top it all. 1)The docx file closes 2)The docx file is deleted. I will try to figure it out, but would appreciate help nevertheless. Thank you. gerald

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word VBA - Split Document By Headings - Save File Name As Heading Name	jc491	Word VBA	7	01-21-2022 11:04 AM
Corrupted file? I'm unable to save changes to Word document	MikeW	Word	4	02-08-2017 09:41 AM
Vba code to save document as pdf using document property text and rename folder.	staicumihai	Word VBA	1	12-21-2015 07:39 AM
VBA save a NEW unsave document without prompting user for a file name	KSP	Word VBA	5	09-02-2014 01:42 PM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM