Sahanya

Wenn man mit Dokumenten arbeitet, die Text enthalten, der nicht mit der Shift-Taste GROSS geschrieben wurde, sondern mittels Formatierung in Word (Format – Zeichen – Schrift) in Großbuchstaben umgewandelt wurde, kann es zu überraschenden bzw. ärgerlichen Ergebnissen kommen, wenn man zusätzlichen Text einfügen möchte, der nicht in Versal geschrieben sein soll.

Außerdem kann es zu Problemen kommen, wenn man diesen Text in eine andere Anwendung exportieren oder kopieren möchte, wenn unterwegs die Formatierung verloren geht.

Das folgende Makro wandelt alle Absätze deren Text die Formatierung Großbuchstaben enthält in „richtige” Großbuchstaben um:

Sub VersalKonvertieren
Dim oPar As Paragraph
     For Each oPar In ActiveDocument.Paragraphs
        If (Len(oPar.Range.Text) > 1) And _
        (oPar.Range.Font.AllCaps = True) Then
        oPar.Range.Case = wdUpperCase
        End If
     Next oPar
End Sub

Handelt es sich um Text, der nicht als Großbuchstabe sondern als Kapitälchen formatiert wurde, muss man „AllCaps” mit „SmallCaps” ersetzen.