哪有把Word、HTML或者excel转换成TXT文件的函数。

Question

我也要。谢谢。 [email protected]

Answer 1

y1g1y1?哪有这方面的例子，能做一个是一个。

Answer 2

下面是word,html转成txt的例子
先打开要转化的文件，然后用下面的过程
sub saveastext ()
myDocname = word.ActiveDocument.Name
pos = InStr(myDocname, ".")
If pos > 0 Then
    myDocname = Left(myDocname, pos - 1)
    myDocname = myDocname & ".txt"
    word.ActiveDocument.SaveAs FileName:=myDocname, _
        FileFormat:=wdFormatText
End If
end sub

Answer 3

realsong,是可以了，但在存储的时候指定不了路径，有没有高招啊。

Answer 4

而且在   Set oWord = GetObject("c:\temp\", "Word.Application")
指定路径的话，到这一句就通不过，但这路径的确存在。

Answer 5

Set oWord = GetObject("c:\temp\Word.Application")

Answer 6

sorry:Set oWord = createobject("Word.Application")
set aaa=oWord.open("c:\temp\Word.Application") 

Answer 7

哎呀，好啦。
Set oWord = GetObject("", "Word.Application")
....
 oWord.ActiveDocument.SaveAs FileName:=pathname + myDocname, _
        FileFormat:=wdFormatText
pathname为指定路径。
这个方法对Html文件肯定行不通吧。