Force MS Word to Open and Save all Text Files in MS DOS encoding

[swaggerbox]

I have hundreds of text files in a folder that's incorrectly formatted. I had to open each text file in MS Word. And to correct it, open in MS DOS encoding, search and replace all Non-ASCII and then save the file in the same MS DOS encoding. Any idea how to get started?

[gmaxey]

For the Batch part you can start with:

http://gregmaxey.mvps.org/word_tip_p...der_addin.html

[swaggerbox]

Thanks Greg. What I'm really struggling is to force open the file in a set text encoding, e.g. MS-DOS encoding.

Sub myRoutine()
Dim file
Dim path As String

path = "C:\Reports\"

file = Dir(path & "*.txt")
Do While file <> ""
Documents.Open FileName:=path & file

'subroutine to force MS Word to open text in MS-DOS encoding
'search and replace non-ASCII characters to standard format
'save text file in MS-DOS encoding 

file = Dir()
Loop
End Sub

[gmaxey]

How are you opening it in MS-DOS encoding manually?

[swaggerbox]

Hi Greg
First I open the text file in MS Word. Since the file is not in plain text format (or was not formatted as plain text), it prompts user to select a text encoding format. I select MS-DOS encoding instead of Windows format.

sharma_unrecognizable_documents_1.jpg

[gmaxey]

Your picture leads one to believe you want to open in Other encoding "Japanese"

For MS-DOS try

Documents.Open FileName:="db1.mdb, Encoding:=437