用VC++6.0把word文档转换成txt文档怎么弄啊 急 在线等~~

你的“弄”是啥意思啊？

Sub savedoctotextfile()

'把当前的作业文档保存到当前文件夹下，取名叫"sample_xxx.txt"
'Encoding:=65001 是UTF编码（推荐），如果期望text用中文GB2312编码就改成 936
'期望是日文的ISO-2022-jp就改50220、 期望Shift-JIS就改932 。。。。

ActiveDocument.SaveAs _
FileName:="sample_xxx.txt", _
FileFormat:=wdFormatText, AddToRecentFiles:=True, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, _
SaveAsAOCELetter:=False, _
Encoding:=65001, _
InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF

End Sub

Sub changetotext()

'在文档内把选择的部分弄成plain text
Selection.Copy
Selection.PasteSpecial DataType:=wdPasteText
End Sub

编程我不是太懂，但我感觉有很多方法。调用行不