Parola tutorial con VB

June 22

Microsoft Word è un linguaggio di scripting potente chiamato Visual Basic, che è possibile utilizzare per automatizzare qualsiasi operazione in Word. È possibile creare script Visual Basic, chiamati macro, da loro, la registrazione o inserendo manualmente nell'IDE di Visual Basic (ambiente di sviluppo integrato) di Word.

Uno dei compiti più comuni che gli utenti di Word hanno bisogno di fare è trovare e sostituire il testo. Mentre le funzionalità esistenti di Word per trovare e sostituire è facile da usare, Visual Basic può rendere ancora più facile. Inserire ed eseguire la seguente macro per imparare a trovare e sostituire con Visual Basic.

Creare il Programma

Potrai creare un breve programma immettendola direttamente nell'IDE di Visual Basic. Ma è necessario prima un documento di esempio per testare il programma con. All'interno Word, aprire un nuovo documento e salvarlo con il nome "vbReplace.doc." Copiare un sacco di testo da un altro documento e incollarlo in vbReplace.doc.

Premere Alt-F11 per immettere l'IDE di Visual Basic ed espandere la sottostruttura Progetto vbReplace nel riquadro del progetto. Espandere il Microsoft Word Objects cartella e fare doppio clic sull'icona ThisDocument. Visual Basic posiziona il cursore nella finestra di inserimento del codice. Inserire il seguente codice in quella finestra.

Mac Public Sub ()
Dim myRange come gamma

'Farlo con il paragrafo corrente
Set myRange = Selection.Paragraphs (1) .Range

con myRange.Find
ClearFormatting

.Font.Bold = False
.Format = True
.Replacement.ClearFormatting
.Replacement.Font.Bold = True
.Execute Forward:=True, Replace:=wdReplaceAll, _
FindText:="the", ReplaceWith:="the", MatchWholeWord:=True

End With
End Sub

Eseguire il programma

Ora che il programma è fatto, è il momento di provarlo. Tornare al documento di Word premendo ALT-F11 e posizionare il cursore in qualsiasi punto tipico, in particolare uno che ha un sacco di occorrenze della parola "i". Eseguire la macro premendo Alt-F8 per arrivare alla lista di macro, selezionando "mac" dalla lista e premere Esegui. Se ci fossero casi non-grassetto di The nel paragrafo in cui è stato posizionato il cursore, che ora sono tutti in grassetto.

Modificare il programma

Avere una macro per fare un solo tipo di ricerca e sostituzione ha un certo uso, ma essere in grado di adattarsi facilmente la macro per coprire diversi tipi di sostituire le operazioni è un vero e proprio richiamo produttività. Reinserire l'IDE di Visual Basic (ALT-F11) e passare indietro al codice inserito, utilizzando il riquadro di progetto come descritto in precedenza.

Modificare il sub Mac in modo che si trasforma alcune delle "Le" parole in grassetto corsivo in s "la". Questa volta, si limita l'operazione di sostituzione di lavorare solo su una frase. Qui sono le uniche linee che è necessario cambiare:

Set myRange = Selection.Paragraphs (1) .Range diventa Imposta myRange = Selection.Sentences (1)
.Font.Bold = False diventa .Font.Bold = true
.Replacement.Font.Bold = True diventa .Replacement.Font.italic = True
.ReplaceWith: = "Il" diventa ReplaceWith: = "la"

Eseguire il programma riveduto

Ora si prova il programma nello stesso modo in cui si testato la versione originale. Tornare al documento di Word e posizionare il cursore all'interno di una frase con alcuni casi audaci di "The". Eseguire la macro modificato utilizzando la procedura che hai usato per eseguire la versione originale. Guarda il grassetto "la" s si trasformano in s "la". Si noti, inoltre, che la frase corrente è stata influenzata piuttosto che l'intero paragrafo.