Char tabel har jeg fra en HTML bog (Dynamic HTML in Action - Rigtig glimrende lærebog). Mener ikke at Microsoft har udgivet numrene under 33 elektronisk endnu. De fleste af dem er ikke brugt, undtagen:
CHAR(09) = TAB CHAR(10) = LINE FEED CHAR(13) = CARRIAGE RETURN CHAR(32) = SPACE
Hvis du vil lade mig få en mail adresse, vil jeg scanne listen over de første 256 CHARacters og send det til dig. (Jeg skriver på tastatur med to fingre, så det er for stort et arbejde at taste dem allesammen ind her!)
Jeg har lige fundet det her på microsoft.com. Hvis du skriver det i code modulen for ThisDocument i Word, så får du en liste over de første 256 ANSI characters. Som du ville kunne se, så er der ikke noget at se før #33. Der er kun de fire tidligere nævnt som bruges, og de er til "usynlige" tegn.
Sub AnsiChars() Dim dlgFont As Dialog Dim iCount As Integer Dim defFont As String
' Create a new document. Documents.Add ' Get name of default font. defFont = Selection.Font.Name ' Display Font dialog box to choose the font ' from which the ANSI character will be retrieved. Set dlgFont = Dialogs(wdDialogFormatFont) dlgFont.Display
With Selection ' Insert the name of the chosen font. .TypeText dlgFont.Font & vbCr ' Set the point size of the chosen font. .Font.Size = dlgFont.Points ' Retrieve ANSI character set. For iCount = 0 To 255 ' Set font to default font. .Font.Name = defFont ' Insert ANSI character number. .TypeText CStr(iCount) & " - " ' Set font to chosen font. .Font.Name = dlgFont.Font ' Insert ANSI character. .TypeText Chr(iCount) & vbCr ' Loop until done. Next iCount End With End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.