Guten Morgen,
wieder mal eines meiner "Word" Probleme.
Uns liegt gerade eine .xls Datei mit ca.
25 eingebundenen Word Dokumenten vor.
Da die von einem neuen Kunden kommt ist zu
erwarten, daß das regelmäßig passieren wird.
Es sollen nun diese Word Dokumente sozusagen
ausgelesen und zu einem zusammengefasst werden,
welches dann als .doc abgespeichert wird.
Dachte, mit :
Dim myOLEObject As OLEObject
For Each myOLEObject In Worksheets(1).OLEObjects
If myOLEObject.ProgId = "Word.Document.8" Then
myOLEObject.Verb Verb:=xlVerbPrimary
With myOLEObject
.Selection.WholeStory
.Selection.Copy
-------
etc.
etc.
etc.
End With
End If
Next
müßte das gehen - tut´s aber nicht.
Besteht überhaupt die Möglichkeit, daß über VBA zu lösen ?
Rein manuell kann ich den Inhalt des eingebundenen Dokuments
nämlich schon markieren und ihn dann woanders hinkopieren.
Nur - bringt die Aufnahme mit dem Makrorekorder natürlich
wieder keine Ergebnisse.
Ratlos :
R.Schmitt