Sapendo come eliminare testo barrato con VBA consente di cancellare rapidamente questo contenuto potenzialmente fonte di distrazione dal documento. Poiché VBA non richiede alcun intervento dell'utente per eseguire questa operazione, è possibile farlo senza errore umano. La caratteristica VBA alla base di questo progetto è la proprietà "Font" di classe "Range", di cui tutte le parole nei documenti sono membri. La proprietà "Font" ha diverse proprietà di componente che memorizzare tutta la formattazione si applica a una parola, ad esempio l'effetto barrato.

Istruzioni

1

Premere "Control" e "N" per creare un nuovo documento di Word, quindi digitare poche parole in esso. Fare doppio clic una parola per selezionarla, quindi premere contemporaneamente "Controllo" e "D" per visualizzare la finestra di dialogo "Font". Fare clic sulla casella "Barrato" per posizionare questo effetto sulla parola, quindi fare clic su "OK" per chiudere la finestra di dialogo.

2

Voce "Opzioni" della scheda "File", scegliere il comando "Personalizzazione barra multifunzione" del riquadro "Categorie". Queste azioni per raggiungere l'opzione per abilitare la visualizzazione della scheda "Developer", che detiene il pulsante per l'utilizzo di VBA.

3

Clicca la casella di controllo "Developer" per rendere Word Visualizza la scheda "Sviluppo", quindi fare clic su "OK" per chiudere la finestra di dialogo "Opzioni".

4

Scegliere "Visual Basic" pulsante della scheda "Sviluppo" per aprire l'ambiente di sviluppo Visual Basic, che consente di scrivere, modificare e debug di programmi.

5

Fare clic sul comando "Modulo" del menu "Inserisci" per creare una nuova finestra per l'inserimento di programmi, quindi incollare il seguente programma in una nuova finestra. Questo programma legge la proprietà di "Barrato" di ogni parola nel documento corrente e consente di eliminare la parola se il valore di quella proprietà è "True". Il programma utilizza la funzione "Elimina" della parola, che i programmatori VBA chiamano un "metodo", per eseguire l'eliminazione.

Public Sub delStrikeThrough()

Dim w

Con ActiveDocument

Per ogni w In. Parole

Se w.Font.StrikeThrough = True Then

w.Delete

End If

Successivo

Terminare con

End Sub

6

Le istruzioni del programma, scegliere il "Debug" comando del menu "Entrare", che consente di eseguire un'istruzione di un programma alla volta. Esecuzione di un programma in questo modo ti aiuta a capire l'effetto di ogni istruzione.

7

Premere "F8" ripetutamente per avanzare il clou la successiva istruzione del programma. Si noti che il programma esegue solo l'istruzione di "Elimina" una volta..--per la singola parola con il tipo di carattere barrato che è stato applicato nel passaggio uno.

8

Continuare a premere il tasto "F8" fino a quando scomparirà il momento clou, che indica il programma ha terminato l'esecuzione.

9

Fare clic sull'icona "Parola" sulla barra di Windows per tornare a Word. Si noti che la parola con il tipo di carattere barrato è stata eliminata.