VBA Output

[閔]

請問 在WORD上
如何寫入TXT檔~~
由於WORD物件 完全不懂><
所以以下是小弟亂寫的...
請高手大大賜教!

Sub testOutput()
'在文字檔(.TXT檔)寫入資料
　Dim i As Integer
　Open "C:\Documents and Settings\閔\桌面\TEST.TXT" For Output As #1
　For i = Selection.Characters.Count To 1 Step -1
　　If Selection.Characters(i).Font.Size < 6 Then Selection.Characters(i).Delete
　　If Selection.Characters(i) = " " Then Selection.Characters(i).Delete
　　Print #1, Selection.Characters(i)　 '寫入資料
　　Application.StatusBar = "系統正在轉換資料...　" & Format(100 - ((i / Selection.Characters.Count) * 100), "0.0000") & " / 100%"
　Next i
　　　Close #1
End Sub

[hsieh]

程式碼:

Sub nn()
Dim MyString$, InputStr$
Open "C:\Documents and Settings\閔\桌面\TEST.TXT" For Input As #1
Do While Not EOF(1)
　　Input #1, MyString
　　InputStr = InputStr & Chr(10) & MyString
Loop
Close #1
ActiveDocument.Words.Last = InputStr
End Sub

這樣試試

[閔]

版大誤會嚕!
小弟是要將word匯至txt
不是txt匯入word~

PS:非常感謝版大的協助!

[閔]

非常感謝hsieh版大的指導!
小弟跑起來 仍然會有點問題
可否煩請版大 再次指導~
WORD DATA如下
TEST1
TEST2
TEST3
TEST4
TEST5

匯出後變成
"TEST1
"
"TEST2
"
"TEST3
"
"TEST4
"
"TEST5
"

小弟有改了Write #1, Mid(MyStr, 1, Len(MyStr) - 1)
但 雙引號 仍然存在!

[hsieh]

Sub NN()
Dim p
Open "test.txt" For Output As #1
With ActiveDocument
For Each p In .Sentences
Print #1, p
Next
End With
Close #1
End Sub

[閔]

萬分感謝版大
這正是小弟想要滴~~