word循环插入文字 图片工具源码

易语言操作word实现插入图片和文字.e是例子，里面有说明

' 关于易语言操作word读写或者向word中插入图片的实现,经大量搜索贴子,发现基本思路是明白了,但是代码写法不够严谨,导致实现效果不理想,也不容易理解.因此开贴,给新人及我等小白做个总结,以便简单操作word.
' 本贴思路:对打开的word文档进行读写操作.
' 前提:有一个要编辑的word文档已经打开.对其进行操作.代码如下:
wdapp.获取 (“word.application”)  ' 加载已经打开的doc文档
' wdapp.读对象型属性 (“Selection”, ).查看 ()
' 易语言的这个帮助写的不是很详细,所以导致大部分的人群,会写相关的对象代码,但是,每个对象具体如何使用,让参照wordVBA,结果一头的雾水..' 光标所在 行数
调试输出 (wdapp.读对象型属性 (“Selection”, ).读对象型属性 (“Range”, ).读数值属性 (“Information”, 9))
' 回车
调试输出 (wdapp.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读数值属性 (“InsertAfter”, 字符 (13)))
' 写AAA
调试输出 (wdapp.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读数值属性 (“InsertAfter”, “AAAA”))
调试输出 (wdapp.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读数值属性 (“InsertAfter”, 字符 (13)))
' 写AAA
调试输出 (wdapp.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读数值属性 (“InsertAfter”, “BBB”))
' BBB
调试输出 (wdapp.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读数值属性 (“InsertAfter”, 字符 (13)))
' 调试输出 (wdapp.读对象型属性 (“Selection”, ).读对象型属性 (“TypeParagraph”, ))
' Selection.TypeParagraph    '在文末添加一空段
' Selection.EndKey wdStory
' 到结尾6代表wdStory参考https://docs.microsoft.com/en-us/office/vba/api/word.wdunits
' 下面这一行非常重要。如果没有这一行图片位置就会变
调试输出 (wdapp.读对象型属性 (“Selection”, ).读对象型属性 (“EndKey”, 6))
' wdapp.读对象型属性 (“Selection”, ).方法 (“GoTo”, What, Which, Count, Name)  ' 定位到doc文档中的第3行,光标插入点移到行首
wdapp.读对象型属性 (“Selection”, ).读对象型属性 (“InlineShapes”, ).方法 (“AddPicture”, 取运行目录 () ＋ “1.jpg”, “LinkToFile:=False”, “SaveWithDocument:=True”)
调试输出 (wdapp.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读数值属性 (“InsertAfter”, 字符 (13)))
调试输出 (wdapp.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).读数值属性 (“InsertAfter”, “CCCCCC”))

http://www.awuming.com/thread-26347-1-1.html