George vorrebbe condensare solo lo spazio tra le parole in un testo che seleziona in un documento. Può cambiare la dimensione in punti di ogni spazio, uno alla volta. Può farlo anche trovando lo spazio e sostituendolo con uno spazio di dimensioni inferiori. Tuttavia, vorrebbe diminuire gradualmente le dimensioni degli spazi. (Ad esempio, 0,1 punti in ogni passaggio.)

Non è possibile fare esattamente ciò che George vuole perché Word consente di regolare la dimensione del carattere solo con incrementi di mezzo punto, non con incrementi di decimo punto. Se decrementare di mezzo punto alla volta va bene, l’approccio migliore è usare una macro:

Sub StepSpaceFontSize()

Dim F As Double     Dim C As Long

For C = 1 To Len(Selection)

If Asc(Mid(Selection, C, 1)) = 32 Then             F = Selection.Range.Characters(C).Font.Size             If F > 5 Then                 Selection.Range.Characters(C).Font.Size = (F - 0.5)

End If         End If     Next C End Sub

La macro passa attraverso ogni carattere nel testo selezionato e, se il carattere è uno spazio, diminuisce la dimensione in punti solo di quello spazio. La macro applica un limite inferiore alla dimensione del carattere, poiché scenderà solo a 5 punti.

_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 (13717) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.