WD2002: Symbolzeichen werden in Zeichen geändert.

Ein Microsoft Word 2000-Version dieses Artikels finden Sie unter 212396 .


Microsoft Word 98 Macintosh Edition-Version dieses Artikels finden Sie unter 184634 .


Microsoft Word 97-Version dieses Artikels finden Sie unter 160022 .

Problembeschreibung

Beim Formatieren von Text in einer Symbolschriftart wie Wingdings und ändern Sie in einer nicht-Symbol-Schriftart wie Times New Roman, wird der Text in Microsoft Word mit Zeichen ersetzt.

Ursache

Nach die Symbol-Schriftart in entsprechende Unicode übersetzt-Feldzeichen im angezeigt. Dieses Verhalten tritt deshalb die folgenden Schritte in der angegebenen Reihenfolge durchgeführt werden:
  1. Der Text ist mit einer Symbol-Schriftart wie Wingdings formatiert.
  2. Die Datei wird gespeichert.
  3. Der Text ist mit einer nicht-Symbol-Schriftart Times New Roman formatiert.

PROBLEMUMGEHUNG

Microsoft bietet Programmierbeispiele zur Veranschaulichung, ohne ausdrücklich oder konkludent, einschließlich, aber nicht beschränkt auf die gesetzlichen Garantien der Handelsüblichkeit und/oder Eignung für einen bestimmten Zweck. Dieser Artikel geht davon aus, dass Sie mit der Programmiersprache, die verwendet wird, den Mechanismen und Debuggingprozeduren vertraut sind Exemplarisch die Funktionen einer bestimmten Prozedur, aber ändern sie nicht diese Beispiele Funktionalität Verfahren für Ihre Bedürfnisse erstellen.
Wenn Sie über begrenzte Programmierungskenntnisse verfügen, sollten Sie einen Microsoft Certified Partner oder Microsoft Advisory Services kontaktieren. Weitere Informationen finden Sie auf dieser Microsoft-Websites:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice

Weitere Informationen zu verfügbaren Supportoptionen und zur Kontaktaufnahme mit Microsoft finden Sie auf der folgenden Microsoft-Website: http://support.Microsoft.com/default.aspx?scid=fh;de; EN-US; CNTACTMSWeitere Informationen finden Sie der Microsoft Knowledge Base:

290140 OFFXP: wie Ausführen des Beispielcodes aus Knowledge Base-Artikeln
Die folgenden Microsoft Visual Basic for Applications (VBA)-Makro konvertiert Symbolzeichen-Symbol Zeichen.


Hinweis: Bevor Sie dieses Makro ausführen, wählen Sie Zeichen.
Sub ConvertSymbol()
Dim dlg As Object
Dim NoFC As Integer
Dim SCP As Integer
Dim StartRange As Range
Dim UniCodeNum As Integer

' Temporarily disable Screen Updating
Application.ScreenUpdating = False

' Temporarily disable Smart Cut & Paste
If Options.SmartCutPaste = True Then
SCP = 1
Options.SmartCutPaste = False
End If

' Temporarily display field text
If ActiveWindow.View.ShowFieldCodes = False Then
NoFC = 1
ActiveWindow.View.ShowFieldCodes = True
End If

' Set StartRange variable to current selection's range
Set StartRange = Selection.Range
Selection.Collapse

' Select first, then each next character in user-defined selection
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
While Selection.End <= StartRange.End And _
ActiveDocument.Content.End > Selection.End

' If the character is a space, then move to next character
Set dlg = Dialogs(wdDialogInsertSymbol)
UniCodeNum = dlg.charnum

If UniCodeNum = 32 Then
Selection.Collapse
Selection.MoveRight unit:=wdCharacter, Extend:=wdMove
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
End If

' Loop, converting symbol Unicode characters to ASCII characters
Set dlg = Dialogs(wdDialogInsertSymbol)
UniCodeNum = dlg.charnum

While UniCodeNum < 0 And Selection.End <= StartRange.End _
And ActiveDocument.Content.End > Selection.End
Selection.Delete
Selection.InsertAfter (ChrW(UniCodeNum + 4096))
Selection.Collapse (wdCollapseEnd)
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
Set dlg = Dialogs(wdDialogInsertSymbol)
UniCodeNum = dlg.charnum
Wend

Selection.Collapse (wdCollapseEnd)
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
Wend

' Reset Word document settings
If SCP = 1 Then Options.SmartCutPaste = True
If NoFC = 1 Then ActiveWindow.View.ShowFieldCodes = False
Selection.Collapse (wdCollapseStart)
Selection.MoveLeft unit:=wdCharacter
Application.ScreenUpdating = True

End Sub

Hinweis: Nachdem Sie das Makro ausführen und Text in nicht-Symbol-Zeichen konvertiert, müssen den Text in die richtige Schriftart formatieren.

Weitere Informationen

Die folgende Tabelle enthält allgemeine Symbol und nicht-Symbol-Schriftarten:


Unicode

Unicode ist eine 16-Bit-Zeichensatz entwickelt, um alle wichtigen lebende Sprachen, neben wissenschaftliche Symbole und tote Sprachen wissenschaftlichen Interesse. Beseitigt die Komplexität von Multi-Byte-Zeichensätze, die asiatische Sprachen unterstützen derzeit unter UNIX und Microsoft Windows verwendet werden. Ein Konsortium von Unternehmen wie Apple, Microsoft, Hewlett-Packard (HP), Digital und IBM erstellt Unicode. Diese Unternehmen verwendet Informationen aus dem Standard ISO 10646 einen 1993. Unicode ist die Grundlage für das Betriebssystem Microsoft Windows NT.


Unicode ist eine 16-Bit-Zeichensatz, in dem alle Zeichen denselben Platz einnehmen. Die ersten 256 Werte entsprechen der ISO-Latin-Zeichensatz ist auch die Grundlage für den ANSI-Zeichensatz in Microsoft Windows 3.1 und Microsoft Windows 95 verwendet. Unicode definiert 34,168 unterschiedliche codierte Zeichen. In den meisten Zeichensätze wird ein einzelner Wert häufig mehrere Zeichen zugewiesen. In ASCII ein "-" Zeichen ein Bindestrich, ein Minuszeichen, einem Bindestrich und einen geschützten Trennstrich verwendet. In Unicode erhält jede Bedeutung eigene; die wird ein Bindestrich durch ein Zeichen von einem Minuszeichen usw. dargestellt. Der Unicode-Standard enthält nur eine Instanz jedes Zeichens und weist ihr einen eindeutigen Namen und Wert. Darüber hinaus unterstützt Kombination von Zeichen mit Akzenten, die Basiszeichens folgen, die sie ändern.


Weitere Informationen über Unicode finden Sie auf der Unicode-Website unter folgender Adresse:
Eigenschaften

Artikelnummer: 290978 – Letzte Überarbeitung: 20.01.2017 – Revision: 1

Feedback