Hallo zusammen,
ich habe eine Frage. Ich habe in einem Excel Sheet ein Word Objekt eingebettet (also über Insert -> Object -> Word 2003 Dokument)
Nun habe ich da einen Text eingefügt. Jetzt möchste ich allerdings eine bestimmte Stelle mit der Replace Funktion überschreiben.
Öffnen und kopieren kann ich das Dokument aber wie ich die Replacefunktion über Excel aufrufen kann, weiß ich leider nicht!
Hier ein Auschnitt meines bisherigen Codes:
.
.
.

Worksheets("Sheet1").OLEObjects("Zwischenspeicher").Verb Verb:=xlOpen
Set OLEDOk2 = Worksheets("Sheet1").OLEObjects("Zwischenspeicher").Object.Application.ActiveDocument
Ab hier gehts nicht
OLEDOk2.Selection.WholeStory hier kommt Object doesn't support this property or method / Fehler 438
With OLEDOk2.Selection.Find
.Text = ","
.Replacement.Text = "."
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
OLEDok.Selection.Find.Execute Replace:=wdReplaceAll

.
.
.
Vielen Dank schoneinmal für eure Hilfe
Gruß
Tobias