批处理可以修改doc中的字体吗

guyu423

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

pcl_test

vbs

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set file = fso.OpenTextFile(".\测试.list", 1)
   
3. txt = Replace(file.ReadAll, "*", " ")
   
4. Set objWord = CreateObject("Word.Application")
   
5. Set objDoc = objWord.Documents.Add()
   
6. objWord.Selection.TypeText txt
   
7. objWord.selection.WholeStory
   
8. objWord.selection.font.Name = "黑体"
   
9. objDoc.SaveAs fso.GetFolder(".").Path&"\测试.doc"
   
10. objDoc.Close
    
11. objWord.Quit

复制代码

guyu423

回复 2# pcl_test

谢谢！回复。

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

pcl_test

回复 3# guyu423


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