Mahlzeit zusammen,
mit folgendem Code lese ich mehrere Word Dokumente aus
und füge Sie dann in einem weiteren untereinander zusammen.
-----------------------------------------------------------------
Dim i
Dim dokument As Variant
Dim AppWord As Object
Set AppWord = CreateObject("Word.Application")
With AppWord
.documents.Add
End With
Do Until ActiveSheet.Range("b6").Value = ""
dokument = ActiveSheet.Range("b6").Offset(i, 0).Text
If dokument = "" Then
Exit Sub
End If
With AppWord
AppWord.documents.Open Filename:="C:\" & dokument
AppWord.Visible = True
AppWord.Windows(dokument).Activate
.ActiveWindow.Selection.MoveDown
.ActiveWindow.Selection.MoveDown
.ActiveWindow.Selection.homekey
.ActiveWindow.Selection.EndKey Unit:=wordapp.wdStory, Extend:=wordapp.wdExtend
'.Selection.wholestory
.Selection.Copy
------------------------------------------------------
mit .selection.wholestory bekomme ich auch die gesamten Dokumente
versuche ich allerdings
.ActiveWindow.Selection.EndKey Unit:=wordapp.wdStory, Extend:=wordapp.wdExtend
einzubinden (Text soll von der gegenwärtigen zweiten Zeile an abwärts
markiert und kopiert werden, bekomme ich die Fehlermeldungen nur so um
die Ohren geschlagen. Es liegt offensichtlich an
Unit:=wordapp.wdStory, Extend:=wordapp.wdExtend
welches so nicht erkannt wird.
Sicher liegt das an der SYNTAX.
Aber wo genau ?
Vielen Dank für eure Hilfe
R.Schmitt