[文本处理] 批处理可以修改doc中的字体吗

guyu423

我想将list文件转换成doc文件 然后改变里边的*号为空格，再将字体改为指定的字体，批处理可以实现吗？求各位大神指教。

pcl_test

回复 3# guyu423


https://msdn.microsoft.com/zh-cn/library/ff835182

guyu423

回复 2# pcl_test

谢谢！回复。

如果测试文件没有打开方式，但是可以用word打开，打开时提醒文本编码，用（IBM EBCDIC）可以显示，其他的是乱码，这些可用bat实现吗？

pcl_test

vbs

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(".\测试.list", 1)
txt = Replace(file.ReadAll, "*", " ")
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
objWord.Selection.TypeText txt
objWord.selection.WholeStory
objWord.selection.font.Name = "黑体"
objDoc.SaveAs fso.GetFolder(".").Path&"\测试.doc"
objDoc.Close
objWord.Quit
复制代码