Ralph scrive documenti che richiedono caratteri alfabetici specifici a sinistra di ogni paragrafo. Queste lettere dovrebbero apparire a margine, in modo simile ai numeri di riga. I caratteri sono in genere gli stessi per l’intero documento, il che significa che non cambiano da paragrafo a paragrafo. Ralph si chiede se esiste un modo per inserire automaticamente questi caratteri accanto a ogni paragrafo.

Ci sono un paio di approcci che potresti usare per ottenere questo risultato.

Innanzitutto, puoi digitare il carattere alfabetico all’inizio di ogni paragrafo e premere il tasto Tab. Quindi, formatta il paragrafo in modo che utilizzi un rientro sporgente che inserisca un po ‘la prima riga nel margine sinistro. Questo potrebbe essere fatto facilmente utilizzando stili che potrebbero essere applicati ai paragrafi.

Se hai molti paragrafi con cui vuoi farlo, può essere noioso digitare il carattere alfabetico e premere Tab per ogni paragrafo.

Fortunatamente, è facile creare una macro che possa prendersi cura del tedio per te.

Sub FmtParagraphs()

Dim p As Paragraph

For Each p In ActiveDocument.Content.Paragraphs         If p.Style = "MyAlpha" Then             With p.Range                 .InsertBefore "R" & Chr(9)

End With         End If     Next p End Sub

La macro cerca qualsiasi paragrafo nel documento che utilizza lo stile MyAlpha. (Ciò presuppone che MyAlpha “sia lo speciale stile di rientro sporgente che hai creato per effettuare questo approccio.) Quando ne trova uno, inserisce la lettera” R “davanti al paragrafo e quindi un carattere di tabulazione. Puoi facilmente modificare questa macro per controllare un nome di stile diverso o per aggiungere un carattere alfabetico diverso.

Un approccio simile consiste nel definire uno stile che utilizza un elenco puntato modificato. Invece di usare un normale punto elenco, puoi definire l’elenco per utilizzare il carattere alfabetico come punto elenco. Quando si applica lo stile ai paragrafi, il carattere alfabetico viene visualizzato automaticamente e non sarà necessario digitarlo o separarlo dal corpo principale del paragrafo.

|||| Entrambi gli approcci menzionati finora funzionano rapidamente e facilmente per documenti relativamente semplici. Tuttavia, non funzioneranno se i tuoi documenti includono elenchi numerati o puntati regolari. In tal caso, dovrai utilizzare un approccio diverso, uno che si basa sulle caselle di testo per il posizionamento del carattere alfa.

Il motivo per cui questo approccio può essere preferibile per documenti complessi è che non si basa sugli stili. Ciò significa che puoi avere un’ampia varietà di elenchi numerati e puntati nei tuoi documenti, ma avere comunque i caratteri alfabetici posizionati a sinistra di ogni paragrafo, a margine.

Inoltre, le caselle di testo possono essere formattate in modo che siano ancorate a ogni paragrafo e spostate con il paragrafo mentre Word ripagina il documento.

Ovviamente, se hai un documento che contiene 300 paragrafi, aggiungere caselle di testo a ogni paragrafo può essere noioso, per non parlare di straziante quando inizi a formattare ogni casella di testo. Ancora una volta, le macro possono aiutare ad alleviare il tedio. La seguente macro può essere utilizzata per copiare automaticamente una casella di testo selezionata in tutti gli altri paragrafi di un documento.

Sub TextBoxesInMargin()

Dim aShape As Shape     Dim aPara As Paragraph     Dim j As Long     Dim shpTop As Single     Dim shpLeft As Single     Dim aRange As Range

If ActiveDocument.Shapes.Count = 0 Then GoTo noTextbox     If Selection.ShapeRange.Count <> 1 Then GoTo noTextbox

Set aShape = Selection.ShapeRange(1)

With aShape         If .Type <> msoTextBox Then GoTo noTextbox         If aShape.RelativeVerticalPosition <> wdRelativeVerticalPositionParagraph Then             MsgBox "The text box must be positioned relative to a paragraph"

Exit Sub         End If         shpTop = .Top         shpLeft = .Left         aShape.Select         Selection.Copy     End With

For Each aPara In ActiveDocument.Paragraphs         Set aRange = aPara.Range         If Len(aRange.Text) > 1 Then ' only non blank paragraphs             aRange.Select             Selection.Paste             Selection.ShapeRange.Top = shpTop             Selection.ShapeRange.Left = shpLeft         End If     Next aPara     Exit Sub

noTextbox:

MsgBox "Text box is not selected"

End Sub

Per utilizzare la macro, formatta una singola piccola casella di testo per contenere il tuo carattere alfabetico. Assicurati che la casella di testo sia ancorata al paragrafo accanto al quale la metti e che la sua posizione sia corretta rispetto al paragrafo. Una volta che la casella di testo ha l’aspetto che desideri, selezionala e quindi esegui la macro. La casella di testo viene copiata e incollata accanto a ogni altro paragrafo del documento.

_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.

link: / wordribbon-WordTipsMacros [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 (12738) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.