Attribute VB_Name = "Symbol_Wingdings_in_Unicode" ' Attribute VB_Name = "Symbol_Wingdings_entfernen" ' Makro Modul zum Entfernen von Symbol und Wingdings für Word 2000 und höher. ' Dipl.-Ing. H. Chris Gast, Berlin (c) 2010/2011 ' http://www.siebener-kurier.de/chris-aufsaetze/Symbol+Wingdings_in_Unicode.txt ' Option Explicit ' "Option Explicit" erzeugt Fehlermeldung, wenn beim Programmieren Dim-Befehle vergessen wurden. Sub Symbol_und_Wingdings_in_Unicode_Rahmenprozedur() ' Erstellt von H. Chris Gast, April 2011, Stand 1. September 2011. ' Das vorübergehende Abschalten der Bildschirm-Aktalisierung beschleunigtdas Makro. ' Die Rückkehr an die ursprüngliche Cursorstelle funktioniert nur in der Hauptkomponente. Dim Rng0 As Range Dim rng1 As Range ' ******** ' Zeitmessen für die Makromodul-Dauer Dim Zeit1, Zeit2, Zeitdauer Zeit1 = Timer ' ********* ' Zuerst die vorhandene Bildschirmansicht speichern und ggf. Bildschirm auf "Normalansicht" stellen: Dim Ansichtstyp1 As Integer Ansichtstyp1 = (ActiveWindow.View.Type) If ActiveWindow.View.Type = wdNormalView = False Then ActiveWindow.View.Type = wdNormalView End If ' Bildschirmaktualisierung während des Programms abstellen. Application.ScreenUpdating = False Options.Pagination = False ' Ursprüngliche Markierung merken: Set Rng0 = Selection.Range ' ********************************************************** ' zuerst alle_Markierfarben beseitigen im Hauptteil, in Fußnoten und in Kopfzeilen usw. For Each rng1 In ActiveDocument.StoryRanges rng1.HighlightColorIndex = wdNoHighlight rng1.Font.Shading.BackgroundPatternColor = wdColorAutomatic rng1.Font.Color = wdColorAutomatic Next rng1 ' ********************************************************** ' Die eigentlich Prozedur aufrufen: ' ********************************************************** StatusBar = " Bitte warten - das Makro läuft." Symbol_und_Wingdings_in_Unicode_umwandeln_gründlich ' ********************************************************** ' Markierfarbe wieder zurückstellen: Options.DefaultHighlightColorIndex = wdYellow ' Alte Markierung wieder herstellen: Rng0.Select ' Ansichtstyp zurückstellen, Seitenumbrüche und Bildschirm wieder anzeigen: ActiveWindow.View.Type = Ansichtstyp1 Options.Pagination = True Application.ScreenUpdating = True ' Alte Markierung wieder herstellen: Rng0.Select ' ************************************ ' Im Suchen/Ersetzen-Menü alles zurückstellen Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ' ************************************** ' Zeitmessen für die Makromodul-Dauer mit drei Nachkommastellen: Zeit2 = Timer Zeitdauer = Format((Zeit2 - Zeit1), "##,##0.000") MsgBox "Die ersetzten Zeichen wurden gelb, die nicht ersetzten Sonderzeichen rot markiert." _ & vbCrLf & "Die Rechenzeit betrug " & Zeitdauer & " Sekunden." End Sub ' ----------------------------------------------------------------------------------------------- Sub Symbol_und_Wingdings_in_Unicode_umwandeln_gründlich() Attribute Symbol_und_Wingdings_in_Unicode_umwandeln_gründlich.VB_Description = "Makro erstellt am 18.08.2011 von Dipl.-Ing. Hanna-Chris Gast" Attribute Symbol_und_Wingdings_in_Unicode_umwandeln_gründlich.VB_ProcData.VB_Invoke_Func = "Normal.Symbol_Wingdings_entfernen.Symbol_und_Wingdings_in_Unicode_umwandeln_gründlich" ' Erstellt von Dipl.-Ing. Hanna-Chris Gast, ursprünglich am 24. Februar 2009. ' Völlig neu erstellt 9. April 2011, Stand 9. November 2011. ' Funktioniert von Word 2000 bis Word 2010. ' Ersetzt gründlich alle Symbolzeichen und die Wingdingszeichen, soweit möglich. ' Die ersetzen Zeichen werden gelb markiert, die nicht-ersetzten Sonderzeichen werden rot markiert. ' Erfasst auch Fälle von Word-Dokumenten, wo das bisherige Makro von 2009 versagte. ' Dim para As Paragraph Dim chara As Variant Dim i As Integer Dim rng1 As Range Dim fs As String Dim ys As Long Dim Dateiende As Boolean ' ' Vorab in allen Dokument-Komponenten Schriftart "SymbolPS" durch "Symbol" ersetzen ' (dies ist für Computer ohne diese Schriftart nützlich): For Each rng1 In ActiveDocument.StoryRanges rng1.Find.ClearFormatting rng1.Find.Replacement.ClearFormatting rng1.Find.Font.NameAscii = "SymbolPS" rng1.Find.Replacement.Font.Name = "Symbol" With rng1.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True ' Wichtig! .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With rng1.Find.Execute Replace:=wdReplaceAll Next rng1 ' ************ StatusBar = " Bitte warten - das Makro läuft." ' ************* ' Jedes Zeichen des ganzen Dokuments wird mit "Einfügen-Symbol" danach abgefragt, ' ob es ein Windows-Sonderzeichen ist: i = 0 ' Die eigentliche Suche: For Each rng1 In ActiveDocument.StoryRanges For Each chara In rng1.Characters ''''''''''''''''''''''''''''''''''''''' If chara.Text = "(" Or chara.Text Like "[" & ChrW(61472) & "-" & ChrW(61695) & "]" Then chara.Select With Dialogs(wdDialogInsertSymbol) fs = .Font ys = .CharNum End With ' If fs <> "(normaler Text)" And fs <> "" _ Or ys < 0 And chara.Text = "(" Then ys = (ys + 4096 + 61440) If fs = "Symbol" Or fs = "SymbolPS" Then Call Symbol_U(ys) ElseIf fs = "Wingdings" Then Call Wingdings_U(ys) Else '' chara.Font.Color = wdColorRed Selection.Range.HighlightColorIndex = wdRed End If End If End If Next chara ' ************************** ' kombinierte Zeichen suchen und rot markieren, wenn es Windows-Sonderschriftarten sind ' (diese zusätzliche Abfrage ist nur ab Word 2003 nötig): ' ************************** '' Selection.HomeKey Unit:=wdStory rng1.Select Selection.Collapse Do Until Dateiende Selection.Find.ClearFormatting With Selection.Find .ClearFormatting .Text = "?[" & ChrW(768) & "-" & ChrW(879) & "]" .Forward = True '' .Wrap = wdFindContinue ' Der Wrap-Befehl muss deaktiviert sein, sonst gibt es Endlosschleife!!! .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute ' If Selection.Find.Found = True Then If Dialogs(wdDialogInsertSymbol).Font <> "(normaler Text)" Then '' Selection.Font.Shading.BackgroundPatternColor = wdColorRed '' Selection.Font.Color = wdColorRed Selection.Range.HighlightColorIndex = wdRed End If Else Exit Do End If Loop ' und nun Windows-Sonderzeichen mit 2 diakritischen Zeichen (für Word 2003 aufwärts): '' Selection.HomeKey Unit:=wdStory rng1.Select Selection.Collapse Do Until Dateiende Selection.Find.ClearFormatting With Selection.Find .ClearFormatting .Text = "?[" & ChrW(768) & "-" & ChrW(879) & "][" & ChrW(768) & "-" & ChrW(879) & "]" .Forward = True '' .Wrap = wdFindContinue ' Der Wrap-Befehl muss deaktiviert sein, sonst gibt es Endlosschleife!!! .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute ' If Selection.Find.Found = True Then If Dialogs(wdDialogInsertSymbol).Font <> "(normaler Text)" Then '' Selection.Font.Shading.BackgroundPatternColor = wdColorRed '' Selection.Font.Color = wdColorRed Selection.Range.HighlightColorIndex = wdRed End If Else Exit Do End If Loop ' ******************* ' Restliche Zeichen in der Private-Use-Area rot markieren: Options.DefaultHighlightColorIndex = wdRed Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[" & ChrW(61472) & "-" & ChrW(61695) & "]" .Replacement.Text = "" .Replacement.Highlight = True .Forward = True .MatchWildcards = True .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ******** Next rng1 ' In Hauptkomponente zurückkehren: ActiveDocument.StoryRanges(wdMainTextStory).Select If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.View.Type = wdPrintView End If End Sub ' -------------------------------------------------------------------- Private Sub Symbol_U(ys) ' Erstellt von H. Chris Gast, 10. April 2011 ' Mit dieser Unterprozedur werden Symbol-Zeichen entsprechende Unicodezeichen zugewiesen. Select Case ys Case Is = "61472" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(160) ' Festes Leerzeichen Case Is = "61473" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(33) Case Is = "61474" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8704) Case Is = "61475" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(35) Case Is = "61476" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8707) Case Is = "61477" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(37) Case Is = "61478" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(38) Case Is = "61479" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8715) Case Is = "61480" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(40) Case Is = "61481" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(41) Case Is = "61482" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8727) Case Is = "61483" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(43) Case Is = "61484" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(44) Case Is = "61485" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8722) Case Is = "61486" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(46) Case Is = "61487" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(47) Case Is = "61488" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(48) Case Is = "61489" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(49) Case Is = "61490" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(50) Case Is = "61491" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(51) Case Is = "61492" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(52) Case Is = "61493" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(53) Case Is = "61494" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(54) Case Is = "61495" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(55) Case Is = "61496" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(56) Case Is = "61497" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(57) Case Is = "61498" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(58) Case Is = "61499" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(59) Case Is = "61500" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(60) Case Is = "61501" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(61) Case Is = "61502" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(62) Case Is = "61503" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(63) Case Is = "61504" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8773) Case Is = "61505" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(913) ' Großes Alpha Case Is = "61506" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(914) Case Is = "61507" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(935) Case Is = "61508" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8710) Case Is = "61509" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(917) Case Is = "61510" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(934) Case Is = "61511" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(915) Case Is = "61512" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(919) Case Is = "61513" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(921) Case Is = "61514" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(977) Case Is = "61515" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(922) Case Is = "61516" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(923) Case Is = "61517" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(924) Case Is = "61518" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(925) Case Is = "61519" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(927) Case Is = "61520" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(928) Case Is = "61521" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(920) Case Is = "61522" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(929) Case Is = "61523" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(931) Case Is = "61524" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(932) Case Is = "61525" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(933) Case Is = "61526" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(962) Case Is = "61527" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8486) ' Ohmzeichen Case Is = "61528" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(926) Case Is = "61529" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(936) Case Is = "61530" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(918) Case Is = "61531" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(91) Case Is = "61532" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8756) Case Is = "61533" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(93) Case Is = "61534" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8869) Case Is = "61535" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(95) '' Case Is = "61536" '' Selection.Font.Name = "Lucida Sans Unicode" '' Selection.Range.HighlightColorIndex = wdYellow '' Selection.TypeText Text:=ChrW(773) ' Kombinierender Überstrich. Case Is = "61536" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(175) ' einfaches Makron ' dabei muss allerdings nachträglich die Buchstabenabstände verringern Case Is = "61537" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(945) ' Kleines Alpha Case Is = "61538" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(946) Case Is = "61539" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(967) Case Is = "61540" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(948) Case Is = "61541" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(949) Case Is = "61542" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(981) ' "Phi-Symbol" Case Is = "61543" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(947) Case Is = "61544" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(951) Case Is = "61545" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(953) Case Is = "61546" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(966) ' echtes "kleines Phi" Case Is = "61547" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(954) Case Is = "61548" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(955) Case Is = "61549" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(181) ' Mikro-Zeichen Case Is = "61550" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(957) Case Is = "61551" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(959) Case Is = "61552" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(960) Case Is = "61553" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(952) Case Is = "61554" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(961) Case Is = "61555" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(963) Case Is = "61556" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(964) Case Is = "61557" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(965) Case Is = "61558" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(982) Case Is = "61559" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(969) Case Is = "61560" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(958) Case Is = "61561" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(968) Case Is = "61562" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(950) Case Is = "61563" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(123) Case Is = "61564" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(124) Case Is = "61565" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(125) Case Is = "61566" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8764) Case Is = "61600" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8364) Case Is = "61601" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(978) Case Is = "61602" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8242) Case Is = "61603" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8804) Case Is = "61604" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8260) Case Is = "61605" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8734) Case Is = "61606" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(402) Case Is = "61607" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9827) Case Is = "61608" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9830) Case Is = "61609" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9829) Case Is = "61610" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9824) Case Is = "61611" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8596) Case Is = "61612" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8592) Case Is = "61613" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8593) Case Is = "61614" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8594) Case Is = "61615" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8595) Case Is = "61616" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(176) Case Is = "61617" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(177) Case Is = "61618" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8243) Case Is = "61619" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8805) Case Is = "61620" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(215) Case Is = "61621" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8733) Case Is = "61622" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8706) Case Is = "61623" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8226) Case Is = "61624" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(247) Case Is = "61625" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8800) Case Is = "61626" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8801) Case Is = "61627" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8776) Case Is = "61628" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8230) Case Is = "61629" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(124) ' Senkrechter Strich Case Is = "61630" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8212) ' Geviertstrich Case Is = "61631" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8629) Case Is = "61632" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8501) Case Is = "61633" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8465) Case Is = "61634" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8476) Case Is = "61635" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8472) Case Is = "61636" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8855) Case Is = "61637" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8853) Case Is = "61638" Selection.Font.Name = "Lucida Sans Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8709) Case Is = "61639" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8745) Case Is = "61640" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8746) Case Is = "61641" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8835) Case Is = "61642" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8839) Case Is = "61643" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8836) Case Is = "61644" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8834) Case Is = "61645" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8838) Case Is = "61646" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8712) Case Is = "61647" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8713) Case Is = "61648" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8736) Case Is = "61649" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8711) Case Is = "61650" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(174) Case Is = "61651" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(169) Case Is = "61652" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8482) Case Is = "61653" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8719) Case Is = "61654" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8730) Case Is = "61655" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8901) Case Is = "61656" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(172) Case Is = "61657" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8743) Case Is = "61658" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8744) Case Is = "61659" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8660) Case Is = "61660" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8656) Case Is = "61661" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8657) Case Is = "61662" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8658) Case Is = "61663" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8659) Case Is = "61664" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9674) Case Is = "61665" Selection.Font.Name = "Arial Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9001) ' Auch Cardo möglich Case Is = "61666" Selection.Font.Name = "Arial" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(174) Case Is = "61667" Selection.Font.Name = "Arial" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(169) Case Is = "61668" Selection.Font.Name = "Arial" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8482) Case Is = "61669" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8721) Case Is = "61670" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9115) Case Is = "61671" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9116) Case Is = "61672" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9117) Case Is = "61673" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9121) Case Is = "61674" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9122) Case Is = "61675" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9123) Case Is = "61676" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9127) Case Is = "61677" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9128) Case Is = "61678" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9129) Case Is = "61679" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9130) Case Is = "61681" Selection.Font.Name = "Arial Unicode" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9002) ' Auch Cardo möglich Case Is = "61682" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8747) Case Is = "61683" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8992) Case Is = "61684" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9134) Case Is = "61685" Selection.Font.Name = "TIMES NEW ROMAN" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8993) Case Is = "61686" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9118) Case Is = "61687" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9119) Case Is = "61688" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9120) Case Is = "61689" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9124) Case Is = "61690" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9125) Case Is = "61691" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9126) Case Is = "61692" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9131) Case Is = "61693" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9132) Case Is = "61694" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9133) Case Else '' Selection.Font.Color = wdColorRed Selection.Range.HighlightColorIndex = wdRed End Select End Sub ' ************************************************************************* Private Sub Wingdings_U(ys) ' Erstellt von H. Chris Gast, 10. April 2011, Stand 5. März 2012. ' Mit dieser Unterprozedur werden Wingdingszeichen durch Unicodezeichen ersetzt. ' Bei Wingdings gibt es nicht für alle Zeichen einen Unicode-Ersatz:" ' Select Case ys ' Wingdingszeichen die durch Zeichen Schriftart "Times New Roman" ersetzbar sind:" Case Is = "61472" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(32) ' Leerzeichen Case Is = "61514" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9786) Case Is = "61522" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9788) Case Is = "61546" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(38) Case Is = "61547" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(38) Case Is = "61548" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9679) Case Is = "61550" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9632) Case Is = "61551" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9633) Case Is = "61598" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(183) Case Is = "61599" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8226) Case Is = "61600" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9642) Case Is = "61601" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9675) Case Is = "61607" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9642) Case Is = "61690" Selection.Font.Name = "Times New Roman" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9643) ' ' Wingdingszeichen die durch Zeichen der Schriftart "DejaVu Serif" ersetzbar sind:" Case Is = "61495" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9000) Case Is = "61516" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9785) Case Is = "61533" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9784) Case Is = "61556" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10731) Case Is = "61557" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9670) Case Is = "61562" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8984) Case Is = "61567" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9647) Case Is = "61604" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9673) Case Is = "61605" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9678) Case Is = "61608" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9723) Case Is = "61619" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8977) Case Is = "61679" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8678) Case Is = "61680" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8680) Case Is = "61681" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8679) Case Is = "61682" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8681) Case Is = "61683" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(11012) Case Is = "61684" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8691) Case Is = "61685" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(11008) Case Is = "61686" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(11009) Case Is = "61687" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(11011) Case Is = "61688" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(11010) Case Is = "61689" Selection.Font.Name = "DejaVu Serif" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9645) ' ' Wingdingszeichen die durch Zeichen der Schriftart "Arial Unicode" ersetzbar sind:" Case Is = "61494" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8987) Case Is = "61568" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9450) Case Is = "61473" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9999) Case Is = "61474" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9986) Case Is = "61475" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9985) Case Is = "61480" '(schwarzes Telefon) Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow ' Das schwarze Telefon sieht in "Arial Unicode" sonst zu klein aus: Selection.Font.Size = Selection.Font.Size + 3 ' (oder hierfür besser "DejaVu Sans" verwenden? Selection.TypeText Text:=ChrW(9742) Case Is = "61481" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9990) Case Is = "61482" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9993) Case Is = "61502" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9991) Case Is = "61503" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9997) Case Is = "61505" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9996) Case Is = "61509" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9756) Case Is = "61510" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9758) Case Is = "61511" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9757) Case Is = "61512" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9759) Case Is = "61518" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9760) Case Is = "61521" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9992) Case Is = "61524" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10052) Case Is = "61526" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10014) Case Is = "61528" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10016) Case Is = "61529" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10017) Case Is = "61530" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9770) Case Is = "61531" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9775) Case Is = "61532" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(2384) Case Is = "61534" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9800) Case Is = "61535" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9801) Case Is = "61536" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9802) Case Is = "61537" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9803) Case Is = "61538" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9804) Case Is = "61539" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9805) Case Is = "61540" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9806) Case Is = "61541" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9807) Case Is = "61542" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9808) Case Is = "61543" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9809) Case Is = "61544" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9810) Case Is = "61545" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9811) Case Is = "61549" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10061) Case Is = "61553" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10065) Case Is = "61554" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10066) Case Is = "61558" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10070) Case Is = "61560" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8999) Case Is = "61561" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9043) Case Is = "61563" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10048) Case Is = "61564" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10047) Case Is = "61565" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10077) Case Is = "61566" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10078) Case Is = "61569" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9312) Case Is = "61570" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9313) Case Is = "61571" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9314) Case Is = "61572" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9315) Case Is = "61573" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9316) Case Is = "61574" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9317) Case Is = "61575" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9318) Case Is = "61576" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9319) Case Is = "61577" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9320) Case Is = "61578" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9321) Case Is = "61580" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10102) Case Is = "61581" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10103) Case Is = "61582" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10104) Case Is = "61583" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10105) Case Is = "61584" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10106) Case Is = "61585" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10107) Case Is = "61586" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10108) Case Is = "61587" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10109) Case Is = "61588" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10110) Case Is = "61589" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10111) Case Is = "61606" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10061) Case Is = "61610" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10022) Case Is = "61611" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9733) Case Is = "61612" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10038) Case Is = "61613" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10036) Case Is = "61614" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10041) Case Is = "61615" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10037) Case Is = "61621" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10026) Case Is = "61622" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10032) Case Is = "61653" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9003) Case Is = "61654" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8998) Case Is = "61656" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10146) Case Is = "61617" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(8982) Case Is = "61660" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10162) Case Is = "61672" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10132) Case Is = "61691" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10007) Case Is = "61692" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10003) Case Is = "61693" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9746) Case Is = "61694" Selection.Font.Name = "Arial Unicode MS" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9745) ' ' Ergänzung 5. März 2012 Case Is = "61579" ' Null in schwarzem Kreis Selection.Font.Name = "Cambria" ' auch Calibri, Code2000 oder RomanCyrillic möglich. Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9471) ' ' Wingdingszeichen, die durch Zeichen der Schriftart "Symbola" ersetzt werden:" Case Is = "61519" Selection.Font.Name = "Symbola" ' auch Code 2000 möglich Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(9872) Case Is = "61555" Selection.Font.Name = "Symbola" ' auch Code 2000 möglich. Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(11047) Case Is = "61559" Selection.Font.Name = "Symbola" ' auch Code 2000 möglich. Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(11045) Case Is = "61618" Selection.Font.Name = "Symbola" ' auch Code 2000 möglich. Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrW(10209) ' ' Bei Zeichen höherer Unicode-Ebenen ist eine spezielle Prozedur "ChrXXL" nötig:" Case Is = "61476" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128083) Case Is = "61477" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128276) Case Is = "61478" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128214) Case Is = "61484" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128234) Case Is = "61485" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128235) Case Is = "61486" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128236) Case Is = "61487" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128237) Case Is = "61488" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128193) Case Is = "61489" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128194) Case Is = "61490" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128196) Case Is = "61498" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128187) Case Is = "61500" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128190) Case Is = "61506" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128076) Case Is = "61507" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128077) Case Is = "61508" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128078) Case Is = "61515" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128528) Case Is = "61517" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128163) Case Is = "61523" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128167) Case Is = "61623" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128336) Case Is = "61624" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128337) Case Is = "61625" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128338) Case Is = "61626" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128339) Case Is = "61627" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128340) Case Is = "61628" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128341) Case Is = "61629" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128342) Case Is = "61630" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128343) Case Is = "61631" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128344) Case Is = "61632" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128345) Case Is = "61633" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128346) Case Is = "61634" Selection.Font.Name = "Symbola" Selection.Range.HighlightColorIndex = wdYellow Selection.TypeText Text:=ChrXXL(128347) Case Else '' Selection.Font.Color = wdColorRed Selection.Range.HighlightColorIndex = wdRed End Select End Sub ' ************************************************************** Function ChrXXL(Code2) As String ' Unterfunktion für Zeichen höherer Ebenen: Dim Surrogat1 Dim Surrogat2 Surrogat1 = Hex(Int((Code2 - 65536) / 1024) + 55296) Surrogat2 = Hex((Code2 - 65536) - (Int((Code2 - 65536) / 1024) * 1024) + 56320) ChrXXL = ChrW("&H" & Surrogat1) & ChrW("&H" & Surrogat2) End Function ' ----------------------------------------------------------------------------------