请大神帮忙将易语言替换word文档及插入图片的代码改成火....

wsjdwjek

.版本 2

.子程序 替换内容传对象, 整数型, 公开, 返回被成功替换的次数,在当前活动文档中替换
.参数 文档对象, 对象
.参数 寻找文本, 文本型
.参数 替换文本, 文本型
.参数 次数, 整数型, 可空, 默认全部替换
.局部变量 对象4, 对象
.局部变量 变体1, 变体型
.局部变量 变体2, 变体型
.局部变量 变体3, 变体型
.局部变量 变体4, 变体型
.局部变量 N, 整数型
.局部变量 全部替换, 逻辑型
.局部变量 对象5, 对象

.如果真 (是否为空 (次数))
    全部替换 ＝ 真
    次数 ＝ 1
.如果真结束
.计次循环首 (次数, )
    ' WORD对象.读对象型属性 (“ActiveDocument”, ).查看 ()
    对象5 ＝ 文档对象.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读对象型属性 (“Find”, )
    对象5.方法 (“ClearFormatting”, )
    对象4 ＝ 对象5.读对象型属性 (“Replacement”, )
    对象4.方法 (“ClearFormatting”, )
    对象4.写属性 (“Text”, 替换文本)
    变体1.赋值 (寻找文本, )
    .如果 (全部替换)
        变体2.赋值 (2, )  ' 2  wdReplaceAll
    .否则
        变体2.赋值 (真, )  ' 替换为真
    .如果结束

    变体3.赋值 (假, )  ' 区分半角/全角
    变体4.赋值 (1, )  ' wdFindContinue
    .如果真 (对象5.逻辑方法 (“Execute”, 变体1, , , , , , , 变体4, 变体3, , 变体2, , , , ))
        N ＝ N ＋ 1
    .如果真结束

.计次循环尾 ()
对象4.清除 ()
对象5.清除 ()
变体1.清除 ()
变体2.清除 ()
变体3.清除 ()
变体4.清除 ()
' 对象3.查看 ()
返回 (N)


.子程序 插入_图片, , 公开, 返回被成功替换的次数,在当前活动文档中替换
.参数 文档对象, 对象
.参数 图片, 文本型
.参数 第几张表, 整数型, 可空

.如果真 (是否为空 (第几张表) ＝ 真)
    第几张表 ＝ 1
.如果真结束
文档对象.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Tables”, ).对象型方法 (“Item”, 第几张表).对象型方法 (“Cell”, 1, 1).对象型方法 (“select”, )
文档对象.读对象型属性 (“Selection”, ).读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 图片)