Come trovare e sostituire stili di Word in Visual Basic di Excel

Excel Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione incorporato in cartelle di lavoro di Excel . È possibile utilizzare il linguaggio per adattare i vostri fogli di lavoro per soddisfare le vostre esigenze . Ad esempio , si può scegliere un certo stile parola del testo . Il modo tradizionale per la formattazione del testo è quello di evidenziare il testo che si desidera modificare e fare clic tramite la funzione " stili " , selezionare lo stile desiderato . Con Excel VBA , tuttavia, è possibile sostituire questo compito banale , con un clic del mouse o un colpo della tastiera . Istruzioni
1

Press "Alt" + " F11 " sulla tastiera da Excel per aprire l'editor di Visual Basic .
2

Aprire il modulo di codice VBA dalla navigazione a sinistra . riquadro o creare un nuovo modulo facendo clic su "Inserisci" e "Modulo" nel menu in alto
3

Copia e incolla il seguente codice nella finestra del modulo : Con ActiveDocument.Content.Find . ClearFormatting.Font.Bold = TrueWith Replacement.ClearFormatting.Font.Bold = FalseEnd With.Execute FindText : . = "" , ReplaceWith : = " " , _format : = True , Sostituisci : = wdReplaceAllEnd Con

codice troverà tutto il testo in grassetto e sostituirlo con il testo che non è in grassetto .
4

alterare la " Font.Bold = . vero" linea per cambiare lo stile che si desidera trovare , o aggiungere nuove linee per i formati più complessi, come il grassetto , il testo blu o sottolineato . In questo caso si dovrebbe sostituire la riga con : . Font.Bold = True.Font.Color = BlueFont.Underlined = True
5

Modificare il " Font.Bold = False". Linea per cambiare lo stile che si desidera sostituire gli stili trovati con . Ad esempio , si potrebbe desiderare di cambiare tutto il testo trovato in rosso , quindi si dovrebbe sostituire la riga con : . . Font.Color = Red
6

Premere " F5 " per eseguire il codice VBA sostituzione