Text-Inhaltssteuerungselement in Excel auslesen

Sub Test()
Dim cDir As String
Dim sPath As String
Dim WordApp As Object
Dim getCCValue As Object
Application.ScreenUpdating = False
sPath = "Z:\XYZ\" _
_
cDir = Dir(sPath & "*.docx")
Do While cDir  ""
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
.Documents.Open (sPath & cDir)
.Documents(sPath & cDir).Activate
'Hier sollen die Inhalte des Word-Dokuments ausgelesen werden und in die Excel Datei ü  _
_
bertragen werden'
.Documents(sPath & cDir).Close False
End With
WordApp.Quit
'nächste Datei lesen
cDir = Dir
Loop
End Sub