Global.CleanString-Methode (Word)
Entfernt nicht druckbare Zeichen (Zeichencodes 1–29) und Word-Sonderzeichen aus der angegebenen Zeichenfolge oder ändert sie in Leerzeichen (Zeichencode 32), wie im Abschnitt "Hinweise" beschrieben. Gibt das Ergebnis als String zurück.
Syntax
Ausdruck. CleanString
( _String_
)
Ausdruck Eine Variable, die ein Global-Objekt darstellt. Optional.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
String | Erforderlich | String | Die Quellzeichenfolge. |
HinwBemerkungeneise
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für