Sub WordToTxt()
Dim WordApp As Object, FPath$, FName
FPath = "c:\1\"
FName = Dir(FPath & "*.doc", vbNormal)
Set WordApp = CreateObject("Word.application")
WordApp.Application.Visible = True
While FName <> ""
WordApp.Documents.Open FileName:=FPath & FName, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:=""
WordApp.ActiveDocument.SaveAs FileName:=FPath & Left$(FName, Len(FName) - 4) & ".txt", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1251, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
ActiveWindow.Close
FName = Dir
Wend
End Sub
|
