标题: [文本处理] [已解决]doc文档转txt的VBS为何txt多出黑色小方块? [打印本页]
作者: artwen 时间: 2013-2-28 18:58 标题: [已解决]doc文档转txt的VBS为何txt多出黑色小方块?
本帖最后由 artwen 于 2013-2-28 23:27 编辑
请求大家帮助!我做了一个很简单的vbs,可以把doc文档转txt。大部分都成功,可是有的doc转成txt后,txt会多出很多黑色小方块,怎么办?- Const wdFormatText = 2
- Set objWord = CreateObject("Word.Application")
- Set objDoc = objWord.Documents.Open("a.doc")
- objDoc.SaveAs "a.txt", wdFormatText
- objWord.Quit
复制代码
我查了一下原因,好像是因为换行符的问题?参见:
那么,如何在以上vbs代码中实现这个?
或者,如果不是这个原因,怎么解决?谢谢大家!
用bat或vbs解决都可!谢谢
作者: artwen 时间: 2013-2-28 23:23
哈哈,居然自己解决:- Const wdFormatText = 2
- Set objWord = CreateObject("Word.Application")
- Set objDoc = objWord.Documents.Open("abc.doc")
- objDoc.SaveAs "abc.txt", wdFormatText, , , , , , , , , , , , , wdCRLF
- objWord.Quit
复制代码
1.wdCRLF就可以完美解决一些word文档转存成txt后,由于换行符不对而输出小黑方块的问题。
2.“,”号位置自己对应:instance.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks)
作者: artwen 时间: 2013-2-28 23:28
希望有同样困惑的朋友用的上!
作者: artwen 时间: 2013-2-28 23:31
对了,并不是“插入换行符”的问题(对应的参数为InsertLineBreaks),而是单纯的换行符格式的问题(对应LineEnding),所以我引用的图片的猜测接近,但并没有猜对
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |