Lorraine travaille souvent avec des transcriptions d’entretiens. Les intervieweurs demanderont aux interviewés d’épeler leurs noms. Lorsqu’elle les tape, elle doit insérer des tirets entre les lettres pour montrer qu’elles sont épelées, comme dans J-O-H-N D-O-E. Lorraine se demande s’il existe un moyen de sélectionner le nom, puis d’exécuter une macro pour mettre en majuscule le nom et insérer les tirets requis entre les lettres.

Les macros sont très bien adaptées pour effectuer ce type de traitement de texte. En fait, il existe probablement une douzaine de façons d’aborder le problème dans votre macro. Voici une façon assez simple de le faire:

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

Fondamentalement, la macro parcourt tout ce que vous avez sélectionné et ajoute un tiret après chaque caractère alphabétique. Si ce tiret est ensuite suivi d’un caractère non alphabétique, le tiret est supprimé. (De cette façon, vous ne vous retrouvez pas, par exemple, avec un tiret avant ou après un espace.)

Pour utiliser la macro, sélectionnez simplement le nom que vous souhaitez modifier, puis exécutez la macro.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1354) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.