Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Launch " Slovo , " kliknite na kartu " Vývojár " a kliknite na " Visual Basic " otvorte Editor jazyka Visual Basic . " . Modul " Kliknite na " Vložiť " menu a kliknite 
 2 
 Začnite zadaním nasledujúci kód jazyka VBA vytvoriť nový čiastkové postup : 
 
 Private Sub centerText ( ) klipart 
 3 
 deklarovať dve premenné , ktoré budete používať držať počiatočný a koncový text , ktorý chcete centrá : 
 
 Dim firstWord As String Dim 
 
 lastWord As String 
 Stránka 4 
 definovať začiatok slova a koniec slová v odseku , napríklad nasledujúce : 
 
 firstWord = " začiatok odseku " 
 
 lastWord = " konci odsek " 
 5 
 skopírujte a vložte nasledujúci kód do vyhľadávania v dokumente programu Word pomocou premenné , ktoré sú definované a vycentrovať text medzi nimi : 
 
 s ActiveDocument.Content.Duplicate 
 
 Find.Execute FindText : . = firstWord & " * " & lastWord , MatchWildcards : .. = TRUE 
 
 MoveStart wdCharacter , Ľan ( firstWord ) 
 
 MoveEnd wdCharacter , - Ľan . ( lastWord ) 
 
 ParagraphFormat.Alignment = wdAlignParagraphCenter 
 
 End With 
 6 
 End sub postup zadaním nasledujúceho : 
 
 End sub