Hallo,

kann es, dass die methode length heißt und nicht len?

Lg ________________________________ Von: Aw2019w aw2019w-bounces@alice.wu-wien.ac.at im Auftrag von Andreas Hilbig a.hilbig@gmx.at Gesendet: Mittwoch, 27. November 2019 12:43 An: aw2019w@alice.wu-wien.ac.at aw2019w@alice.wu-wien.ac.at Betreff: [Aw2019w] Gruppe 06

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