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 di 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 inserire l'IDE di Visual Basic e di espandere il progetto vbReplace sottostruttura nel riquadro del progetto . Espandere la cartella di oggetti di Microsoft Word e fare doppio clic sull'icona di ThisDocument . Luoghi di Visual Basic il cursore nella finestra di inserimento del codice . Inserisci il seguente codice in quella finestra .
Pubblico
Sub mac ( ) Dim myRange come gamma
' farlo con l'attuale paragraphSet myRange = Selection.Paragraphs ( 1) . Campo
Con myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward : = True , Sostituisci : = wdReplaceAll , _FindText : = " il " , ReplaceWith : = " la " , MatchWholeWord : = TrueEnd WithEnd 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 istanze della parola " il ". 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 della a del 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 qualche utilità , ma essere in grado di adattarsi facilmente la macro per coprire diversi tipi di operazioni di replace è un vero e proprio richiamo produttività . Immettere nuovamente il Visual Basic (ALT- F11) e passare di nuovo al codice inserito , utilizzando riquadro del progetto , come descritto in precedenza .
Cambia il sotto Mac in modo che trasforma alcuni dei " Le " parole evidenziato in grassetto corsivo in s " la". Questa volta , potrai limitare l' operazione di sostituzione di lavorare solo su una frase . Qui sono le uniche linee che devono cambiare : . . .
MyRange = Selection.Paragraphs ( 1) Gamma diventa Impostare 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
adesso ti testare il programma nello stesso modo hai provato 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 modificata 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 è stato influenzato , piuttosto che l'intero paragrafo .
Programmazione © www.354353.com