[已解决]doc文档转txt的VBS为何txt多出黑色小方块？

artwen

请求大家帮助！我做了一个很简单的vbs，可以把doc文档转txt。大部分都成功，可是有的doc转成txt后，txt会多出很多黑色小方块，怎么办？

1. Const wdFormatText = 2
   
2. Set objWord = CreateObject("Word.Application")
   
3. Set objDoc = objWord.Documents.Open("a.doc")
   
4. objDoc.SaveAs "a.txt", wdFormatText
   
5. objWord.Quit

复制代码

我查了一下原因，好像是因为换行符的问题？参见：

那么，如何在以上vbs代码中实现这个？

或者，如果不是这个原因，怎么解决？谢谢大家！

用bat或vbs解决都可！谢谢

artwen

哈哈，居然自己解决：

1. Const wdFormatText = 2
   
2. Set objWord = CreateObject("Word.Application")
   
3. Set objDoc = objWord.Documents.Open("abc.doc")
   
4. objDoc.SaveAs "abc.txt", wdFormatText, , , , , , , , , , , , , wdCRLF
   
5. 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

希望有同样困惑的朋友用的上！

artwen

对了，并不是“插入换行符”的问题（对应的参数为InsertLineBreaks），而是单纯的换行符格式的问题（对应LineEnding），所以我引用的图片的猜测接近，但并没有猜对