Launch " parola", fare clic sulla scheda "Sviluppatore " e cliccare " Visual Basic " per aprire l'editor di Visual Basic. Fai clic sul menu "Inserisci" e fare clic su
2
Inizia digitando il seguente codice VBA per creare una nuova procedura sub "Modulo ". :
Private Sub centerText ( ) per
3
dichiarare due variabili che si intende utilizzare per contenere l'inizio e la fine del testo che si desidera centro :
Dim FirstWord As String Dim
ultima voce As String
4
Definire le parole iniziali e le parole che terminano nel paragrafo , come il seguente :
FirstWord = " inizio del paragrafo "
ultima voce = " fine paragrafo "
5
Copia e incolla il seguente codice per cercare il documento di Word utilizzando le variabili definite e per centrare il testo tra di loro :
ActiveDocument.Content.Duplicate < . br>
Find.Execute FindText : = FirstWord & " * " & ultima voce , MatchWildcards : . = True
MoveStart wdCharacter , Len ( FirstWord ) per
MoveEnd wdCharacter , - Len . . ( ultima voce ) per
ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
6
Fine della procedura secondaria , digitando il seguente :
End Sub
Programmazione © www.354353.com