关于WORD 插入图片 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于WORD 插入图片

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 848 人关注过本帖， 1 人收藏

标题：关于WORD 插入图片

只看楼主加入收藏

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25
结帖率：87.8%

楼主

已结贴√ 问题点数：10 回复次数：10

关于WORD 插入图片

WOLE = Newobject('Word.Application')
WOLE.Documents.add
WOLE.visible=.t.
WOLE.Selection.EndKey(6) &&到行尾
WOLE.Selection.InlineShapes.AddPicture('H:\123.JPG',.F.,.T.).ConvertToShape

关于WORD 插入图片，ConvertToShape以后，图片浮起来，这个浮起来的图片就在页面上乱放，转换后位置如何才能跟插入时的位置一样？或者浮图放在参照页面上的 ‘盖章’字符处（即放在盖章字符的上面）？

搜索更多相关主题的帖子: 字符　 WORD　Selection　插入　图片　

2023-04-27 13:30

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 2 楼

得分:0

设置光标位置

2023-04-27 16:44

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 3 楼

得分:0

回复 2楼吹水佬

谢谢.
Selection.Move(1,1)
设置后插入图片,再转化,图就移到顶上了

请教你的方法

2023-04-27 16:51

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 4 楼

得分:0

Move(1,1)是在第一个字符位置插入
“再转化”是什么动作？

2023-04-27 17:02

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 5 楼

得分:0

Selection.Move(1,1)
WOLE.Selection.InlineShapes.AddPicture('H:\123.JPG',.F.,.T.) &&在光标处插入
WOLE.Selection.InlineShapeS(1).ConvertToShape &&转化为SHAPE,此时位置变了，就是执行此语句后，图片的位置能否和插入是一致？或者移到页面上的某个字符，比如‘盖章’，放在盖章处，以达到电子章的效果

2023-04-27 18:49

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 6 楼

得分:0

直接找到页面指定位置插入就好了，为何要转来转去？

2023-04-27 20:09

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 7 楼

得分:0

因为要图片要达到浮动的效果，才能在什么什么公司上面，就像盖章一样。

2023-04-27 20:17

吹水佬

等　级：版主
威　望：451
帖　子：10608
专家分：43190
注　册：2014-5-20

第 8 楼

得分:10

以下是引用liunis在2023-4-27 20:17:54的发言：

因为要图片要达到浮动的效果，才能在什么什么公司上面，就像盖章一样。

是不是这效果

图片附件: 游客没有浏览图片的权限，请登录或注册

程序代码：

word = CREATEOBJECT("Word.Application")
word.visible=.t.
doc = word.Documents.add
FOR i = 1 TO 9
    doc.Paragraphs.Add
    doc.Paragraphs.Add.Range.Text = REPLICATE(TRANSFORM(i),40)
ENDFOR 
pic = "D:\temp\test\透明.png"
word.Selection.Move(1,90)
word.Selection.InlineShapes.AddPicture(pic).ConvertToShape.ZOrder(4)    && 4浮于文字，5沉于文字

2023-04-29 17:10

pvm2000

等　级：贵宾
威　望：24
帖　子：180
专家分：312
注　册：2022-12-22

第 9 楼

得分:0

以下是引用吹水佬在2023-4-29 17:10:57的发言：

是不是这效果

word = CREATEOBJECT("Word.Application")
word.visible=.t.
doc = word.Documents.add
FOR i = 1 TO 9
    doc.Paragraphs.Add
    doc.Paragraphs.Add.Range.Text = REPLICATE(TRANSFORM(i),40)
ENDFOR
pic = "D:\temp\test\透明.png"
word.Selection.Move(1,90)
word.Selection.InlineShapes.AddPicture(pic).ConvertToShape.ZOrder(4)    && 4浮于文字，5沉于文字

这个效果很好

2023-04-30 03:37