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