open saved word document in external editor.

gmayor · #1 11-30-2017, 06:25 AM

Spaces are not barred in filenames and the code you posted (essentially as below) works without any problem with your filename example

Code:

Sub Macro1()
Dim retval As Object
Dim strName As String
    On Error Resume Next
    strName = Replace(ActiveDocument.FullName, ".docx", ".txt")
    ActiveDocument.SaveAs2 FileName:=strName, FileFormat:=wdFormatText
    ActiveDocument.Close 0
    retval = Shell("notepad.exe " & strName, 1)
End Sub

gerison · #2 11-30-2017, 06:32 AM

Thank you again for your fast response. Using the scribt on filename "Ka,17-11-27,Brief lang an Lackner Josef.docx" saves the .txt file and generates en error message on opening the editor: file not found. Using the the scribt on filename "Ka,17-11-27,xxxxxxxxxxxxxxxxxxxxxxxx.docx" saves the .txt file and opens it in the editor for further editing. This is what I don't understand. It doesn't relate to the lenght of the file name as well. As soon as there are spaces the error occours. This is why I was thinking about restrictions of the filname itself on running the scribt. The scribt itself works great, and I thank you again. Maybe ther is a trick to it.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating a macro from a non-saved Word doc that duplicates the current open document and saves it	mike0215	Word VBA	3	11-17-2017 01:40 PM
Cannot open saved Word document	otherlunds	Word	1	09-01-2014 05:41 AM
Formula to open external file with specific program (like open with)	pemartins	Excel	16	02-24-2014 11:39 PM
Run-time error '1004': Document not saved. The document may be open...	doctor_who12	Excel Programming	1	01-22-2014 04:47 PM
Preventing word/excel from trying to open external template locations	Perhill	Office	0	03-02-2011 04:44 AM