Add picture to Wrd Doc

[Darryl Kerkeslager]

I've used the modified function from Albert Kalall for late-binding an
Access query to a merge Word doc. But I want to insert a picture, and I
cannot get this to work - no picture.

I have tried hitting the side of the monitor, but no help. Anyone?
Public Function MergeQuery(queryName As String, _
docName As String) As Boolean
On Error GoTo handle_error
MergeQuery = False

Dim i As Integer
Dim mWord As Object
Dim mDoc As Object
Set mWord = CreateObject("Word.Application")

DoCmd.TransferText acExportDelim, , queryName, _
"c:\odis\merge.txt", True
With mWord
Set mDoc = .Documents.Open(docName)
.ActiveDocument.MailMerge.MainDocumentType = 0
If .ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
.ActiveDocument.Unprotect
End If

.ActiveDocument.MailMerge.OpenDataSource Name:="c:\odis\merge.txt", _
AddToRecentFiles:=False, Format:=0, _
Connection:="", SQLStatement:="", SQLStatement1:=""
.ActiveDocument.MailMerge.Execute

.Application.Selection.Find.ClearFormatting
Do While .Application.Selection.Find.Execute(FindText:="<ff >", _
Wrap:=wdFindContinue, Forward:=True) = True
.ActiveDocument.FormFields.Add
Range:=.Application.Selection.Range, _
Type:=wdFieldFormTextInput
Loop

' --- Can't get the following to work

mWord.inlineShapes.AddPicture ("C:\odis\cache\0001622A.jpg", True,
Flase)

' --- This part right above here won't work

If .ActiveDocument.ProtectionType = wdNoProtection Then
.ActiveDocument.Protect Type:=wdAllowOnlyFormFields,
NoReset:=True, Password:=""
End If
.Application.Visible = True

mDoc.Close
End With
MergeQuery = True
exit_point:
Set mWord = Nothing
Set mDoc = Nothing
Exit Function
handle_error:
LogError "basAlbertDKalall.MergeQuery", Err.Description
GoTo exit_point
End Function
---------------------------------------

--
Darryl Kerkeslager

[Arno R]

Maybe:
mWord.ActiveDocument.Selection.inlineShapes.AddPic ture ("C:\odis\cache\0001622A.jpg", True, False)

Hth
Arno R
"Darryl Kerkeslager" <ke*********@comcast.net> schreef in bericht news:xo********************@comcast.com...

I've used the modified function from Albert Kalall for late-binding an
Access query to a merge Word doc. But I want to insert a picture, and I
cannot get this to work - no picture.

I have tried hitting the side of the monitor, but no help. Anyone?


Public Function MergeQuery(queryName As String, _
docName As String) As Boolean
On Error GoTo handle_error
MergeQuery = False

Dim i As Integer
Dim mWord As Object
Dim mDoc As Object
Set mWord = CreateObject("Word.Application")

DoCmd.TransferText acExportDelim, , queryName, _
"c:\odis\merge.txt", True
With mWord
Set mDoc = .Documents.Open(docName)
.ActiveDocument.MailMerge.MainDocumentType = 0
If .ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
.ActiveDocument.Unprotect
End If

.ActiveDocument.MailMerge.OpenDataSource Name:="c:\odis\merge.txt", _
AddToRecentFiles:=False, Format:=0, _
Connection:="", SQLStatement:="", SQLStatement1:=""
.ActiveDocument.MailMerge.Execute

.Application.Selection.Find.ClearFormatting
Do While ..Application.Selection.Find.Execute(FindText:="<f f>", _
Wrap:=wdFindContinue, Forward:=True) = True
.ActiveDocument.FormFields.Add
Range:=.Application.Selection.Range, _
Type:=wdFieldFormTextInput
Loop

' --- Can't get the following to work

mWord.inlineShapes.AddPicture ("C:\odis\cache\0001622A.jpg", True,
Flase)

' --- This part right above here won't work

If .ActiveDocument.ProtectionType = wdNoProtection Then
.ActiveDocument.Protect Type:=wdAllowOnlyFormFields,
NoReset:=True, Password:=""
End If
.Application.Visible = True

mDoc.Close
End With
MergeQuery = True
exit_point:
Set mWord = Nothing
Set mDoc = Nothing
Exit Function
handle_error:
LogError "basAlbertDKalall.MergeQuery", Err.Description
GoTo exit_point
End Function
---------------------------------------



--
Darryl Kerkeslager

[Arno R]

Sorry, just tested and 'InlineShapes' did NOT work...

I have something like:
Function MergeWordDoc(strWordDoc As String)
......
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(strWordDoc)

WordDoc.Shapes.AddPicture .... works
WordApp.ActiveDocument.Shapes.AddPicture ... works also
.....

Adapt to your needs
Also I think that you need to insert the picture *before* you perform the merge ?

Arno R