Non è raro dover formattare file di testo in Word. Ad esempio, potresti ricevere un messaggio di posta elettronica da qualcuno che necessita di formattazione oppure potresti ricevere un file ASCII da un amico. La necessità più comune nella formattazione di un file di questo tipo è rimuovere spazi o tabulazioni extra dall’inizio di una riga, spazi o tabulazioni extra dalla fine di una riga, rimuovere i caratteri di “risposta” dall’inizio di ogni riga e combinare le righe in fare paragrafi.

Fare tutto questo a mano è un lavoro che richiede tempo e può facilmente farti impazzire, soprattutto se il file è molto grande. La seguente macro dovrebbe renderti più facile. Compie tutti i compiti appena raccontati e li esegue molto rapidamente.

Sub DoASCII()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "^p^w"

.Replacement.Text = "^p"

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll     For J = 1 To 4         Selection.Find.Text = "^p> "

Selection.Find.Execute Replace:=wdReplaceAll     Next J     Selection.Find.Text = "^p^w"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^w^p"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p^p"

Selection.Find.Replacement.Text = "[{}]"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p"

Selection.Find.Replacement.Text = " "

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "[{}]"

Selection.Find.Replacement.Text = "^p"

Selection.Find.Execute Replace:=wdReplaceAll End Sub

Notare che questa macro sostituirà fino a quattro livelli di “>”

caratteri inseriti all’inizio di una riga. Presuppone inoltre che l’unico punto in cui desideri le interruzioni di paragrafo siano quei punti in cui esiste una riga vuota.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (10895) si applica a Microsoft Word 2007, 2010 e 2013.

Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Word qui:

Formatting Text Files with VBA.