run through tables and format these

[shu]

Hey



I'm new with vba word. I want to run trough tables and change some properties. I have a document with around 100 tables and when i start the makro, the word document has an error and shuts down after 20 - 30 tables. Can someone tell me why?

This is my code for it:

Sub Tabellen_formatieren()

Dim i As Integer
    
For i = 1 To ActiveDocument.Tables.Count
             ActiveDocument.Tables(i).Select
         
        With ActiveDocument.Tables(i).Range.Font
        .Name = "Arial"
        .Size = 10
        .ColorIndex = wdBlack
        End With
        
       With ActiveDocument.Tables(i)
       .PreferredWidthType = wdPreferredWidthPercent
       .PreferredWidth = 100
       End With
              
Next

End Sub

[macropod]

With many tables to process, Word is probably not getting enough breathing space for its housekeeping. You're also unecessarily selecting each table, which only adds to the processing overheads. Try:

Sub Tabellen_formatieren()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = 1 To .Tables.Count
    With .Tables(i)
      With .Range.Font
        .Name = "Arial"
        .Size = 10
        .ColorIndex = wdBlack
      End With
      .PreferredWidthType = wdPreferredWidthPercent
      .PreferredWidth = 100
    End With
    If i Mod 25 = 0 Then DoEvents
  Next
End With
Application.ScreenUpdating = True
End Sub

[shu]

It's working, many thanks

BR shu