Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 15 von 15

Kryptische Buchstaben? Hilfe

Erstellt von Kamoi, 29.01.2009, 20:05 Uhr · 14 Antworten · 3.522 Aufrufe

  1. #11
    Kali
    Avatar von Kali

    Re: Kryptische Buchstaben? Hilfe

    Zitat Zitat von Micha",p="685057
    [...]มีใครอยู่แล้วบ้าง meint in etwas "ist schon jemand da?"
    Verrätst du uns, wie du das hinbekommen hast ?

  2.  
    Anzeige
  3. #12
    Avatar von dutlek

    Registriert seit
    27.04.2005
    Beiträge
    1.806

    Re: Kryptische Buchstaben? Hilfe

    Zitat Zitat von ReneZ",p="685051
    Da hilft (fast) nur die DB Thaitext Schriftart.
    Nicht nur DB, auch eigendlich mit allen thailaendischen Fonts geht das.
    Einfach in deine Textverarbeitung kopieren- markieren und (irgend)einen Thaifont waehlen (aber nicht die Standart-Windows-Thai-Fonts).

    PS
    Ob´s der @Micha so gemacht hat, weiss ich nicht.

  4. #13
    Avatar von Micha

    Registriert seit
    28.01.2003
    Beiträge
    15.943

    Re: Kryptische Buchstaben? Hilfe

    Zitat Zitat von Kali",p="685193
    Verrätst du uns, wie du das hinbekommen hast ?
    Habe den Text in MSWord kopiert, markiert und die Schriftart NRB PhetBouri ausgewählt.

    Dann habe ich folgende VBA-Routine drüber laufen lassen:

    Option Explicit
    Dim x As Long, Bereich As Range

    Sub NRBinTahoma() ´Markierung
    Dim Buchstabe As Object
    If Selection.Type <> 2 Then
    GoTo well
    Else
    Set Bereich = Selection.Range
    If Len(Bereich) > 500 Then Application.ScreenUpdating = False
    End If
    For Each Buchstabe In Bereich.Characters
    If Buchstabe.Font.Name = "NRB Phet Bouri" Then
    x = AscW(Buchstabe)
    If x < 0 And x > -4064 Then
    ´Buchstabe.Font.Size = Buchstabe.Font.Size + 3
    Buchstabe.Font.Name = "Tahoma"
    x = x + 7520
    Buchstabe.Text = ChrW(x)
    Buchstabe.NoProofing = True
    ElseIf x = -4064 Then
    ´Buchstabe.Font.Size = Buchstabe.Font.Size + 3
    Buchstabe.Font.Name = "Tahoma"
    x = 32
    Buchstabe.Text = ChrW(x)
    Buchstabe.NoProofing = True
    ElseIf x = 13 Then
    ´Buchstabe.Font.Size = Buchstabe.Font.Size + 3
    Buchstabe.Font.Name = "Tahoma"
    x = 13
    Buchstabe.Text = ChrW(x)
    Buchstabe.NoProofing = True
    ElseIf x = 11 Then
    ´Buchstabe.Font.Size = Buchstabe.Font.Size + 3
    Buchstabe.Font.Name = "Tahoma"
    x = 11
    Buchstabe.Text = ChrW(x)
    Buchstabe.NoProofing = True
    End If
    End If
    Next
    well:
    Application.ScreenUpdating = True
    End Sub

  5. #14
    Avatar von dutlek

    Registriert seit
    27.04.2005
    Beiträge
    1.806

    Re: Kryptische Buchstaben? Hilfe

    Zitat Zitat von Micha",p="685410
    Habe den Text in MSWord kopiert, markiert und die Schriftart NRB PhetBouri ausgewählt.
    Ja, das ist die Moeglichkeit, aber was @Micha bedeut "VBA-Routine" (zumindest in deutsch) Markieren und Schriftart auswaehlen reicht doch

  6. #15
    Avatar von Micha

    Registriert seit
    28.01.2003
    Beiträge
    15.943

    Re: Kryptische Buchstaben? Hilfe

    Zitat Zitat von dutlek",p="685428
    Markieren und Schriftart auswaehlen reicht doch
    Zum lesen mag es ausreichen. Aber wenn ich den Text dann wieder in den Forenbeitrag hinein kopieren möchte funktioniert das mit NRB PhetBouri oder DB Thai-Text nicht. Der Text bleibt kryptisch.

    Die Schriftart Tahoma ist da allgemein verträglicher. Funktioniert im Forum, im Chat u. ä. und mein Wörterbuch verwendet ebenfalls die Schriftart Tahoma.

Seite 2 von 2 ErsteErste 12

Ähnliche Themen

  1. Thailändischer Name in lateinischen Buchstaben
    Von Florian im Forum Treffpunkt
    Antworten: 23
    Letzter Beitrag: 27.08.13, 06:21
  2. 5 Buchstaben = 1 Zeile
    Von Philip im Forum Forum-Board
    Antworten: 1
    Letzter Beitrag: 13.05.12, 22:49
  3. buchstaben wie in thai ausgesprochen
    Von maxicosi im Forum Literarisches
    Antworten: 1
    Letzter Beitrag: 29.03.05, 18:41
  4. Das Buchstaben-Spiel
    Von paimanee im Forum Treffpunkt
    Antworten: 3
    Letzter Beitrag: 30.08.04, 06:28
  5. Antworten: 4
    Letzter Beitrag: 21.05.02, 23:29