批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理可以修改doc中的字体吗 [打印本页]

作者: guyu423 时间: 2015-11-28 23:25 标题: 批处理可以修改doc中的字体吗

本帖最后由 pcl_test 于 2015-11-28 23:43 编辑

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

作者: pcl_test 时间: 2015-11-29 00:22

本帖最后由 pcl_test 于 2015-11-29 00:23 编辑

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
复制代码

作者: guyu423 时间: 2015-11-29 09:08

本帖最后由 guyu423 于 2015-11-29 09:26 编辑

回复 2# pcl_test

谢谢！回复。

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

作者: pcl_test 时间: 2015-11-29 11:56

回复 3# guyu423

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

欢迎光临批处理之家 (http://bbs.bathome.net/)