求个word逐行读取的例子，内容+图片按顺序读取

豆豆灰常开心

求个word（docx）逐行读取的例子，内容+图片按顺序读取

【测试文档】https://wwiw.lanzouo.com/in7jK2zi80va

尛龍科技

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Word应用	对象
Word文档	对象

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

读取Word内容 (“C:\Users\Administrator\Downloads\斯卡洛尼谈离任风波：我状态不好不开心，执教阿根廷需要100%投入.docx”)  ' 路径自己定义

子程序名	返回值类型	公开	备 注
读取Word内容
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
段落数	整数型
i	整数型
j	整数型
当前段落	对象
段落文本	文本型
内联形状数	整数型
图片对象	对象
图片路径	文本型
图片索引	整数型

Word应用.创建 (“Word.Application”, )
Word应用.写属性 (“Visible”, 假)
Word文档 ＝ Word应用.对象型方法 (“Documents”, ).对象型方法 (“Open”, 文件路径)
段落数 ＝ Word文档.读对象型属性 (“Paragraphs”, ).读数值属性 (“Count”, )
图片索引 ＝ 1
计次循环首 (段落数, i)
当前段落 ＝ Word文档.读对象型属性 (“Paragraphs”, ).对象型方法 (“Item”, i)
段落文本 ＝ 当前段落.读对象型属性 (“Range”, ).读文本属性 (“Text”, )
段落文本 ＝ 子文本替换 (段落文本, #换行符, “”, , , 真)  ' 移除段落末尾的换行符
调试输出 (“段落” ＋ 到文本 (i) ＋ “文本内容：”, 段落文本)
内联形状数 ＝ 当前段落.读对象型属性 (“Range”, ).读对象型属性 (“InlineShapes”, ).读数值属性 (“Count”, )
如果真 (内联形状数 ＞ 0)
计次循环首 (内联形状数, j)
图片对象 ＝ 当前段落.读对象型属性 (“Range”, ).读对象型属性 (“InlineShapes”, ).对象型方法 (“Item”, j)
图片路径 ＝ “C:\word_images\” ＋ 到文本 (图片索引) ＋ “.png”  ' 路径可自定义
图片对象.通用方法 (“SaveAs”, 图片路径)  ' 保存图片到本地
调试输出 (“发现图片 → 已保存到：”, 图片路径)
图片索引 ＝ 图片索引 ＋ 1
计次循环尾 ()

计次循环尾 ()
Word文档.通用方法 (“Close”, 假)
Word应用.通用方法 (“Quit”, )
Word文档.清除 ()
Word应用.清除 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Word应用, 对象<br /> .程序集变量 Word文档, 对象<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 读取Word内容 (“C:\Users\Administrator\Downloads\斯卡洛尼谈离任风波：我状态不好不开心，执教阿根廷需要100%投入.docx”)  ' 路径自己定义<br /> <br /> .子程序 读取Word内容<br /> .参数 文件路径, 文本型<br /> .局部变量 段落数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 当前段落, 对象<br /> .局部变量 段落文本, 文本型<br /> .局部变量 内联形状数, 整数型<br /> .局部变量 图片对象, 对象<br /> .局部变量 图片路径, 文本型<br /> .局部变量 图片索引, 整数型<br /> <br /> Word应用.创建 (“Word.Application”, )<br /> Word应用.写属性 (“Visible”, 假)<br /> Word文档 ＝ Word应用.对象型方法 (“Documents”, ).对象型方法 (“Open”, 文件路径)<br /> 段落数 ＝ Word文档.读对象型属性 (“Paragraphs”, ).读数值属性 (“Count”, )<br /> 图片索引 ＝ 1<br /> .计次循环首 (段落数, i)<br />     当前段落 ＝ Word文档.读对象型属性 (“Paragraphs”, ).对象型方法 (“Item”, i)<br />     段落文本 ＝ 当前段落.读对象型属性 (“Range”, ).读文本属性 (“Text”, )<br />     段落文本 ＝ 子文本替换 (段落文本, #换行符, “”, , , 真)  ' 移除段落末尾的换行符<br />     调试输出 (“段落” ＋ 到文本 (i) ＋ “文本内容：”, 段落文本)<br />     内联形状数 ＝ 当前段落.读对象型属性 (“Range”, ).读对象型属性 (“InlineShapes”, ).读数值属性 (“Count”, )<br />     .如果真 (内联形状数 ＞ 0)<br />         .计次循环首 (内联形状数, j)<br />             图片对象 ＝ 当前段落.读对象型属性 (“Range”, ).读对象型属性 (“InlineShapes”, ).对象型方法 (“Item”, j)<br />             图片路径 ＝ “C:\word_images\” ＋ 到文本 (图片索引) ＋ “.png”  ' 路径可自定义<br />             图片对象.通用方法 (“SaveAs”, 图片路径)  ' 保存图片到本地<br />             调试输出 (“发现图片 → 已保存到：”, 图片路径)<br />             图片索引 ＝ 图片索引 ＋ 1<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> Word文档.通用方法 (“Close”, 假)<br /> Word应用.通用方法 (“Quit”, )<br /> Word文档.清除 ()<br /> Word应用.清除 ()

杰西卡技术传媒

是不是这样哟