用Word打开，按Ctrl+H，上面输入“^p”，下面不输入，按“全部替换”。
private sub command1_click()
dim fn as long
dim fc as string
fn=freefile
open "e:\1.txt" for binary as #fn
fc=space(lof(fn))
get #fn,,fc
close #fn
replace(fc,vbcrlf,"")
end sub()
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024