单位里普遍存在各种低效率的办公行为,比如每年的自我评分.评分细目表为word文档,每行一个项目,每个项目要填写得分事项和分值,组长审核之后转成Excel向上递交.主要涉及到问题就是word文档中一列得分要转成Excel一行内容,如果一个人就复制,粘贴到Excel,再复制,转置即可.人一多,显得很麻烦.于是写了一段VBA来处理,在此保留备份. Sub 汇总个人评分() Dim FolderPath$, FileName$, FilePath$ Dim wdApp As Object Dim Doc…