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

truezx

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

  Q' a5 o! [) ~+ `[ 本帖最后由 truezx 于 2007-11-16 23:28 编辑 ]

truezx

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

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

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

truezx

5、手动删除表示帖子回帖页数的页码，例如：  （1 2 3 4 5 6 .. 10）   这样的东西，为什么要删除，是因为它会影响后面的步骤，所以必须删除。
6、复制到excel里
/ P  ], G2 ^/ V# G7、排序

4 i* I5 u# w" V" [; C2 [! \* S[ 本帖最后由 truezx 于 2007-11-16 23:39 编辑 ]

truezx

8、请打开VBA编辑器\插入\添加模块,将下列代码拷入
! }$ M1 W7 u" K, PFunction Getname(HyCell)
/ h. t8 }7 ~2 K: b& z0 nApplication.Volatile True
3 {/ t. S$ ~( q6 ^! a4 s* V  r6 |Getname = HyCell.Hyperlinks(1).Name
7 P( a" I! s* A3 REnd Function
返回EXCEL,在任一表元输入 =Getname(A1),即可看到结果,括号内为包含超级链接的表元地址,将此函数复制即可(即使用上同于其他函数)
' t; P4 E( h8 F& [% h2 J
我是在excel的D1输入=Getname(A1),就将A1中的超级链接单独提取出来了
; }% Y5 j' ]3 K# ~拖动句柄，提取所有链接
4 @1 r" u: R) K/ ]
/ y- D6 r' L% k0 q) ~8 g& Q2 Z% k说明一下：提取链接的功能是我从网上找的，参考帖如下
" A4 F9 u2 h3 a" k8 x/ w1 x
http://club.excelhome.net/dispbbs.asp?boardid=1&id=141484
http://club.excelhome.net/dispbb ... replyID=&skin=0
+ Y1 F: l" p) U
# I6 i0 m# A9 H7 q另外，这个程序excel认为是非法的”宏“，所以一关闭excel再打开就不让用这个程序了，每次整理我都要重新开新工作簿，然后重新编写这个VBA小程序。
3 E; ~4 f" A* [! k6 _3 K
' i8 A5 a( Y; Z* P2 V  A* `
9 _6 l; K' l$ B# |9 B) {4 d[ 本帖最后由 truezx 于 2007-11-17 00:32 编辑 ]

truezx

9、将D列的提取出来的链接复制word里，是表格形式的。
10、转换成文本
11、将连接中的 “&” 替换为 “+”
8 l+ _" `  p. Y4 K8 E1 L12、将文本转换成表格，文字分隔位置选择“其他字符”并输入 “+”，形成一个新表

' d5 j+ |) M% l; ?- Y, G11和12步也可以省略为 文本直接以 "&“ 为分隔符号直接再转换成表格。
+ ^" ]- ]' T$ s6 \- t6 ?9 t
13、复制新表格的第一列到excel的E列
# Q0 w9 J# i1 h+ y

truezx

14、在 F 列 输入公式： =""&A1&""   其作用是为了在这里发帖，公式执行的结果是生成：
# \8 u/ P( O2 ?“[ url = http://www.×××××.com/bbs/viewthread.php?tid=3674]3D手柄绘制教程[/url]”这样的文本形式，但是发帖后就产生点击文字链接的效果
9 n* f- y7 |, J% c! i2 }- x15、拖动句柄生成所有的文字加链接
8 I/ a- d$ O+ I16、复制 F 列的所有文本到“记事本”中
8 l2 @+ y( h, Q' Q; V  X6 a( {- }' R17、从记事本中复制后就可以发帖了
4 Z" A0 o' F7 j$ q8 ^! k- q8 |  @, H) k
说明一下公式： =""&A1&""    的意思
! x8 z, G! v; N
# j  x2 \3 h% y1 w6 D# f引号内的就是显示本身， & 相当于加号，上面那个公式的意思就是 “[url=”  加上 E1 单元格里的链接 加上 “]” 再加上 A1单元格里的文字
  
4 n. }& |4 a! J+ v! Y5 e8 S$ E3 r
[ 本帖最后由 truezx 于 2007-11-17 00:17 编辑 ]

jxjjmlx

楼主辛苦了！

51531792

太乱了。。。。眼花啦。