Lorraine lavora spesso con le trascrizioni delle interviste. Gli intervistatori chiederanno agli intervistati di precisare i loro nomi. Quando li digita, deve inserire dei trattini tra le lettere per mostrare che sono stati scritti, come in J-O-H-N D-O-E. Lorraine si chiede se esiste un modo per selezionare il nome e quindi eseguire una macro per rendere il nome in maiuscolo e inserire i trattini richiesti tra le lettere.

Le macro sono molto adatte per eseguire questo tipo di elaborazione del testo. In effetti, ci sono probabilmente una dozzina di modi in cui potresti affrontare il problema nella tua macro. Il seguente è un modo piuttosto semplice per farlo:

Sub CapDashNames()

Dim sTemp As String     Dim sName As String     Dim J As Integer

sTemp = UCase(Selection.Range.Text)   ' Make all uppercase     If Len(sTemp) > 1 Then         sName = ""

For J = 1 To Len(sTemp) - 1             ' Add new character to name             sName = sName & Mid(sTemp, J, 1)

If Mid(sTemp, J, 1) >= "A" And Mid(sTemp, J, 1) <= "Z" Then                 ' Add a dash if character was a letter                 sName = sName & "-"

Else                 ' Character added was not a letter                 If Mid(sName, Len(sName) - 1, 1) = "-" Then                     ' If there is a dash just before non-letter,                     ' get rid of it                     sName = Left(sName, Len(sName) - 2)

sName = sName & Mid(sTemp, J, 1)

End If             End If         Next J         ' Add final character         sName = sName & Right(sTemp, 1)

Selection = sName     End If End Sub

Fondamentalmente, la macro passa attraverso qualsiasi cosa tu abbia selezionato e aggiunge un trattino dopo ogni carattere alfabetico. Se il trattino è seguito da un carattere non alfabetico, il trattino viene rimosso. (In questo modo, ad esempio, non si finisce con un trattino prima o dopo uno spazio.)

Per utilizzare la macro, seleziona semplicemente il nome che desideri modificare, quindi esegui la macro.

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