Hi Can,
... wird anscheinend der Command Button (Inlineobject) ebenso mitgelesen ...
Das ist der Sinn eines Inlineobjects, dass es von Word, wie normaler Text behandelt werden kann. Du könntest die Umbruchart eines jeden Buttons ändern (z.B. in Passend) oder du versuchst ersetzt einfach den Text des Buttons beim Auslesen durch nichts.
mal ein Schuss ins Blaue, da ich dein Word-Dokument nicht kenne. Probiers mal so:
Sub Nr_auslesen()
Dim c As Cell, nr As Long
For Each c In ActiveDocument.Tables(1).Columns(1).Cells
nr = Val(Replace(Left(c.Range.Text, Len(c.Range.Text) - 1), c.Range.InlineShapes(1).Range.Text, ""))
Next c
End Sub
zunächst wird mit der Left Funktion das komische Zellenzeichen hinten am Text entfernt
aus dem verbliebenen Text wird mit der Replace funktion der Text des Commandbuttons durch nichts ersetzt.
zu guter letzt wir die erhaltene Nr durch Val in eine Zahl umgewandelt.
Falls dir das nicht weiterhelfen sollte, dann lade doch mal ein Beispieldokument mit 4 Zeilen hoch. Kannst du z.B. hier machen: https://workupload.com/
Gruß Mr. K.
|