怎么通过编程把一个WORD文件转换成Text文件?

[jimshen]

怎么通过编程把一个WORD文件转换成Text文件?

[northwolves]

save as

[OTT_FIRE]

其实你看看联机帮助就知道了，用saveas方法，下面是个例子。
本示例将活动文档保存为纯文本格式，文件的扩展名为“.txt”。

Sub SaveAsTextFile()
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.")
Else

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

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

[darkseven]

Sub dsfg()
s文件名称=inputbox("文件名称呢:")

ActiveDocument.SaveAs FileName:= s文件名称 FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=936, InsertLineBreaks:=False, AllowSubstitutions:=False, _
LineEnding:=wdCRLF
Application.WindowState = wdWindowStateNormal
Application.WindowState = wdWindowStateMinimize
Application.WindowState = wdWindowStateNormal
End Sub