Convert Word 2003 doc to *.asc

[Guest]

We use Word 2003 to create notes for AutoCAD drawings. To save the format properly, we need to SaveAs the Word doc as "MS-DOS with Text Layout." Word 2003 does not have this as an option and we cannot find a converter to do that for us. Has anyone found a converter that will do that?

 

[Graham Mayor]

We use Word 2003 to create notes for AutoCAD drawings. To save the
format properly, we need to SaveAs the Word doc as "MS-DOS with Text
Layout." Word 2003 does not have this as an option and we cannot
find a converter to do that for us. Has anyone found a converter
that will do that?

What about FileFormat:=wdFormatDOSText? The following slight variation on
the method suggested in Word's own help file should do the trick.

Sub SaveAsDOSTextFile()
Dim strDocName As String
Dim intPos As Integer

'Find position of extension in filename
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")

If intPos = 0 Then

'If the document has not yet been saved
'Ask the user to provide a filename
strDocName = InputBox("Please enter the name " & _
"of your document, in the format filename.asc")
Else

'Strip off extension and add ".asc" extension
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".asc"
End If

'Save file with new extension
ActiveDocument.SaveAs FileName:=strDocName, _
FileFormat:=wdFormatDOSText
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>