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

Recently Active Members

Profile picture of vbatools
Profile picture of Karol Stilger
Profile picture of Anorak
Profile picture of marcinmachalowski
Profile picture of Joanna Subik
Profile picture of programistaaccess
Profile picture of piotrpawlik
Profile picture of Emil Wasilewski
Profile picture of kicekpicek
Profile picture of coldfusion
Profile picture of Gosia Borzęcka
Profile picture of lukaszch
Profile picture of itadministracja
Profile picture of farbenia
Profile picture of Łukasz Kałużny
Profile picture of kabzinski
Profile picture of rtynski
Profile picture of leszekbetlinski
Profile picture of Iv
Profile picture of Justyna Spychała