-
SUPREMO KING.
User deleted
Chissą quante volte abbiamo editato e "pulito" dagli a capo indesiderati i documenti scaricati da internet per personalizzarli e formattarli secondo le nostre esigenze... e quanto tempo abbiamo perso!!
Se pensiamo poi che bastava una semplicissima Macro che svolgesse tutto il lavoro in pochi secondi.... Penso che non serva commentare!
==>COSA FARE
- Avviate WORD;
- Andate quindi in "Strumenti=>Macro=>Macro", oppure pressate la combinazione di tasti [Alt]+[F8];
- Qui, date il Nome alla Macro (per es. "Puliscitesto") e fate click sul pulsante "Crea..";
- Si aprirą l'Editor Vba;
- Copiate al suo interno il seguente listato (al posto di quello generato in modo automatico):
' ------- INIZIO LISTATO -------
Public Sub Puliscitesto()
'Sostituisco i due a capo "^l^l" con "$#$#"
WordBasic.EditReplace Find:="^l^l", Replace:="$#$#", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=0
'Sostituisco a capo "^l" con uno spazio vuoto " "
WordBasic.EditReplace Find:="^l", Replace:=" ", ReplaceAll:=1, Format:=0, Wrap:=0
'Sostituisco la stringa "$#$#" con il codice di fine paragrafo "^p"
WordBasic.EditReplace Find:="$#$#", Replace:="^p", ReplaceAll:=1, Format:=0, Wrap:=0
' il documento di testo ora, e' completamente privo di "a capo" inutili
End Sub
' ------- FINE LISTATO -------
- Salvate e chiudete l'editor Vba.
Ora non vi resta che provare. Copiate del testo da una pagina html ed incollatelo in un documento di word ....eseguite la Macro; noterete che i doppi "a capo" saranno sostituiti con un "fine paragrafo" e il singolo "a capo" sarą sostituito con uno spazio, permettendovi di personalizzare in pochi secondi la formattazione del documento (per esempio con un allineamento "giustificato").
.