access带照片的报表输出到WORD中,只在相应位置留有空格,而没有照片。
我的问题是:如果想在WORD 中还原成和ACCESS中一样的报表,有没有快捷的方式?(我现在的作法是一张一张插入照片)
另:照片现在二个地方有:一是ACCESS 中库中,二上电脑中一个独立的文件夹。
------最佳解决方案--------------------------------------------------------
建议用VBA将数据(包括照片)导入到WORD的模板中,
否则找找第3方的控件。
------其他解决方案--------------------------------------------------------
对,要看看WORD的宏,怎样操作WORD
------其他解决方案--------------------------------------------------------
你可以把照片放在文件夹下,然后在WORD中录制一段宏,插入一个照片,分析一下自动生成的代码,然后改一下就行了。
------其他解决方案--------------------------------------------------------
呵呵,WORD比EXCEL困难一点
------其他解决方案--------------------------------------------------------
VB代码,关键是你要熟悉WORD的对象模型。 这个你可以在WORD的VBA帮助中看到。
------其他解决方案--------------------------------------------------------
你的图片文件命名如果没有规律,就不能用下面的代码。
------其他解决方案--------------------------------------------------------
在相应位置留有空格,还有没有照片的信息,比如照片的名字等。
------其他解决方案--------------------------------------------------------
是在access中用VBA吗?我从来没试过,那我试试看,也不知道难不难
谢谢
------其他解决方案--------------------------------------------------------
好,我先学学
------其他解决方案--------------------------------------------------------
貌似有点高难度
我现在网上BAIDU
------其他解决方案--------------------------------------------------------
完全看不懂,太难了,我准备放弃了,
从网下扒了二段
Sub Macro1()
For i = 101 To 130
pic_name = "D:\My pic\1018256" + Trim(Str(i)) + ".jpg"
Selection.MoveRight Unit:=wdCell
Selection.InlineShapes.AddPicture FileName:=pic_name, _
LinkTofile:=False, SaveWithDocument:=True
Next
End
Sub setpicsize()
'
' setpicsize 宏
'
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '74
ActiveDocument.InlineShapes(j).Height = 210 '设置高度
ActiveDocument.InlineShapes(j).Width = 261.87 '设置宽度
Next j
End Sub
完全不能运行,还不如一张张拷来得快呢
------其他解决方案--------------------------------------------------------
天书~~~~~~~~
------其他解决方案--------------------------------------------------------
是呀,好象是类似于C语言的东西,
------其他解决方案--------------------------------------------------------
000 *** 前三个顺序号+空格+姓名
算是有规律吗?
------其他解决方案--------------------------------------------------------
我觉得是没有,只有一片空白。
从ACCESS中导出的rft文件,文字内容包括 排列同数据库中的报表都一样,编号,姓名,身份证号,照片,电话,字段都有,就是该有照片的位置,是一片空白,如图
------其他解决方案--------------------------------------------------------
在access里只留一条记录,然后发给我。
dsd999@sohu.com
------其他解决方案--------------------------------------------------------
我结帖太早了,结帖以后就没有短消息提醒了,就是有新的回复也不显示,要不是刚才按错了位置,可能这个新回复就要石沉大海了,我永远也会不知道,万幸
------其他解决方案--------------------------------------------------------
抱歉,还以为结帖就不会有回复了,今天 才看到。
给您发了一个删除的没剩什么的库,希望还能看出来是什么问题
谢谢了
------其他解决方案--------------------------------------------------------