Hallo Zusammen,
ich versuche ein Worddokument zu öffnen und an einer Textmarke einen Gif einzusetzen.
Mein Code:
Private Sub Command1_Click()
Dim lobjWord As Word.Application
Dim lwrdDoc As Word.Document
'Word erstellen
Set lobjWord = CreateObject("Word.Application")
Set lwrdDoc = lobjWord.Documents.Add("H:\VB\Word\Vorlagen.dot")
'With lwrdDoc
' .Bookmarks("Name1").Range.Text= "test"
' .SaveAs "H:\VB\Word\Fertig.doc"
' .Close
'End With
'Grafik einfügen
'Selection.InlineShapes.AddPicture FileName:= _
' "H:\VB\1.jpg", LinkToFile:=False, SaveWithDocument:=True
'Word verlassen/ Prozess beenden
lobjWord.Quit
Set lwrdDoc = Nothing
Set lobjWord = Nothing
End Sub
Zwar klappt es "test" an der Textmarke einzufügen, aber nicht den Gif.
Bitte um Hilfe !
Vielen Dank und Gruß,
Nici
ich versuche ein Worddokument zu öffnen und an einer Textmarke einen Gif einzusetzen.
Mein Code:
Private Sub Command1_Click()
Dim lobjWord As Word.Application
Dim lwrdDoc As Word.Document
'Word erstellen
Set lobjWord = CreateObject("Word.Application")
Set lwrdDoc = lobjWord.Documents.Add("H:\VB\Word\Vorlagen.dot")
'With lwrdDoc
' .Bookmarks("Name1").Range.Text= "test"
' .SaveAs "H:\VB\Word\Fertig.doc"
' .Close
'End With
'Grafik einfügen
'Selection.InlineShapes.AddPicture FileName:= _
' "H:\VB\1.jpg", LinkToFile:=False, SaveWithDocument:=True
'Word verlassen/ Prozess beenden
lobjWord.Quit
Set lwrdDoc = Nothing
Set lobjWord = Nothing
End Sub
Zwar klappt es "test" an der Textmarke einzufügen, aber nicht den Gif.
Bitte um Hilfe !
Vielen Dank und Gruß,
Nici