P
Pejo
I use Word and Access 2007 with a mail-merge OLE DB connection
that works well with the linking of text fields, etc. (type customer and
contact information)
My problem is that I need to link into a formatted Word table stored in data
type, ActiveX, Access to my Word document.
When I try it says only "151C2E00" in the field, where the table would appear
Someone who has solution!
Sub Foto()
ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\vmware-host\Shared Folders\My Documents\Mina datakällor\Foto.
accdb" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="",
_
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False,
_
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\vmware-
host\Shared Folders\My Documents\Mina datakällor\Foto.
accdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet
OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLED" _
, SQLStatement:="SELECT * FROM `FR_Kopplat_Till_Word_25`",
SQLStatement1 _
:="", SubType:=wdMergeSubTypeAccess
End Sub
that works well with the linking of text fields, etc. (type customer and
contact information)
My problem is that I need to link into a formatted Word table stored in data
type, ActiveX, Access to my Word document.
When I try it says only "151C2E00" in the field, where the table would appear
Someone who has solution!
Sub Foto()
ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\vmware-host\Shared Folders\My Documents\Mina datakällor\Foto.
accdb" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="",
_
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False,
_
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\vmware-
host\Shared Folders\My Documents\Mina datakällor\Foto.
accdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet
OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLED" _
, SQLStatement:="SELECT * FROM `FR_Kopplat_Till_Word_25`",
SQLStatement1 _
:="", SubType:=wdMergeSubTypeAccess
End Sub