Zmiana czcionek w dokumencie Word dla konkretnych stron
by vbatools on May.19, 2011, under Porady, Word
Edytując dokument w edytorze tekstu często posługujemy się różnymi stylami, gdy mamy jednak do czynienia z importem danych z plików tekstowych cały kształt dokumentu będzie spoczywać na naszych barkach. Aby temu podołać możemy odnieść się do numeru stron (wstawiając jedynie znak końca strony) i w ramach nich uruchomić kod VBA.
W poniższym przykładzie mamy do czynienia z edycją na podstawie stron. Zakładamy iż pierwsza strona powinna posiadać wielkość czcionki = 14, a każda następna = 11. Podobnie zmiany mogą być realizowane na poziomie rodzaju czcionki etc..
Sub Zmiena_wielkosci_dla_testu_na_stronach() 'MVP OShon from VBATools.pl With Selection .GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" .MoveLeft Unit:=wdCharacter, Count:=-.StoryLength, Extend:=wdExtend .Style = wdStyleTitle .Font.Size = 14 .Font.Name = "Times New Roman" .Font.Underline = 1 .GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2" .MoveLeft Unit:=wdCharacter, Count:=-.StoryLength, Extend:=wdExtend '.Style = wdStyleNormal 'jak kto woli .Font.Size = 11 .Font.Name = "Calibri" .Font.Underline = wdUnderlineNone End With 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. Jednakże ten sposób odwołania się przygotuje dokument błyskawicznie.
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.