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 bzw. die Formatierung 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
With Vorlage
.Content.Text = TextBox2.Text & vbCrLf & .Content.Text
End With
Hier noch einen Dank an Franz, der mir hierbei geholfen hat.
Jetzt kopiert er zwar den text der Textbox an den Anfang des Dokuments, jedoch wird dann die komplette Formatierung des Textes der schon in dem Dokument drin steht gelöscht und alles einheitlich gemacht
Weiß jemand wie ich das vermeiden kann?
Gruß
Tobias