问: 如何将Word的申请表转换成Excel
答:
给你提供一个用宏实现的方法:1、将所有的申请表复制到一个文件夹,假如是 d:\申请表(如果路径不是D:\申请表,把代码中两处D:\申请表 改为你的路径)2、打开一个空白EXCEL表,工具→宏→宏:随便输个宏名(如AAA) :创建然后把代码粘进去,按F5运行Dim ww, t2, s As String, i As LongSet ww = CreateObject("word.Application")s = Dir("D:\申请表\*.DOC")i = 2Do While s <> ""Set t2 = ww.Documents.Open("D:\申请表\" & s)With t2.tables(1) Cells(i, 1) = s Cells(i, 2) = .cell(1, 2) Cells(i, 3) = .cell(1, 4) Cells(i, 4) = .cell(1, 6) Cells(i, 5) = .cell(2, 2) Cells(i, 6) = .cell(2, 4) Cells(i, 7) = .cell(2, 6) Cells(i, 8) = .cell(3, 2) Cells(i, 9) = .cell(3, 4) Cells(i, 10) = .cell(4, 2) Cells(i, 11) = .cell(4, 4) Cells(i, 12) = .cell(5, 2) Cells(i, 13) = .cell(5, 4) Cells(i, 14) = .cell(6, 2) Cells(i, 15) = .cell(6, 4)End Witht2.Close: i = i + 1: s = DirLoopCells.Replace What:=Chr(13) & Chr(7), Replacement:=""代码说明:1、假定你的每一份申请表是每个文档的第一个表2、位置按你的图中的位置确定: 第一行的第2,4,6格 第二行的第2,4,6格 第三行的第2,4格…… 如果有变动,按一下规律更改代码中的:.cell(行, 列) 就行了3、每行的第一个单元格是你的文件名,以便对应。
问: 怎么把动网论坛版面模式修改成一行两栏,就象中国自考网里的一样
答:
截图看看效果 提问人的追问 2009-06-17 16:23
对,就是这样,呵呵 回答人的补充 2009-06-17 16:24
是不是一个板块一行显示2个栏目?
类似于http://bbs.idcxun.com 回答人的补充 2009-06-17 16:27
加Q799729234 远程教你
问: 以前报的物流管理自考大专,通过了三门,后来改成会计专业了。
答:
可以的,只要科目相同就行,申请毕业证时把这个准考证带着就行。放一起。简单 不需要任何程序。 那得看你通过的三科是什么科目。如果专科段的公共课,在这两个专业里都设置下列目并你已经通过就可以代替。比如 03706 思想道德修养与法律基础,
03707 毛、邓、三概论
00020 高等数学(一)
00009 政治经济学(财)
如果是专业课,并且科目名称和代码不同,则不可以代替。