Lorraine arbeitet oft mit Abschriften von Interviews. Die Interviewer werden die Befragten bitten, ihre Namen zu formulieren. Wenn sie diese eingibt, muss sie Bindestriche zwischen die Buchstaben einfügen, um anzuzeigen, dass sie geschrieben werden, wie in J-O-H-N D-O-E. Lorraine fragt sich, ob es eine Möglichkeit gibt, den Namen auszuwählen und dann ein Makro auszuführen, um den Namen groß zu schreiben und die erforderlichen Striche zwischen die Buchstaben einzufügen.

Makros eignen sich sehr gut für diese Art der Textverarbeitung. In der Tat gibt es wahrscheinlich ein Dutzend Möglichkeiten, wie Sie das Problem in Ihrem Makro angehen können. Das Folgende ist ein ziemlich einfacher Weg, dies zu tun:

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

Grundsätzlich durchläuft das Makro alles, was Sie ausgewählt haben, und fügt nach jedem alphabetischen Zeichen einen Bindestrich hinzu. Wenn auf diesen Bindestrich ein nicht alphabetisches Zeichen folgt, wird der Bindestrich entfernt. (Auf diese Weise erhalten Sie beispielsweise keinen Bindestrich vor oder nach einem Leerzeichen.)

Um das Makro zu verwenden, wählen Sie einfach den Namen aus, den Sie ändern möchten, und führen Sie das Makro aus.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (1354) gilt für Microsoft Word 2007, 2010, 2013 und 2016.