Hallo,
wir wollten Fragen ob sich jemand mit der Fehlermeldung auskennt, sie bezieht sich auf die im Code vorhandene len-funktion. Wir haben versucht die Errormessage mit verschiedenen Schreibweisen zu lösen, nur kamen wir bisher leider zu keinem Ergebnis.

objWord = .OLEObject~New("Word.Application")
objWord~Visible = .True
objWord~DisplayAlerts = .False
objWord~Documents~Open("C:\Users\ahilb\Desktop\Demotable.docx")
objDoc = objWord~ActiveDocument

objExcel = .OLEObject~new("Excel.Application")
objExcel~Visible = .True
objExcel~DisplayAlerts = .False
objExcel~Workbooks~Add
objSheet = objExcel~ActiveSheet

dstRow = 0
do tbl over objDoc~Tables
do srcRow = 1 To tbl~Rows~Count
col = 0
do cell over tbl~Rows(srcRow)~Cells
col = col + 1
objSheet~Cells(dstRow+srcRow, col)~Value = Left(cell~Range~Text , len(cell~Range~Text)-1)
End
End
dstRow = dstRow + SrcRow
End

Worksheet~SaveAs("convertion.xls")

Trapped In..: RunSyntax
    Message..: Could not find routine "LEN"
  ErrorText..: Routine not found
       Code..: 43.1
     Line #..: 19

Mit freundlichen Grüßen,
Andreas