[kapetang]

Καλησπέρα

Αλέξανδρε, θα πρότεινα να δοκιμάσεις τον παρακάτω κώδικα:

Public Sub ReplaceFirstEndChar()
    'Αλλαγή 1ου και τελευταίου χαρακτήρα λέξης

    'Εδώ θα καταχωρηθούν οι πραγματικοί χαρακτήρες
    Const First As String = "0"     '1ος χαρακτήρας λέξης
    Const FirstTo As String = "8"   'χαρακτήρας αντικατάστασης 1ου χαρακτήρα
    Const Last As String = "0"      'τελευταίος χαρακτήρας λέξης
    Const LastTo As String = "8"    'χαρακτήρας αντικατάστασης τελευταίου χαρακτήρα

    Dim s As String, SeparateChars As Variant, i As Long
    s = Trim(Nz(Me.TextBox2, ""))
    If s <> "" Then
        s = " " & s & " "
        'Χαρακτήρες διαχωρισμού λέξεων
        SeparateChars = Array(",", ".", ";", ":", "·", " ")
        For i = 0 To UBound(SeparateChars)
            'αντικατάσταση 1ου χαρακτήρα
            s = Replace(s, SeparateChars(i) & First, SeparateChars(i) & FirstTo)
            'αντικατάσταση τελευταίου χαρακτήρα
            s = Replace(s, Last & SeparateChars(i), LastTo & SeparateChars(i))
        Next
        Me.TextBox2 = Trim(s)
        Me.Dirty = False
    End If
End Sub