Code:

Dim wrdobj As Word.Application

   Set wrdobj = New Word.Application
   wrdobj.Documents.Open (App.Path & "\UwDocument.doc")           '<===== aanpassen
   wrdobj.Visible = True

  'Hier wordt een textbox in het ducument aangemaakt
  'Algemeen: AddTextbox(1, x-positie op blad, y-positie op blad, breedte figuur, hoogte figuur)
  'Voor de afstanden moet er wel rekening gehouden worden met een omzettingsfactor nl. aantal millimeters * 2.85
  'In ons voorbeeld staat de afbeelding op 162 mm vanaf de linkerzijde dus 162 * 2.85 = 461.7
   wrdobj.ActiveDocument.Shapes.AddTextbox(1, 461.7, 43.2, 72#, 79#).Select
   wrdobj.Selection.ShapeRange.TextFrame.TextRange.Select
   wrdobj.Selection.Collapse

  'Hier gaan we de kader van de textbox in wit zetten zodat deze niet te zien is in ons document
   wrdobj.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
   wrdobj.Selection.InlineShapes.AddPicture FileName:=App.Path & "\UwAfbeelding.jpg", Linktofile:=False, savewithdocument:=True   '<======  aanpassen

   wrdobj.Documents.Close False
   wrdobj.Quit
   Set wrdobj = Nothing