Textboxbereinigung von hochgestellten Zeichen

[Nora Fernandez]

Einen schönen guten Abend liebes Forum.

In meiner Textbox befinden sich hochgestellte Zeichen. Das können Zahlen oder Buchstaben
sein. Auch können diese Zahlen und Buchstaben von Klammern umgeben sein.
Kurzum, Zeichen wie man sie von Fußnoten und Verweisen her kennt.

Diese hochgestellen Zeichen möchte ich per Knopfdruck durch VBA löschen.
Wie mache ich das?

Für eure Mühe schon mal vorab vielen Dank.

Nora

[RPP63]

Hallo Nora!
Handelt es sich um ein Textfeld oder eine TextBox?
ActiveX oder Formularsteuerelemente?

Eine Beispieldatei könnte Licht ins Dunkle bringen.

Gruß Ralf

[Nora Fernandez]

Hallo Ralf,
es handelt sich um eine Textbox.

[RPP63]

Hi!
Ich kann in einer TextBox keine einzelnen Buchstaben hochstellen.
Mit Ziffern geht das über den erweiterten Zeichensatz (Unicode), wäre aber eine ganz andere Baustelle.
Deshalb bat ich Dich um eine Beipieldatei.

Gruß Ralf

[RPP63]

Mal als Ansatz für ein Textfeld:

Sub Quatsch()
Dim i As Long
With Tabelle1.Shapes.Range("Textbox 1").TextFrame2.TextRange
   For i = .Characters.Count To 1 Step -1
      If .Characters(i, 1).Font.BaselineOffset <> 0 Then
         .Characters(i, 1).Delete
      End If
   Next
End With
End Sub

Gruß Ralf