Placing text and pictures in Word-document ??

ksor · #1 02-01-2018, 11:44 AM

Placing text and pictures in a WORD document.

Code:

Public Sub getBilleder(f As Form, bD As Word.Document)
    Dim tbl As DAO.Recordset
    Set tbl = CurrentDb.OpenRecordset("SELECT BILLEDE.*, BILLEDE.PersonID, BILLEDE.Sortering " & _
                                      "FROM BILLEDE WHERE (((BILLEDE.PersonID)=" & Me.PersonID & _
                                      ")) ORDER BY BILLEDE.Sortering;", dbOpenDynaset)
    With tbl
        .MoveFirst
        If .NoMatch Then Exit Sub
        bD.Content.InsertAfter ("Registrerede billeder: " & CrLf(2))
        Do
            bD.Content.InsertAfter (.Fields("Billedtekst") & CrLf(1))
            bD.Shapes.AddPicture (TrimFrom("Right", CurrentDb.Name, "\") & "IMG_files\" & .Fields("Sti til fil"))
           .MoveNext
        Loop Until .EOF
    End With
    Set tbl = Nothing
End Sub

but the text AND the pictures are places on top of earch other.

How can I arrange the text and pictures something like this:

Overall headline "Registrerede billeder: " & CrLf(2)

Text for first picture: .Fields("Billedtekst") < a frame with the picture - the biggest thimbnail>

Text for the second picture: .Fields("Billedtekst") < a frame with the picture - the biggest thimbnail>

and so on for all pictures in the recordset

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Placing Endnotes in the Middle of a Document	lrosebush	Word	3	10-24-2016 04:05 PM
VBA to split word document containing pictures using delimter	uday.word	Word VBA	5	09-11-2016 05:59 AM
Formula for Placing Text in A Worksheet Group?	Margaret	Excel	4	07-17-2016 11:54 PM
Creating a (shared!) file with CommandButton placing AutoText into the document	thmsrox	Word VBA	5	07-07-2016 05:04 AM
Placing Image behind Text Box	alexei_lg	Word	1	02-07-2012 12:28 PM