VBATools

Zmiana czcionek w dokumencie Word dla konkretnych stron

by 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.
:, , , , ,

Leave a Reply