word文档对象的超连接插入

凡起

目前用的是模块的对象操作方法，我的文档中某一段需要插入超连接，方便点击跳转网页。

  

子程序名	返回值类型	公开	备 注
功能_文本聚合_数据库
参数名	类 型	参考	可空	数组	备 注
参_是否聚合图片	逻辑型
参_返回路径数据	数据_聚合路径

变量名	类 型	静态	数组	备 注
局_日期数组	文本型		0
局_聚合日期	文本型
局_json文本	文本型
局_json	类_JSON
局_成员数量	整数型
局_计次	整数型
局_成员信息	数据_成员信息
局_所有来源	文本型
局_来源数量	文本型		0
局_计次1	整数型
局_聚合数据	数据_聚合路径
局_文件名	文本型
word对象	对象
计次	整数型

重定义数组 (参_返回路径数据, 假, 0)
局_聚合日期 ＝ 功能_聚合_取日期范围 ()
局_日期数组 ＝ 分割文本 (局_聚合日期, “|”, )
局_json文本 ＝ 功能_数据库取数据 (局_日期数组 [1], 局_日期数组 [2])
局_所有来源 ＝ 功能_整合群名称 (局_json文本)
局_来源数量 ＝ 分割文本 (局_所有来源, “|”, )
如果真 (局_所有来源 ＝ “” 或 局_json文本 ＝ “[]” 或 局_json文本 ＝ “”)
调试输出 (“无数据”)
返回 ()
局_json.解析 (局_json文本)
局_成员数量 ＝ 局_json.取属性 (“”).成员数 ()
计次循环首 (取数组成员数 (局_来源数量), 局_计次)
' 来源计次
J_word.创建 ()
J_word.新建文档 ()
word对象 ＝ J_word.取自身对象 ()
计次循环首 (局_成员数量, 局_计次1)
局_成员信息.时间 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].datetime”)
局_成员信息.时间 ＝ 时间_到文本 (时间_GMT转为时间 (局_成员信息.时间, 假), 1)  ' 时间转换
局_成员信息.来源 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].category”)
局_成员信息.内容 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].content”)
局_成员信息.连接 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].link”)
如果真 (局_成员信息.来源 ＝ 局_来源数量 [局_计次])
局_文件名 ＝ 局_来源数量 [局_计次]
' 匹配来源
J_word.输入文本 (, 1)
J_word.输入文本 (, 1)
J_word.字体颜色 ( #红色 )
J_word.输入文本 (“【 时  间 】”, 0)
J_word.输入文本 (局_成员信息.时间, 0)
J_word.输入文本 (, 1)
J_word.字体颜色 ( #蓝色 )
J_word.输入文本 (“【 群  名 】”, 0)
J_word.输入文本 (局_成员信息.来源, 0)
J_word.输入文本 (, 1)
J_word.字体颜色 ( #黑色 )
J_word.输入文本 (“【消息内容】”, 0)
J_word.输入文本 (局_成员信息.内容, 0)
J_word.输入文本 (, 1)
如果 (局_成员信息.内容 ＝ “图片”)
J_word.插入图片 (局_成员信息.连接)
J_word.输入文本 (, 1)
如果真 (局_成员信息.连接 ≠ “” )‘这里目前是采用文本方式插入，想替换为超连接形式。试过对象操作行插入，会乱，不知道怎回事。
‘还有一种方法 按关键词插入 可能对象操作有问题，插入后全局都是这个链接，一个文档中 包含了多个链接’
J_word.输入文本 (“【消息链接】”, 0)
J_word.输入文本 (, 1)
J_word.输入文本 (局_成员信息.连接, 0)
J_word.输入文本 (, 1)


处理事件 ()
计次循环尾 ()
如果真 (目录_是否存在 (全_聚合文件目录 ＋ “\” ＋ 时间_到文本 (取现行时间 (), 3, 1)) ＝ 假)
创建目录 (全_聚合文件目录 ＋ “\” ＋ 时间_到文本 (取现行时间 (), 3, 1))

如果 (局_文件名 ≠ “”)
局_聚合数据.路径文本 ＝ 全_聚合文件目录 ＋ “\” ＋ 时间_到文本 (取现行时间 (), 3, 1) ＋ “\” ＋ 局_文件名 ＋ “.docx”
调试输出 (“输出路径”, 局_聚合数据.路径文本)
J_word.另存文档 (局_聚合数据.路径文本)
J_word.退出 ()
功能_设置聚合进度 (“处理文档：” ＋ 局_聚合数据.路径文本)
' word_插入超连接 (局_word行数, 局_聚合数据.路径文本)
日志_插入 (“聚合文档：” ＋ 局_聚合数据.路径文本)
加入成员 (参_返回路径数据, 局_聚合数据)

J_word.关闭文档 (1)
J_word.退出 ()
局_文件名 ＝ “”
处理事件 ()
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 功能_文本聚合_数据库<br /> .参数 参_是否聚合图片, 逻辑型<br /> .参数 参_返回路径数据, 数据_聚合路径, 参考 数组<br /> .局部变量 局_日期数组, 文本型, , "0"<br /> .局部变量 局_聚合日期, 文本型<br /> .局部变量 局_json文本, 文本型<br /> .局部变量 局_json, 类_JSON<br /> .局部变量 局_成员数量, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_成员信息, 数据_成员信息<br /> .局部变量 局_所有来源, 文本型<br /> .局部变量 局_来源数量, 文本型, , "0"<br /> .局部变量 局_计次1, 整数型<br /> .局部变量 局_聚合数据, 数据_聚合路径<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 word对象, 对象<br /> .局部变量 计次, 整数型<br /> <br /> 重定义数组 (参_返回路径数据, 假, 0)<br /> 局_聚合日期 ＝ 功能_聚合_取日期范围 ()<br /> 局_日期数组 ＝ 分割文本 (局_聚合日期, “|”, )<br /> 局_json文本 ＝ 功能_数据库取数据 (局_日期数组 [1], 局_日期数组 [2])<br /> 局_所有来源 ＝ 功能_整合群名称 (局_json文本)<br /> 局_来源数量 ＝ 分割文本 (局_所有来源, “|”, )<br /> .如果真 (局_所有来源 ＝ “” 或 局_json文本 ＝ “[]” 或 局_json文本 ＝ “”)<br />     调试输出 (“无数据”)<br />     返回 ()<br /> .如果真结束<br /> 局_json.解析 (局_json文本)<br /> 局_成员数量 ＝ 局_json.取属性 (“”).成员数 ()<br /> .计次循环首 (取数组成员数 (局_来源数量), 局_计次)<br />     ' 来源计次<br />     J_word.创建 ()<br />     J_word.新建文档 ()<br />     word对象 ＝ J_word.取自身对象 ()<br />     .计次循环首 (局_成员数量, 局_计次1)<br />         局_成员信息.时间 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].datetime”)<br />         局_成员信息.时间 ＝ 时间_到文本 (时间_GMT转为时间 (局_成员信息.时间, 假), 1)  ' 时间转换<br />         局_成员信息.来源 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].category”)<br />         局_成员信息.内容 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].content”)<br />         局_成员信息.连接 ＝ 局_json.取通用属性 (“[” ＋ 到文本 (局_计次1 － 1) ＋ “].link”)<br /> <br />         .如果真 (局_成员信息.来源 ＝ 局_来源数量 [局_计次])<br />             局_文件名 ＝ 局_来源数量 [局_计次]<br />             ' 匹配来源<br />             J_word.输入文本 (, 1)<br />             J_word.输入文本 (, 1)<br />             J_word.字体颜色 (#红色)<br />             J_word.输入文本 (“【 时  间 】”, 0)<br />             J_word.输入文本 (局_成员信息.时间, 0)<br />             J_word.输入文本 (, 1)<br />             J_word.字体颜色 (#蓝色)<br />             J_word.输入文本 (“【 群  名 】”, 0)<br />             J_word.输入文本 (局_成员信息.来源, 0)<br />             J_word.输入文本 (, 1)<br />             J_word.字体颜色 (#黑色)<br />             J_word.输入文本 (“【消息内容】”, 0)<br />             J_word.输入文本 (局_成员信息.内容, 0)<br />             J_word.输入文本 (, 1)<br />             .如果 (局_成员信息.内容 ＝ “图片”)<br />                 J_word.插入图片 (局_成员信息.连接)<br />                 J_word.输入文本 (, 1)<br />             .否则<br />                 .如果真 (局_成员信息.连接 ≠ “” )‘这里目前是采用文本方式插入，想替换为超连接形式。试过对象操作行插入，会乱，不知道怎回事。<br /> ‘还有一种方法 按关键词插入 可能对象操作有问题，插入后全局都是这个链接，一个文档中 包含了多个链接’<br />                     J_word.输入文本 (“【消息链接】”, 0)<br />                     J_word.输入文本 (, 1)<br />                     J_word.输入文本 (局_成员信息.连接, 0)<br />                     J_word.输入文本 (, 1)<br />                 .如果真结束<br /> <br />             .如果结束<br /> <br />         .如果真结束<br />         处理事件 ()<br />     .计次循环尾 ()<br />     .如果真 (目录_是否存在 (全_聚合文件目录 ＋ “\” ＋ 时间_到文本 (取现行时间 (), 3, 1)) ＝ 假)<br />         创建目录 (全_聚合文件目录 ＋ “\” ＋ 时间_到文本 (取现行时间 (), 3, 1))<br />     .如果真结束<br /> <br />     .如果 (局_文件名 ≠ “”)<br />         局_聚合数据.路径文本 ＝ 全_聚合文件目录 ＋ “\” ＋ 时间_到文本 (取现行时间 (), 3, 1) ＋ “\” ＋ 局_文件名 ＋ “.docx”<br />         调试输出 (“输出路径”, 局_聚合数据.路径文本)<br /> <br />         J_word.另存文档 (局_聚合数据.路径文本)<br />         J_word.退出 ()<br />         功能_设置聚合进度 (“处理文档：” ＋ 局_聚合数据.路径文本)<br />         ' word_插入超连接 (局_word行数, 局_聚合数据.路径文本)<br /> <br />         日志_插入 (“聚合文档：” ＋ 局_聚合数据.路径文本)<br />         加入成员 (参_返回路径数据, 局_聚合数据)<br /> <br />     .否则<br />         J_word.关闭文档 (1)<br />         J_word.退出 ()<br />     .如果结束<br />     局_文件名 ＝ “”<br /> <br /> <br /> <br />     处理事件 ()<br /> .计次循环尾 ()

这里是模块的信息。
模块源码， excel和word类.e (131.93 KB, 下载次数: 0)

4 天前 上传

点击文件名下载附件   这个源码是反编译过来的，
试过对象操作行插入，会乱，不知道怎回事。
‘还有一种方法 按关键词插入 可能对象操作有问题，插入后全局都是这个链接，一个文档中 包含了多个链接’
求助大神帮忙解决下单文档 多链接插入指定位置。


100个精币奉上。望大神笑纳