如何将子窗体查询结果转到Word指定位置.rar

li08hua

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

shenxb

学到很多

asklove

非常感谢sgrshh29 的详细解答!

ilovshevchenko

看了下效果不错 在顶一下~

sgrshh29

正需要，学习一下!!

请问如果在这例子中，我想在指定位置插入一个图片该如何做？
如原先的位置 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

都好高深啊~学习了

lanshai

oooooooooooo

li08hua

谢谢sgrshh29,非常感谢！你问的子窗体没有财务损失情况的问题，是因为子窗体内的数据不一定都需要导出至Word中，是选择性的。

asklove

正需要，学习一下!!

请问如果在这例子中，我想在指定位置插入一个图片该如何做？
如原先的位置 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
望高手给余解答，谢谢先!!

sgrshh29

2# sgrshh29

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