VBATools

Zmiana czcionek w tabelach dokumentu Word

by on May.19, 2011, under Porady, Word

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

Oczywiście jest to jeden ze sposobów, który może być poddany modyfikacji i dotyczyć rodzaju czcionki, koloru czy  innych parametrów fontu.

Przy takich operacjach należy pamiętać iż ważne jest przygotowanie kopii zapasowej edytowanego dokumentu.

 

(c) Shon Oskar – www.VBATools.pl

Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.
:, , , , ,

Leave a Reply