VBA-Makros in Word extrem langsam

30/01/2010 - 10:54 von Ralph P. Schorn | Report spam
Hallo,

seit ca. November 2009 stelle ich fest, dass unter Word 2003 und 2007
VBA-Makros plötzlich extrem langsamer als vorher ausgeführt werden.
Krasses Beispiel sind Textboxes in dieser Art:

Set TB2 = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,
1, 1, 1, 1)
TB2.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
TB2.RelativeVerticalPosition = wdRelativeVerticalPositionPage
TB2.Left = CentimetersToPoints(16.1)
TB2.Top = CentimetersToPoints(9.7)
TB2.Width = CentimetersToPoints(4.7)
TB2.Height = CentimetersToPoints(0.4)
TB2.TextFrame.MarginTop = 0
TB2.TextFrame.MarginBottom = 0
TB2.TextFrame.MarginLeft = 0
TB2.TextFrame.MarginRight = 0
TB2.WrapFormat.Type = wdWrapThrough
TB2.Line.Visible = False
TB2.TextFrame.TextRange.Font.Name = "Arial"
TB2.TextFrame.TextRange.Font.Size = 9
TB2.TextFrame.TextRange.Font.Bold = False
TB2.TextFrame.TextRange.Font.Italic = False
TB2.TextFrame.TextRange.Font.Color = RGB(0, 87, 120)
TB2.TextFrame.TextRange = AbsenderName
Set TB2 = Nothing

Um eine Seite mit ca. 10 dieser Boxen aufzubauen, dauert es jetzt 40
Sekunden, früher eine halbe Sekunde. Kennt jemand dieses Problem und hat
gar eine Lösung?

Ralph
 

Lesen sie die antworten

#1 Klaus Linke
30/01/2010 - 23:01 | Warnen spam
seit ca. November 2009 stelle ich fest, dass unter Word 2003 und 2007
VBA-Makros plötzlich extrem langsamer als vorher ausgeführt werden.
Krasses Beispiel sind Textboxes in dieser Art:
[...]



Gehört habe ich davon... Von einer Lösung allerdings noch nichts.

Du könntest versuchen ob etwas wie das ein weinig hilft:

With TB2.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 9
.Bold = False
.Italic = False
.Color = RGB(0, 87, 120)
End With

Dann braucht sich Word nicht jedes mal durchs Objektmodell hangeln.
Ob es allerdings viel bringt kann ich nicht sagen.

Gruß,
Klaus

Ähnliche fragen