Hallo zusamme,
ich hab mal wieder eine Frage. Ich habe ein Word Dokument in Excel eingebettet. Nun will ich es öffnen und den Inhalt einer textbox an den Anfang dieses Word Dokuments kopieren ( Das Dokument enthält unter Umständen schon Text) ohne den schon vorhandenen Text zu löschen.
Den restlichen Text an sich füge ich über diesen Code ein:
ActiveSheet.OLEObjects("Anzeigen").Verb Verb:=xlOpen
Set OLEDok = ActiveSheet.OLEObjects("Anzeigen").Object.Application.ActiveDocument
OLEDok.Content.Copy
Worksheets("Sheet3").OLEObjects("Vorlage").Verb Verb:=xlOpen
Set Vorlage = Worksheets("Sheet3").OLEObjects("Vorlage").Object.Application.ActiveDocument
Vorlage.Range(Vorlage.Content.End - 1).Paste
Also der Text wird aus einem eingebetteten Word Dokument geholt und in ein anderes eingebettetes Word Dokument wieder eingefügt. (Und zwar immer am Ende).
Jetzt habe ich versucht den Text der Textbox wie folgt einzufügen:
With oData
.SetText TextBox2.Text
.PutInClipboard
End With
Worksheets("Sheet3").OLEObjects("Vorlage").Verb Verb:=xlOpen
Set Vorlage = Worksheets("Sheet3").OLEObjects("Vorlage").Object.Application.ActiveDocument
Vorlage.Range(Vorlage.Content.Start) = oDate.GetText
Jedoch löscht er dann den vorhergehenden Text.
Weiß jemand wie ich das vermeiden kann?
Gruß
Tobias