VBA Tools

Zaznaczenie wszystkich tabel i zmiana parametrów czcionki jest żmudna i czasochłonna. Kod VBA, który może być uruchomiony w środowisku developerskim Worda jest w tym przypadku jedynym lekarstwem. W poniższym kodzie zawarty jest jednak warunek, który mówi o tym iż dla wszystkich tabeli w dokumencie bierzemy pod uwagę tabelę o kolejnym nr 3 i przypisujemy wartościom cell wielkość czcionki =7; dla reszty pow 5tej tabeli wielkość czcionki =9.

Sub zmiana_czcionki_tabele()
'MVP OShon from VBATools.pl
Dim x&
On Error Resume Next
For x = 1 To ThisDocument.Tables.Count
 With ThisDocument.Tables(x).Range.Font
 Select Case x
 Case 3:      .Size = 7
 Case Is > 5: .Size = 9
 End Select
 End With
Next
End Sub