哈哈,居然自己解决:- 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) |