起源是重复的工作占用太多精力。
对于有三脚猫编程技能的现代工程师来说,重复就是浪费,是侮辱,是挑衅。
重复性的工作交给计算机,工程师应该专注于创造性的工作,专注于问题解决方案。
于是,我的工作中用到以下小工具。
1,WORD文档批量转存为PDF文件。
代码如下:
On Error Resume Next
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject("Word.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")
Set ffs=fds.Files
For Each ff In ffs
If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
Set oDoc=oWord.Documents.Open(ff.Path)
odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
If Err.Number Then
MsgBox Err.Description
odoc.Close
End If
End If
Next
oword.Quit
Set oDoc=Nothing
Set oWord =Nothing
MsgBox "Word All done!"
Word批量转PDF,另存扩展名.VBS
即可运行,
oword.Quit
Set oDoc=Nothing
Set oWord =Nothing
这几行代码也可调整到循环体内,参考下图。
2,WORD文件按指定顺序批量打印。
3,从批量WORD表格中提取数据汇总至EXCEL表格中。
具体应用场景和参考代码及详细文档见下文。Anonymous:python提出word表格数据填入EXCELzhuanlan.zhihu.com
觉得有帮助的朋友们点个赞!