Nella navigazione su Internet è facile trovare molti testi interessanti, che si vorrebbero recuperare per un possibile impiego futuro. Una volta copiato il documento, se lo si inserisce in Word, spesso compaiono numerosi rinvii a capo inutili e indesiderati, che compromettono l’estetica del documento.

Invece di eliminare faticosamente a mano i singoli caratteri di a capo, si può usare una piccola macro. Tramite Strumenti/Macro/Macro (oppure Alt+ F8) si apre una finestra in cui si fornisce un nome per la macro (per esempio Testoscaricato) e poi si fa clic su Crea. Nell’editor Vba si immette ora il seguente codice

Public Sub Testoscaricato()
WordBasic.StartDocument
WordBasic.EditReplace  Find:=”^l^l”, Replace:=”$#$#”, Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=0
WordBasic.EditReplace Find:=”^l”, Replace:=” “, ReplaceAll:=1,  Format:=0, Wrap:=0
WordBasic.EditReplace  Find:=”$#$#”, Replace:=”^p“,  ReplaceAll:=1, Format:=0, Wrap:=0
End Sub

Questa macro ricerca i veri paragrafi in base ai codici di controllo “^l^l”, che provocano due a capo. La prima istruzione sostituisce questi caratteri con altrettanti arbitrari (per esempio, ”$#$#”), che sicuramente non compaiono nel testo

La successiva istruzione sostituisce questi ultimi con uno spazio vuoto: in tal modo si evita che parole contigue dopo l’eliminazione del carattere a capo risultino attaccate l’una all’altra. Per finire, la stringa ”$#$#” viene sostituita dai codici di fine paragrafo semplici.