diky.. vyreseno vkladani, ale ted bych spis potreboval poradit jak ten obrazek dostat na nejaky konkretni misto v dokumentu... treba strana 3, radek 25... nebo nejaky souradnice... ci alespon zacatek/konec strany cislo 4..

da se to vubec?



P.S.pokud by nekdo potreboval...

Kód:
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.DisplayAlerts = True
Set wordDoc = wordApp.Documents.Add() 

Dim pageNo As Integer
Dim picturePath As String
Dim pictureName As String

picturePath = "C:\Temp\"
pictureName = picturePath & "obr.jpg"

pageNo = 1
wordDoc.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pageNo
wordDoc.InlineShapes.AddPicture pictureName, False
wordDoc.SaveAs "C:\Temp\obr.doc"
Set wordDoc = Nothing
wordApp.Quit True
Set wordApp = Nothing