Aprire MS Word e andare al di Visual Basic IDE ( ambiente di sviluppo integrato ), premendo ALT - F11 .
Nella finestra del codice , digitare il seguente codice di programma .
pubblico
Sub mac ( ) Dim r Come RangeDim w Come RangeDim i come IntegerDim t As String
Options.DefaultHighlightColorIndex
Set r = Selection.Range
r.StartOf ( wdParagraph ) per
r.Expand = TrueWith r.Find.Text = " è" . Replacement.Text = " è" . Forward = True.Wrap = wdFindStop.Format = True.MatchCase = False.MatchWholeWord = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withr.Find.Execute Replace : = wdReplaceAll
End Sub
Si può avere un'idea di ciò che questo programma farà da notare determinate parole chiave all'interno di esso : punto , trovare , e la selezione , per esempio . Il programma trova e mette in evidenza tutte le occorrenze di una parola si specifica , all'interno del paragrafo corrente
Avviso queste due righe di codice : . . Text = " è" Replacement.Text = " è"
< . p > Quelle linee indicano Word cosa cercare . Al posto di quelli "è" s , inserire qualunque parola o testo vuoi ricercare ed evidenziare .
Esecuzione del programma di
Torna alla parola ( alt - F11 ) , e inserire un paio di paragrafi vale la pena di testo . Tali punti devono contenere almeno un paio di occorrenze del suddetto termine di ricerca che hai scelto.
Quando hai terminato di inserire il testo , posizionare il cursore all'interno di uno dei paragrafi. Eseguire il programma : scegli Alt-F8 per aprire la finestra della macro -replay . Selezionare la macro "mac " , e premere Esegui. Se viene trovato le istanze della parola di ricerca specificato , nel paragrafo che contiene il cursore , si metterà in evidenza la parola .
Capire per adattarlo
Digitando in un singolo script può migliorare il flusso di lavoro un po ' . Ma se si capisce come funziona lo script , si inizia a migliorare notevolmente il flusso di lavoro , e in modo perpetuo .
Ritorna l'IDE di Visual Basic e di guardare il codice del programma all'interno della funzione mac. Notate come la funzione mac arriva al punto attuale di fare la sua operazione di sostituzione : si guarda l'oggetto Selection , che rappresenta il testo selezionato o il punto di inserimento. Quindi , utilizzando la rappresentazione interna di Word del documento , lo script " leapfrogs " dal punto di inserimento attuale fino all'inizio del paragrafo che contiene il punto di inserimento .
Questo tipo di movimento è reso possibile da una rete di collegamenti all'interno di VBA per Word . La selezione corrente è legato alla parola corrente , la frase corrente e paragrafo corrente. In particolare , mac link o leapfrogs dalla selezione corrente all'inizio del paragrafo corrente (Set r = Selection.Range e r.StartOf ( wdParagraph ) ) . A quel punto , r è solo un punto di inserimento , ma vogliamo che si riferiscono a tutto il paragrafo, in modo da ampliare con r.Expand wdParagraph . Se si desidera cercare solo la frase corrente al posto del paragrafo corrente , sostituire tutte le istanze di wdParagraph nel codice del programma con wdSentence .
Programmazione © www.354353.com