Hallo,
vielleicht kann mir jemand Helfen.
Es gibt ein Word Dokument mit ca.10000 Tabellen
Mein Makro erstellt ein neues Dokument und Kopiert ausgewählte Tabellen
in das neue Dokument (ca. 7000 Tabellen)
Sobald ich das Original-Dokument (mit ca. 10000 Tabellen) öffne verbraucht Word ca.200 MB Arbeitsspeicher
Beim aussuchen (durch Makro) welche Tabellen ich rüber kopiere verbraucht Word ca.220 MB
Und beim reinen Kopieren geht der Arbeitsspeicher schnell hoch über 1000MB und alles wird ganz langsam und langsamer
Hier der Kopier-Code :
For i = 1 To UBound(arrAll)
DocOrgFile.Range(arrAll(i, 4), arrAll(i, 5)).Copy 'Kopiere alte Tabelle
lngZahlVor = DocNewFile.Range.End 'Merke wo startet die neue Tabelle
Selection.Paste 'Neue Tabelle wird eingefügt
lngZahlNach = DocNewFile.Range.End 'Merke wo die neue Tabelle endet
DocNewFile.Range(lngZahlVor, lngZahlNach).ParagraphFormat.SpaceAfter = 0 'in der Neuen Tabelle Abstand-Nach-Absatz entfernen
Next
Kann man vielleicht den Kopiervorgang andres machen um weniger Arbeitsspeicher in Anspruch zu nehmen ?
Gruß
Todor
|