Application.CleanString-Methode (Word)
Entfernt nicht druckbare Zeichen (Zeichencodes 1–29) und spezielle Word Zeichen aus der angegebenen Zeichenfolge oder ändert sie in Leerzeichen (Zeichencode 32). Gibt das Ergebnis als String zurück.
Syntax
Ausdruck.
CleanString( _String_ )
expression Eine Variable, die ein Application-Objekt darstellt. Optional.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| String | Erforderlich | String | Die Quellzeichenfolge. |
Hinweise
Die folgenden Zeichen werden entsprechend der Beschreibung in der Tabelle umgewandelt.
| Zeichencode | Beschreibung |
|---|---|
| 7 (Warnton) | Wird, sofern nicht das Zeichen 13 (Absatz) voransteht, entfernt und anschließend in Zeichen 9 (Tabulator) umgewandelt. |
| 10 (Zeilenvorschub) | Wird, sofern nicht das Zeichen 13 voransteht, in Zeichen 13 (Absatz) umgewandelt und anschließend entfernt. |
| 13 (Absatz) | Unverändert. |
| 31 (bedingter Trennstrich) | Entfernt. |
| 160 (geschütztes Leerzeichen) | In Zeichen 32 (Leerzeichen) konvertiert. |
| 172 (bedingter Trennstrich) | Entfernt. |
| 176 (geschütztes Leerzeichen) | In Zeichen 32 (Leerzeichen) konvertiert. |
| 182 (Absatzmarke) | Entfernt. |
| 183 (Aufzählungszeichen) | In Zeichen 32 (Leerzeichen) konvertiert. |
Beispiel
In diesem Beispiel werden nicht druckbare Zeichen aus dem markierten Text entfernt, und das Ergebnis wird in ein neues Dokument eingefügt.
Dim strClean As String
Dim docNew As Document
strClean = Application.CleanString(Selection.Text)
Set docNew = Documents.Add
docNew.Content.InsertAfter strClean
In diesem Beispiel werden nicht druckbare Zeichen aus der markierten Feldfunktion entfernt, und das Ergebnis wird angezeigt.
ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
ActiveDocument.Fields(1).Select
MsgBox Application.CleanString(Selection.Text)
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.