Office中国论坛/Access中国论坛

标题: 如何将子窗体查询结果转到Word指定位置.rar [打印本页]

作者: li08hua 时间: 2009-8-30 14:01
标题: 如何将子窗体查询结果转到Word指定位置.rar
各位大哥，如题，我在前面曾请教个，但一是我没说清楚，二是看相关帖子也没搞懂。上传一实例，我希望把子窗体内查询后的结果，用一控件（按钮）导出至Word指定的位置，因为我还需要修改，然后打印输出。
我在单位做内勤的，这几天急死了，大哥们最好能帮我在实例上做一下，先谢了！

作者: sgrshh29 时间: 2009-8-30 16:21
子窗体中没有财物损失情况？

作者: sgrshh29 时间: 2009-8-30 16:28
2# sgrshh29

附件是一个没有添加错误处理的示例。执行过程中会弹出是否打印的对话框，如果选是，则进程停止，word可见。如果选择否，则数据连续导出为若干个word（有几条记录就形成几个word文件），文件名以编号+案件为准。
[attach]39460[/attach]

作者: asklove 时间: 2009-8-31 11:11
正需要，学习一下!!

请问如果在这例子中，我想在指定位置插入一个图片该如何做？
如原先的位置 wDoc.tables(1).cell(9, 4).range.Text = rs(27)
假设rs(27)= "D:\My Documents\My Pictures\123.jpg"==图片地址
我修改成这样行吗？
wDoc.tables(1).cell(9, 4).range.InlineShapes.AddPicture FileName:= _
rs(27) , LinkToFile:=False, _
SaveWithDocument:=True

还有如果WORD中没 tables(1) 只是一行行的文字
位置该如果确认？wDoc.？？cell(9, 4).range
望高手给余解答，谢谢先!!

作者: li08hua 时间: 2009-8-31 12:13
谢谢sgrshh29,非常感谢！你问的子窗体没有财务损失情况的问题，是因为子窗体内的数据不一定都需要导出至Word中，是选择性的。

作者: lanshai 时间: 2009-8-31 13:35
oooooooooooo

作者: ilovshevchenko 时间: 2009-8-31 15:45
都好高深啊~学习了

作者: sgrshh29 时间: 2009-8-31 15:51
本帖最后由 sgrshh29 于 2009-8-31 15:53 编辑

正需要，学习一下!!

请问如果在这例子中，我想在指定位置插入一个图片该如何做？
如原先的位置 wDoc.tables(1).cell(9, 4).range.Text = rs(27)
假设rs(27)= "D:\My Documents\My Pictures\123.jpg"==图片地址
...
asklove 发表于 2009-8-31 11:11

1、可以的
wDoc.tables(1).cell(i, j).range.inlineshapes.addpicture filefullname, false, true
但是要注意如何调整图片的大小到单元格的大小
2、如果有定义的标签，用
wApp.selection.goto what:=wdgotobookmark, name:="XXXXXXX"
wApp.selection.typeText "XXXXXXXX"
如果没有定义标签，可以用
wDoc.content.find
或者
wApp.selection.find
具体如何使用要看你填充数据的情况，那种更合理有效就用那种。

作者: ilovshevchenko 时间: 2009-8-31 15:59
看了下效果不错在顶一下~

作者: asklove 时间: 2009-9-1 09:40
非常感谢sgrshh29 的详细解答!

作者: shenxb 时间: 2009-9-21 12:49
学到很多

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)