易语言WORD插图问题

yuer

只找到了一个这个资料，但是不会用，请大佬给个例程，易语言操作WORD在指定位置加入图片（例如每段后面加图，或1 3 5段后面加图）
50精币奉上
@houtian @赤璃琴殇 @憨憨问号

花间一壶酒

  

子程序名	返回值类型	公开	备 注
设置段落效果

变量名	类 型	静态	数组	备 注
word	对象
当前活动文档	对象
段落	对象
第一段	对象
图片	对象
图片1	字节集
图片高度	整数型
图片宽度	整数型
行间距	整数型
缩放比例	双精度小数型

word.获取 (“Word.Application”)  ' 获取word程序对象
当前活动文档 ＝ word.读对象型属性 (“Documents”, ).读对象型属性 (“Item”, 1)  ' 获取第一个问文档
段落 ＝ 当前活动文档.读对象型属性 (“Paragraphs”, )  ' 获取段落对象
行间距 ＝ 20
段落.写属性 (“LineSpacing”, 行间距)  ' 这是行间距
第一段 ＝ 段落.读对象型属性 (“Item”, 7).读对象型属性 (“Range”, )  ' 所有段落中的第一个段落区域  参数就是段落的数量
第一段.方法 (“Collapse”, 0)  ' 将某一区域或所选内容折叠到起始位置或结束位置。 折叠之后起始位置和结束位置相同。
图片 ＝ 第一段.读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, “C:\Users\Administrator\Desktop\1.PNG”, 真, 真)  ' 在图片框里添加内容
图片.读对象型属性 (“WrapFormat”, ).写属性 (“Type”, 1)  ' 设置文字环绕图片
图片.写属性 (“Left”, 0)  ' 图片左边距
图片.写属性 (“Top”, 0)  ' 图片顶边距
图片.写属性 (“LockAspectRatio”, 真)  ' 图片锁定长宽比
' 下面事计算缩放比例 用的是精易模块---------------------------
图片1 ＝ 读入文件 (“C:\Users\Administrator\Desktop\1.PNG”)
图片高度 ＝ 图片_取高度 (图片1)
图片宽度 ＝ 图片_取宽度 (图片1)
缩放比例 ＝ 图片高度 ÷ 行间距
图片高度 ＝ 图片高度 ÷ 缩放比例
图片宽度 ＝ 图片宽度 ÷ 缩放比例
' ------------------------------------------------------------
图片.写属性 (“Height”, 图片高度)  ' 修改图片高度
图片.写属性 (“Width”, 图片宽度)  ' 修改图片宽度
当前活动文档.方法 (“Save”, )  ' 保存文档
当前活动文档.方法 (“Close”, )  ' 关闭文档
word.方法 (“Quit”, )  ' 关闭word

.版本 2<br /> <br /> .子程序 设置段落效果<br /> .局部变量 word, 对象<br /> .局部变量 当前活动文档, 对象<br /> .局部变量 段落, 对象<br /> .局部变量 第一段, 对象<br /> .局部变量 图片, 对象<br /> .局部变量 图片1, 字节集<br /> .局部变量 图片高度, 整数型<br /> .局部变量 图片宽度, 整数型<br /> .局部变量 行间距, 整数型<br /> .局部变量 缩放比例, 双精度小数型<br /> <br /> word.获取 (“Word.Application”)  ' 获取word程序对象<br /> 当前活动文档 ＝ word.读对象型属性 (“Documents”, ).读对象型属性 (“Item”, 1)  ' 获取第一个问文档<br /> 段落 ＝ 当前活动文档.读对象型属性 (“Paragraphs”, )  ' 获取段落对象<br /> 行间距 ＝ 20<br /> 段落.写属性 (“LineSpacing”, 行间距)  ' 这是行间距<br /> 第一段 ＝ 段落.读对象型属性 (“Item”, 7).读对象型属性 (“Range”, )  ' 所有段落中的第一个段落区域  参数就是段落的数量<br /> 第一段.方法 (“Collapse”, 0)  ' 将某一区域或所选内容折叠到起始位置或结束位置。 折叠之后起始位置和结束位置相同。<br /> 图片 ＝ 第一段.读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, “C:\Users\Administrator\Desktop\1.PNG”, 真, 真)  ' 在图片框里添加内容<br /> 图片.读对象型属性 (“WrapFormat”, ).写属性 (“Type”, 1)  ' 设置文字环绕图片<br /> 图片.写属性 (“Left”, 0)  ' 图片左边距<br /> 图片.写属性 (“Top”, 0)  ' 图片顶边距<br /> 图片.写属性 (“LockAspectRatio”, 真)  ' 图片锁定长宽比<br /> ' 下面事计算缩放比例 用的是精易模块---------------------------<br /> 图片1 ＝ 读入文件 (“C:\Users\Administrator\Desktop\1.PNG”)<br /> 图片高度 ＝ 图片_取高度 (图片1)<br /> 图片宽度 ＝ 图片_取宽度 (图片1)<br /> 缩放比例 ＝ 图片高度 ÷ 行间距<br /> 图片高度 ＝ 图片高度 ÷ 缩放比例<br /> 图片宽度 ＝ 图片宽度 ÷ 缩放比例<br /> ' ------------------------------------------------------------<br /> 图片.写属性 (“Height”, 图片高度)  ' 修改图片高度<br /> 图片.写属性 (“Width”, 图片宽度)  ' 修改图片宽度<br /> 当前活动文档.方法 (“Save”, )  ' 保存文档<br /> 当前活动文档.方法 (“Close”, )  ' 关闭文档<br /> word.方法 (“Quit”, )  ' 关闭word

在段落插入图片和文档页插入图片不同  段落插入图片  图片高度不能超过行间距  不然会显示不全  所以这里我使用了精易模块的命令  计算缩放比例


补充内容 (2024-3-19 15:14):
拿个 第一段 ＝ 段落.读对象型属性 (“Item”, 7).读对象型属性 (“Range”, )    “Item”后面的参数  是指第几段 第一段就写1  我上面的参数是调试后没改

花间一壶酒

https://bbs.125.la/thread-14793061-1-1.html

看这个帖子  我之前回复别人了  相似内容

asasqwwq

和上个人同样的问题

yuer

赤璃琴殇 发表于 2024-3-19 11:34
https://bbs.125.la/thread-14793061-1-1.html

看这个帖子  我之前回复别人了  相似内容  ...

大佬，我换了一台电脑，这次怎么就不好使了呢，应该是哪部分原因，请指教

yuer

asasqwwq 发表于 2024-3-19 11:36
和上个人同样的问题

这个我确实看到了，也下载了，能插入图片，但是具体不太会用，怎么插到指定位置呢，比如第二段后面

花间一壶酒

yuer 发表于 2024-3-19 12:03
大佬，我换了一台电脑，这次怎么就不好使了呢，应该是哪部分原因，请指教
...

注册表问题  把wps卸载了  重新装下

花间一壶酒

可以把帖子结了么  

yuer

赤璃琴殇 发表于 2024-3-19 11:34
https://bbs.125.la/thread-14793061-1-1.html

看这个帖子  我之前回复别人了  相似内容  ...

这个我确实看到了，也下载了，能插入图片，但是具体不太会用，怎么插到指定位置呢，比如第二段后面
能结能结

yuer

赤璃琴殇 发表于 2024-3-19 13:35
可以把帖子结了么

大佬来个截图例子呗，确实不太懂这个指定位置 插图，马上结