Zmiana czcionek w tabelach dokumentu Word
by vbatools 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.