flet med word

Du skulle kunne gøre det således:

    Selection.GoTo What:=wdGoToBookmark, Name:="DitBookmark"
    Selection.InlineShapes.AddPicture FileName:= _
        "http://addresse.dk/image.jpg", LinkToFile:=False, _
        SaveWithDocument:=True

Url'en er en variabel der bestemmes af feltet i Access. Det jeg har prøvet er at indsætte feltet som et bookmark, men det giver kun adressen og ikke billedet.

Kunne du evt paste hele din kode ind her?

Ellers: Hvis URL'en ligger i en variabel, skulle koden bare kunne se således ud:

Selection.InlineShapes.AddPicture FileName:=varURL, LinkToFile:=False, SaveWithDocument:=True

Her er min kode fra Access:

Private Sub word_1_instructor_Click()
Dim objword As New Word.Application
Dim worddoc As New Word.Document
Dim picture_tekst As String

Set worddoc = objword.Documents.Add("E:\doc1.doc")

Call InsertAtBookmark(worddoc, "titel", Me!k_titel)
Call InsertAtBookmark(worddoc, "picture", Me!url)
Call InsertAtBookmark(worddoc, "instructor", Me!k_instructor_1)

objword.Visible = True
DoCmd.Hourglass False
   
End Sub
Function InsertAtBookmark(objWordDoc As Word.Document, strBookmark As String, strText As String) As Boolean
With objWordDoc.Bookmarks
If .Exists(strBookmark) Then
.Item(strBookmark).Range.Text = strText
InsertAtBookmark = True
End If
End With
End Function

Skal måske lige nævne at jeg ikke har noget VBA i mit word-dokument

Jeg tror, at du må lave en ny funktion, da billedet adskiller sig fra alm. tekst:

Function InsertPictureAtBookmark(objWordDoc As Word.Document, strBookmark As String, Picture As String) As Boolean
    With objWordDoc
    If .Exists(strBookmark) Then
        .Selection.GoTo What:=wdGoToBookmark, NamestrBookmark
        .Selection.InlineShapes.AddPicture FileName:= Picture, LinkToFile:=False, SaveWithDocument:=True
    End If
End WithEnd Function

Herefter skal dine 3 linier laves om således:

Call InsertAtBookmark(worddoc, "titel", Me!k_titel)
Call InsertPictureAtBookmark(worddoc, "picture", Me!url)
Call InsertAtBookmark(worddoc, "instructor", Me!k_instructor_1)

NB: Jeg har ikke haft mulighed for at afprøve det, men har blot skrevet det ud fra hukommelsen. Men det burde virke...

Tak for hjælpen indtil nu og du har tjent din point (får dem på dit næste svar), men jeg får fejl på "NamestrBookmark" (Expected: name parameter)

sorry...så havde der alligevel sneget sig en slåfejl ind :o(

Sådan skal den se ud:

Function InsertPictureAtBookmark(objWordDoc As Word.Document, strBookmark As String, Picture As String) As Boolean
    With objWordDoc
    If .Exists(strBookmark) Then
        .Selection.GoTo What:=wdGoToBookmark, Name:=strBookmark
        .Selection.InlineShapes.AddPicture FileName:= Picture, LinkToFile:=False, SaveWithDocument:=True
    End If
End WithEnd Function

Tak for hjælpen. det virker ikke helt endnu men nu har jeg noget at arbejde videre på

Selv tak :o)

Du siger bare til, hvis der er mere, jeg kan gøre...

God weekend!