Hallo,

ich würde gerne den Text aus einer Wod-Tabelle inkl. allfälliger Nummerierung kopieren.

Ich habe dazu folgenden Code geschrieben:

Sub Makro1()
Dim i As Integer
Dim Acc As String


For i = 1 To 1
    Acc = ActiveDocument.Tables(i).Rows(3).Cells(2).Range
    Acc = Left(Acc, Len(Acc) - 2)
    MsgBox Acc
  Next i
End Sub

Dabei wird jedoch nur der Text, aber keine Nummerierung mitkopiert.

Wenn also bspw. drinsteht:

1. Haus

2. Garage

Dann lautet das Ergebnis

Haus

Garage

Was muss ich ändern, damit auch die Nummerierung mitkopiert wird?

Danke!