access带照片的报表输出到WORD中，照片缺失，怎么补救
access带照片的报表输出到WORD中，照片缺失，如何补救？access带照片的报表输出到WORD中，只在相应位置留有空
access带照片的报表输出到WORD中，照片缺失，如何补救？
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
[其他解释]我结帖太早了，结帖以后就没有短消息提醒了，就是有新的回复也不显示，要不是刚才按错了位置，可能这个新回复就要石沉大海了，我永远也会不知道，万幸
[其他解释]抱歉，还以为结帖就不会有回复了，今天 才看到。
给您发了一个删除的没剩什么的库，希望还能看出来是什么问题
谢谢了
------其他解决方案--------------------
是呀，我已经开始学VBA了，估计学会了再看可能可以明白点，现在你们几个的回复我能看懂的有限，十分惭愧
[其他解释]看到你发的邮件了。
用自带的导出到word功能感觉没法导出照片。
得自己写vba代码。
不过有些难度，得同时了解access和word的vba。
