In alcuni casi, quando si lavora con un documento, è necessario rimuovere i segni di paragrafo aggiuntivi. Ciò è particolarmente vero se si lavora con un file ASCII o un file che potrebbe essere stato originariamente formattato con un altro elaboratore di testi. Questo processo di rimozione manuale dei segni di paragrafo aggiuntivi può richiedere molto tempo.

Se ti trovi in ​​questa situazione, potresti trovare questa macro di interesse. Rimuove i segni di paragrafo extra da un documento. Al termine, non dovrebbero esserci nemmeno due segni di paragrafo in una riga nel documento.

Sub ReplacePara()

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

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeBackspace         Selection.MoveLeft Unit:=wdCharacter, Count:=2         Selection.Find.Execute     Wend End Sub

Ci sono due parti in questa macro. La prima parte, che si basa sul metodo Selection.Find, utilizza le funzionalità di ricerca e sostituzione incorporate di Word per trovare tutte le istanze di due segni di paragrafo in sequenza. La macro non sostituisce i segni di paragrafo sequenziali; semplicemente li trova.

Quindi viene avviata la seconda parte della macro, utilizzando la proprietà Selection.Find.Found, per eliminare il secondo dei due segni di paragrafo sequenziali.

Il motivo per cui si utilizza questo approccio è perché lascia la formattazione corretta sul segno di paragrafo rimanente. Ad esempio, se i due segni di paragrafo sequenziali utilizzano una formattazione diversa l’uno dall’altro, la formattazione del primo segno di paragrafo rimane invariata. Se hai semplicemente sostituito i segni di paragrafo sequenziali con un singolo segno di paragrafo, è possibile che tu non abbia la formattazione esattamente come desideri quando la sostituzione è terminata.

Notare che Selection.Find.Found viene utilizzato come “flag” per il ciclo While.

Questa proprietà riflette lo stato dell’ultima operazione di ricerca. Se True, la ricerca è riuscita; se False, non è stato trovato nulla (e, quindi, nulla da cambiare).

_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 (998) si applica a Microsoft Word 2007, 2010, 2013 e 2016.