|
发表于 2024-3-19 10:44:56
|
显示全部楼层
安徽省六安市
变量名 | 类 型 | 静态 | 数组 | 备 注 | word | 对象 | | | 当前活动文档 | 对象 | | | 段落 | 对象 | | | 第一段 | 对象 | | | 图片 | 对象 | | | 图片1 | 字节集 | | | 图片高度 | 整数型 | | | 图片宽度 | 整数型 | | | 行间距 | 整数型 | | | 缩放比例 | 双精度小数型 | | |
word. 获取 (“Word.Application”) 当前活动文档 = 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”, )
在段落插入图片和文档页插入图片不同 段落插入图片 图片高度不能超过行间距 不然会显示不全 所以这里我使用了精易模块的命令 计算缩放比例
补充内容 (2024-3-19 15:14):
拿个 第一段 = 段落.读对象型属性 (“Item”, 7).读对象型属性 (“Range”, ) “Item”后面的参数 是指第几段 第一段就写1 我上面的参数是调试后没改 |
评分
-
参与人数 2 | 好评 +1 |
荣誉 +1 |
收起
理由
|
wh1234567
| + 1 |
|
如何横向插入多张图片?如果横插满再第二行开始插,以此类推. |
笨潴
| |
+ 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
查看全部评分
|