Første bogstav i ordet skal være stort

I alle ord ?

Ja, fx \"hej tdaugaard\" bliver til \"Hej Tdaugaard\"

den får du tdau....he he...:-)

Function Capitalize(strString)
    strStr = \"\"
    intCap = 1
   
    For Index = 1 To Len(strString)
        strChar = Mid(strString, Index, 1)
       
        If strChar = Chr(32) Then
            intCap = 1
        Else
            Select Case intCap
                Case 1: strChar = UCase(strChar): intCap = 0
                Case 0: strChar = LCase(strChar)
            End Select
        End If
       
        strStr = strStr & strChar
    Next

    Capitalize = strStr
End Function

Denne her er bedre. Den laver nyt bogstav efter flg. tegn \" ,.;:-/?@\" (uden quotes)

    Function Capitalize(strString)
        strStr = \"\"
        intCap = 1
        strDelChars = \" ,.;:-/?@\"

        For Index = 1 To Len(strString)
            strChar = Mid(strString, Index, 1)
           
            If InStr(strDelChars, strChar) Then
                intCap = 1
            Else
                Select Case intCap
                    Case 1: strChar = UCase(strChar): intCap = 0
                    Case 0: strChar = LCase(strChar)
                End Select
            End If
           
            strStr = strStr & strChar
        Next

        Capitalize = strStr
    End Function

laver nyt .. hvad snakker jeg om .. den laver STORT bogstav efter de tegn og alle andre små

den føsrte var fin, for det er til navne!!

tdau -> den sidste ser da ikke særlig godt ud med email adresser.....den skulle da lade være med at lave bogstavet stort hvis der indgik disse tegn i et ord!

lp:> jeg lavede det også bare så man selv kunne bestemme hvilke tegn den skulle \"skille\" ved.

lp:> man kunne jo også begynde at lave så den ikke laver caps på første bogstav i email adressen, http adresse etc.

ahl:> fint nok så :-)

mange tak!