Word erkennt Tabelle nicht

[Lili]

Hallo Leute,
ich versuche die Tabellen eines Dokuments in ein anderes Dokument zu übertragen. Das klappt auch solange ich nur eine bestimmte Tabelle angebe (mit Tabellennummer statt dem i). Wenn ich aber die Schleife laufen lasse, kommt die Meldung, dass weitere Tabellen nicht existieren. Kann mir das jemand erklären? Hier so weit mein Code:

...
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Select
Selection.Copy


Documents.Open ("C:\DESKTOP\Doc3-N.doc ")
Set CDocDst2 = ActiveDocument
Set CRange = CDocDst2.Range
Selection.PasteAndFormat (wdPasteDefault)
Next i

End Sub

Danke im Vorraus!
Lili

[cb4866]

Hallo Lili,
ich würde statt "For i = 1 To ActiveDocument.Tables.Count"

dim i as integer = 0
Do Until i = ActiveDocument.Tables.Count
.....
i += 1
Loop

verwenden

Gruß
Christian

Gruß Christian

[Julia Kuhlmann]

Hmm, ich bin zwar kein Basic-Spezialist, aber kann es sein, dass dein Activedocument in der Schleife mti dem open-Befehl neu gesetzt wird?
Vielleicht solltest du vor der Schleife noch so etwas wie

myDocument = ActiveDocument
for i = 1 to myDocument.Tables.count
.
.
.

setzen.

Grüße
Julia