truezx 发表于 2007-11-16 23:25

我汇总版主作品制作目录的土方法

1、利用论坛的搜索功能,用版主的id作为关键词可以查找到版主的所有帖子
2、一页一页复制到word里。
3、删除不需要的最后两列

[ 本帖最后由 truezx 于 2007-11-16 23:28 编辑 ]

truezx 发表于 2007-11-16 23:26

4、利用word的“替换”功能分别去掉手动换行符和图片.

比较下面的几张图片,可以看到“太良平”后面的那个向下的箭头(手动换行符字)没有了,所有的图片(“精”字和代表附件的回形针图片等)也没有了

[ 本帖最后由 truezx 于 2007-11-16 23:33 编辑 ]

truezx 发表于 2007-11-16 23:38

5、手动删除表示帖子回帖页数的页码,例如:(1 2 3 4 5 6 .. 10)   这样的东西,为什么要删除,是因为它会影响后面的步骤,所以必须删除。
6、复制到excel里
7、排序

[ 本帖最后由 truezx 于 2007-11-16 23:39 编辑 ]

truezx 发表于 2007-11-16 23:43

8、请打开VBA编辑器\插入\添加模块,将下列代码拷入
Function Getname(HyCell)
Application.Volatile True
Getname = HyCell.Hyperlinks(1).Name
End Function
返回EXCEL,在任一表元输入 =Getname(A1),即可看到结果,括号内为包含超级链接的表元地址,将此函数复制即可(即使用上同于其他函数)

我是在excel的D1输入=Getname(A1),就将A1中的超级链接单独提取出来了
拖动句柄,提取所有链接

说明一下:提取链接的功能是我从网上找的,参考帖如下

http://club.excelhome.net/dispbbs.asp?boardid=1&id=141484
http://club.excelhome.net/dispbbs.asp?BoardID=1&ID=8180&replyID=&skin=0

另外,这个程序excel认为是非法的”宏“,所以一关闭excel再打开就不让用这个程序了,每次整理我都要重新开新工作簿,然后重新编写这个VBA小程序。


[ 本帖最后由 truezx 于 2007-11-17 00:32 编辑 ]

truezx 发表于 2007-11-16 23:54

9、将D列的提取出来的链接复制word里,是表格形式的。
10、转换成文本
11、将连接中的 “&” 替换为 “+”
12、将文本转换成表格,文字分隔位置选择“其他字符”并输入 “+”,形成一个新表

11和12步也可以省略为 文本直接以 "&“ 为分隔符号直接再转换成表格。

13、复制新表格的第一列到excel的E列

truezx 发表于 2007-11-17 00:01

14、在 F 列 输入公式: =""&A1&"" 其作用是为了在这里发帖,公式执行的结果是生成:
“[ url = http://www.×××××.com/bbs/viewthread.php?tid=3674]3D手柄绘制教程”这样的文本形式,但是发帖后就产生点击文字链接的效果
15、拖动句柄生成所有的文字加链接
16、复制 F 列的所有文本到“记事本”中
17、从记事本中复制后就可以发帖了

说明一下公式: =""&A1&""的意思

引号内的就是显示本身, & 相当于加号,上面那个公式的意思就是 “” 再加上 A1单元格里的文字


[ 本帖最后由 truezx 于 2007-11-17 00:17 编辑 ]

jxjjmlx 发表于 2007-11-17 00:06

楼主辛苦了!:)

51531792 发表于 2007-11-17 00:19

太乱了。。。。眼花啦。
页: [1]
查看完整版本: 我汇总版主作品制作目录的土方法